結构矩阵分析与程序设计(连续梁vb代码).docVIP

================================================ Structural Analysis Program For Continous Beam ================================================ Option Explicit Public n As Integer, ld As Integer Public ne As Integer, nw As Integer, jl As Integer, jr As Integer, nld As Integer, kw As Integer Public ac As Double, kc As Integer, npj As Integer, npe As Integer Public ei(20) As Double, al(20) As Double, eil(20) As Double, r(30, 2) As Double Public p(21, 60) As Double, mj(20) As Integer, qj(20) As Double, fq(20, 2) As Double Public fm(20, 2) As Double, ff(6) As Double, mf(20) As Integer, ind(20) As Integer Public aq(20) As Double, bq(20) As Double, q1(20) As Double, q2(20) As Double Public inposition(100) As Integer ================================================ Main Program ================================================ Sub beam() Open h:\juzheng\连续梁\br4.1.txt For Input As 2 Open h:\juzheng\连续梁\bw4.1.txt For Output As 3 Call data1 Call wstiff ld = 1 Do While ld = nld inposition(ld) = Seek(2) Call input1(ld) Call load(ld) ld = ld + 1 Loop Call bound Call bgauss Call qme Close 2 Close 3 End Sub ================================================ SUB-1 ================================================ Sub data1() Dim i As Integer Input #2, n, ne, nw, jl, jr, nld, kw, kc, ac If (kc = 0) Then Print #3, Influnence Line Values Of Internal, Force Else Print #3, Analysis Of Continous Beam Structurs End If Print #3, Print #3, Input Data Print #3, Print #3, Control Data Print #3, ********************************************************************* Print #3, n; Spc(4); ne; Spc(4); nw; Spc(3); jl; Spc(2); jr; Spc(3); nld; Spc(3); kw; Spc(3); kc; Spc(2); ac Print #3, ********************************************************************* Print #3, n; Spc(2); ne; Spc(2); nw; Spc(2); jl; Spc(2); jr; Spc(2); nld; Spc(2); kw; Spc(2); kc; Spc(2); ac Print #3, Print #3, Element Information Print #3, Ele.No; Spc(5); EI; Spc(5); L; Spc(7); EI/L Print #3, For i = 1 To ne Input #2, i, ei(