수다닷컴

수치해석 과제중인데요..Private Sub SetGlobalStiffness()
Dim iEL As Long, nNode As Long, colP As Long
Dim iGDOF As Long, jGDOF As Long, iLDOF As Long, jLDOF As Long
Dim qoLe As Double
For i = 1 To numDOF: For j = 1 To numDOF + 1: GK(i, j) = 0: Next j: Next i qoLe = qo * Le: colP = numDOF + 1: nNode = 0 For iEL = 1 To numEL: nNode = nNode + 1
For iLDOF = 1 To 4
iGDOF = GetGlobalDOF(nNode, iLDOF)
For jLDOF = 1 To 4
jGDOF = GetGlobalDOF(nNode, jLDOF)
If iGDOF * jGDOF 0 Then
GK(iGDOF, jGDOF) = GK(iGDOF, jGDOF) + LK(iLDOF, jLDOF)
End If
Next jLDOF
If iLDOF = 1 And iGDOF 0 Then
GK(iGDOF, colP) = qoLe
※ 절점하중 출력 절점번호 nNode 하중 qoLe
End If
Next iLDOF
Next iEL
End Sub이런게 있고...마지막 출력으로For iND = 1 To numNDMFG계산결과.TextMatrix(iND + 1, 2) = SetGlobalStiffness()에서 출력Next iND 이렇게 해야 되는데 . 저 절점하중을 어떻게 코딩해서 마지막에 출력하게 해야 될지 모르겠습니다. 솔직히 저는 이 내용도 이해 못하고 있는지라.. 혹시 토목과 수치관련해서 잘 아시느분 도움주시면 감사하겠습니다.

신청하기