2017 인하대 (A+) 공학수치해석 기말
- 최초 등록일
- 2019.01.15
- 최종 저작일
- 2017.11
- 9페이지/
한컴오피스
- 가격 1,000원
![할인쿠폰받기](/images/v4/document/ico_det_coupon.gif)
목차
① 자료 입력화면
② 다음의 계산에 대한 member function 또는 sub program
③ 지간수 5에 전 구간의 선형분포하중(크기 1~2)에 대한 다음 표의 계산결과를 보여주는 출력화면
④ 하중과 변위 및 단면력의 분포도 출력화면
⑤ 제작된 프로그램의 적용범위에 대한 설명
본문내용
② 다음의 계산에 대한 member function 또는 sub program
1) 각 절점의 자유도 설정 및 하중객체
(1) 각 절점의 자유도 설정
[Module: MatrixAnalysis]
Private Function GetNumDOF(nSpan As Integer) As Long
ReDim nodeDOF(numnode, 2) As Integer
nNode = numnode / nSpan: kDOF = 0
For iNode = 0 To numnode - 1
If iNode Mod nNode > 0 Then
kDOF = kDOF + 1: nodeDOF(iNode, 1) = kDOF
End If
kDOF = kDOF + 1: nodeDOF(iNode, 2) = kDOF
Next iNode
GetNumDOF = kDOF
End Function
(2) 하중객체
[Class Module: SJSLoad]
Private xLeft As Double, xRight As Double
Private rateLoad As Double, qLeft As Double, qRight As Double
Public Sub SetLoad(xL As Double, qL As Double, xR As Double, qR As Double)
xLeft = xL: xRight = xR: qLeft = qL: qRight = qR
rateLoad = 0: If xLeft <> xRight Then rateLoad = (qRight - qLeft) / (xRight - xLeft)
End Sub
Public Function GetNodalForce(xL As Double, xR As Double) As Double
If xL > xRight Or xR < xLeft Then Exit Function
참고 자료
없음