结构矩阵分析研究和程序设计(钢架vb代码).docVIP

======================================== Structural Analysis Program For Plane Frame ======================================== Option Explicit Public nn As Integer, ne As Integer, nd As Integer, ndf As Integer Public nf As Integer, npj As Integer, npe As Integer, n As Integer Public al(50) As Double, t(6, 6) As Double, x(40) As Double, y(40) As Double Public jl(50) As Integer, jr(50) As Integer, ea(50) As Double, ei(50) As Double Public c(6, 6) As Double, r(120, 120) As Double, p(120) As Double, pe(120) As Double Public ibd(20) As Integer, ii(6) As Integer, bd(20) As Double, ff(6) As Double Pub