平面桁架计算程序.docxVIP

! PTA说明: 1,数据输入文件为DATAIN.TXT中,数据依次为(NE,NJ,NR,NP,NP); (X,Y)*NJ ; ! (IJ1,IJ2,A,EI)*NE;(JR1,JR2,JR3,JR4)*NR;(PJ1,PJ2,PJ3)*NP;(PF1,PF2,PF3,PF4)*NF! 2,NE单元总数；NJ节点总数；NR约束总数；NP节点荷载总数；NF非节点荷载数；X,Y节点坐标； ! IJ(NE,1),IJ(NE,2) 单元期终点；A 单元面积；ZI 截面惯性矩；JR(NR,1)约束结点号; ! JR(NE,2:4)横向竖向转动约束(1); PJ(NP,1:3)分别为结点号、荷载类型、荷载值； ! PF(NF,1:4)分别为单元号、荷载类型，荷载值、荷载据起点距离!主程序 PROGRAM Plane_Truss_Analysis implicit none integer NE,NJ,NP,NF,NR,N real E integer,allocatable,DIMENSION(:,:)::IJ,JR real,allocatable,DIMENSION(:)::A,P,X,Y !动态数组定义 real,allocatable,DIMENSION(