【正文】 631 .3069 .1495 .0000 .0000 .11263．計算機加載結(jié)果如下 N(t) Q(t) M(tm) N(t) Q(t) M(tm) (maxN) (minN)ZK－活載 .000 .000 .000 .000 .000 .000 (maxQ) (minQ) ZK－活載 .000 .000 (maxM) (minM) ZK－活載 .000 .000 ELEMENT 9 10( 9)================ N(t) Q(t) M(tm) N(t) Q(t) M(tm) (maxN) (minN) ZK－活載 .000 .000 .000 .000 .000 .000 (maxQ) (minQ) ZK－活載 .000 .000 (maxM) (minM) ZK－活載 .000 .000 4．人工加載結(jié)果如下 最大正彎矩，加載布置參加圖3－1。方案一加載結(jié)果M=；方案二加載結(jié)果M=；計算機程序加載結(jié)果M= tm；結(jié)果完全吻合。 最小剪力，加載布置參加圖3－2。人工加載結(jié)果Q=；計算機程序加載結(jié)果Q= t；結(jié)果完全吻合 。圖3－1 彎矩影響線加載圖圖3－2 剪力影響線加載圖5. 原PRBP中的不足和錯誤部分 在SUBROUTINE DCA(LCN,IC0,IC)中! 修改：sxw,! CA(I)=CAA(1,I)! 原因：上述語句終caa(1,i),中的一個下標(biāo)恒為1，錯??！ CA(I)=CAA(IA,I)! 修改完畢 在SUBROUTINE CYSC(YT,YB,XS,YC,CCO,CSI,ICZ0,CC) 中! 修改：sxw,c X7= DINT(CC(NC1(IC31)+N3,3)+)C 此句有錯，應(yīng)該為 ！SXW X7= DINT(CC(NC1(IC31)+N3,3)*)! 修改完畢 在SUBROUTINE CYSC(YT,YB,XS,YC,CCO,CSI,ICZ0,CC) 中! 修改：sxw,! X4= DATAN(X9*(XSX8)/(X10X7))C 此句有錯，應(yīng)該為:(當(dāng)xs截面為垂直截面時，該錯誤對結(jié)果無影響，因為XCO=) X4= DATAN(X9*(XSX8+X6*XCO)/(X10X7))! 修改完畢 NP102…中! 修改：sxw, IF()THENc A1=XF1(IA7)c A2=PF(IA7)c A6=(CAA(IA,8)DL(IA9))*CAA(IA,3)/(XF1(IA10+2)XF1(1))! 原為以上三句，sxw改為如下 IF(CAA(IA,8).(IA9)) A6= IF(CAA(IA,8).(IA9))THEN !回縮量比反磨阻量大,之差值將引起損失A6 A1=XF1(IA7) A2=PF(IA7) IF(DABS(XF1(IA10+2)XF1(1)).LT..1d22) XF1(IA10+2)=XF1(1)+.1d9 A6=(CAA(IA,8)DL(IA9))*CAA(IA,3)/(XF1(IA10+2)XF1(1)) end if! 修改完畢 在SUBROUTINE NP102…中! 修改：sxw,增加如下語句! A2=CAA(IA,4)TCS(10)*CAA(IA,3)*( DEXP(TCS(9)! C *(ITST(ICNS)LTP(IB10))) DEXP(TCS(9)*! C (ITST(IST)LTP(IB10))))! 原因：下面的39。A2=39。語句中的ICNS從未賦值過，其應(yīng)該束張拉階段時間， ICNS=0 DO KK=1,ICS !對計算徐變的施工階段循環(huán) IF((KK).(KK+1). )THEN ICNS=KSST(KK+1) IF((KK) )ICNS=KSST(KK) END IF END DO IF(ITST(ICNS).(IB10))THEN A2=CAA(IA,4)TCS(10)*CAA(IA,3)*( DEXP(TCS(9) C *(ITST(ICNS)LTP(IB10))) DEXP(TCS(9)* C (ITST(IST)LTP(IB10)))) ELSE A2= END IF! 修改完畢 在SUBROUTINE TEMPER(中! 修改：sxw,! SE=AL/AA(IA10,IS)*TP(K)*BB(K)*TY(K)SQ*YY(IA10,IS)+SE! 此句有錯，SQ*YY(IA10,IS)不能累減 SQ1=AL/EJJ(IA10,IS)*TP(K)*BB(K)*TY(K)*(HH(K)YY(IA10,IS)) SE=AL/AA(IA10,IS)*TP(K)*BB(K)*TY(K)SQ1*YY(IA10,IS)+SE! 修改完畢 該程序中DIMENSION中的BB(12),HH(12),TY(12) 改為BB(100),HH(100),TY(100) 修改數(shù)組體積原：/EQ/EE(500),(500),TP(15)改為/EQ/EE(500),(500),TP(100) 在SUBROUTINE freet中! 修改：sxw,! DO 32 J=1,NT! IF ((J,1).(J,2)) THEN! TOP=ITB(J,3)! ENDIF!32 CONTINUE! IF (IABS(KTA(II,1)).(NT,2))THEN! 此段有錯 1)ii為序號非單元號，2）TOP已求，3）判別失真 NTT=0 DO 32 J=1,NT IF (KTA(II,1).(J,1).(II,1).(J,2)) THEN NTT=J ENDIF32 CONTINUE IF (IABS(KTA(II,1)).)THEN! 修改完畢20