实验四空间桁架程序设计.docVIP

实验四 空间桁架程序设计 空间桁架内力和位移计算总框图 平面桁架静力分析源程序（STSAP.FOR） C ANALYSIS PROGRAM FOR SPACE TRUSS DIMENSION JE(2,100),JEA(50),JN(3,100),M(6),EA(2,50), JPJ(100),PJ(100),P(200),FE(6),T(6,6),AKE(6,6),F(6), AK(200,200),X(100),Y(100),Z(100),FF(100) OPEN(6,FILE=STSAP.IN,STATUS=OLD) OPEN(8,FILE=STSAP.OUT,STATUS=NEW) CALL READ(NJ,N,NNE,NMT,NPJ,JN,X,Y,Z,JE,JEA,EA,JPJ,PJ) 10 DO 20 J=1,N DO 20 I=1,N 20 AK(I,J)=0. DO 25 IE=1,NNE CALL CSL(CX,CY,CZ,AL,JE,IE,X,Y,Z) CALL STIFFN(AKE,JEA(IE),CX,CY,CZ,AL,EA)