【正文】 學畢業(yè)設(shè)計（論文）373,3,4 M=3 NSL=44,4,5 M=4 NSL=45,5,6 M=5 NSL=46,6,7 M=6 NSL=47,7,8 M=7 NSL=48,8,9 M=8 NSL=29,9,10 M=9 NSL=210,10,11 M=10 NSL=2 11,11,12 M=11 12,12,13 M=1213,13,14 M=1314,14,15 M=14 15,15,16 M=15 NSL=116,16,17 M=16 NSL=117,17,18 M=17 NSL=118,18,19 M=18 NSL=319,19,20 M=19 NSL=320,20,21 M=20 NSL=321,21,22 M=21 NSL=322,22,23 M=22 NSL=3 23,23,24 M=23 NSL=324,24,1 M=24 NSL=3 利用 sap2022 運行出軸力，彎矩的數(shù)據(jù)之后 ，利用 FORTRAN 程序進行襯砌的內(nèi)力檢算，程序如下： DIMENSION E0(28),ZN(28),ZM(28),ZH(28),ZK(28),ZX(28) REAL*8 ZN,RA,ZH,E0,ZM,R1,ZK,ZX INTEGER NJ,I OPEN(1,FILE=39。39。,STATUS=39。OLD39。) OPEN(2,FILE=39。39。,STATUS=39。NEW39。) READ(1,*) NJ DO 10 I=1,NJXX 大學畢業(yè)設(shè)計（論文）38 READ(1,*) ZN(I),ZM(I),ZH(I)10 CONTINUE RA=15500 R1=1700 DO 20 I=1,NJ ZX(I)=ZM(I)/ZN(I) E0(I)=ABS(ZX(I)) IF(E0(I).LE.(*ZH(I))) THEN ZK(I)=RA*ZH(I) IF((*ZN(I)).(I)) THEN WRITE(2,100)I100 FORMAT(1X,I2,5X,39。小偏心39。10X,39。是39。) ELSE WRITE(2,200)I200 FORMAT(1X,I2,5X,10X,39。否39。) END IF ELSE IF(E0(I).GE.(*ZH(I))) THEN ZK(I)=*R1*ZH(I)/(*E0(I)/ZH(I)1) IF(*ZN(I).(I)) THEN WRITE(2,300)I300 FORMAT(1X,I2,5X,39。大偏心39。,10X,39。是39。) ELSE WRITE(2,400)I400 FORMAT(1X,I2,5X,10X,39。否39。) END IF ELSE WRITE(2,300)I END IF20 CONTINUE END XX 大學畢業(yè)設(shè)計（論文）39Ⅳ級圍巖襯砌強度檢算輸入數(shù)據(jù)如下：28 XX 大學畢業(yè)設(shè)計（論文）40 運行結(jié)果詳見表 31：表 31 Ⅳ級圍巖襯砌強度檢算表塊序號 大小偏心 安全系數(shù)（K） 是否合格 塊序號 大小偏心 安全系數(shù)(K) 是否合格1 大偏心 是 15 大偏心 是2 小偏心 是 16 大偏心 是3 小偏心 是 17 大偏心 是4 小偏心 是 18 大偏心 是5 小偏心 是 19 小偏心 是6 小偏心 是 20 小偏心 是7 小偏心 是 21 小偏心 是8 小偏心 是 22 小偏心 是9 小偏心 是 23 小偏心 是10 小偏心 是 24 小偏心 是11 小偏心 是 25 小偏心 是12 大偏心 是 26 小偏心 是13 大偏心 是 27 小偏心 是14 大偏心 是 28 小偏心 是Ⅴ級圍巖襯砌強度檢算輸入數(shù)據(jù)如下：24 XX 大學畢業(yè)設(shè)計（論文）41 其運行結(jié)果詳見表 32：表 32 Ⅴ級圍巖襯砌強度檢算表塊序號 大小偏心 安全系數(shù)(K) 是否合格 塊序號 大小偏心 安全系數(shù)(K) 是否合格1 小偏心 是 13 小偏心 是2 小偏心 是 14 小偏心 是3 小偏心 是 15 小偏心 是4 小偏心 是 16 小偏心 是5 小偏心 是 17 小偏心 是6 小偏心 是 18 小偏心 是7 小偏心 是 19 小偏心 是8 小偏心 是 20 小偏心 是9 小偏心 是 21 小偏心 是10 小偏心 是 22 小偏心 是11 小偏心 是 23 小偏心 是XX 大學畢業(yè)設(shè)計（論文）4212 小偏心 是 24 小偏心 是經(jīng)檢驗，Ⅳ，Ⅴ級圍巖襯砌符合要求。其軸力，彎矩圖如下圖 Ⅳ級襯砌軸力圖 (kN)XX 大學畢業(yè)設(shè)計（論文）43圖 Ⅳ級襯砌彎矩圖（ kN*m）圖 Ⅴ級襯砌軸力圖 (kN)XX 大學畢業(yè)設(shè)計（論文）44圖 Ⅴ級襯砌彎矩圖（kN*m ）Ⅵ級圍巖輸入數(shù)據(jù)23,23,,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,0,0,0,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,XX 大學畢業(yè)設(shè)計（論文）45,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,Ⅵ級圍巖輸出數(shù)據(jù) 1STEP NO. XDISP. YDISP. XSPRING YSPRING RDISP. 1 .000000 .007829 1 .007829 2 .007859 1 .007859 3 .007889 1 .007889 4 .007924 1 .007924 5 .007968 1 .007968 6 .000009 .008014 1 .008014 7 .000107 .008052 1 .008053 8 .000191 .008083 1 .008086 9 .000156 .008151 1 .008153 10 .000049 .008296 0 .008297 11 .008460 0 .008460 12 .000000 .008538 0 .008538 13 .000014 .008460 0 .008460 14 .008296 0 .008297 15 .008151 1 .008153 16 .008083 1 .008086 17 .008052 1 .008053 18 .008014 1 .008014 19 .000038 .007968 1 .007968 20 .000039 .007924 1 .007924XX 大學畢業(yè)設(shè)計（論文）46 21 .000023 .007889 1 .007889 22 .000010 .007859 1 .007859 23 .000000 .007829 1 .007829 2STEP NO. XDISP. YDISP. XSPRING YSPRING RDISP. 1 .000000 .007829 0 .007829 2 .007850 0 .007850 3 .007873 0 .007873 4 .007905 0 .007906 5 .007949 0 .007950 6 .007996 1 .007996 7 .000083 .008033 1 .008033 8 .000180 .008062 1 .008064 9 .000152 .008127 1 .008128 10 .000047 .008269 1 .008270 11 .008431 0 .008431 12 .000000 .008508 0 .008508 13 .000015 .008431 0 .008431 14 .008269 1 .008270 15 .008127 1 .008128 16 .008062 1 .008064 17 .008033 1 .008033 18 .000031 .007996 1 .007996 19 .000093 .007949 0 .007950 20 .000095 .007905 0 .007906 21 .000066 .007873 0 .007873 22 .000033 .007850 0 .007850 23 .000000 .007829 0 .007829 3STEP NO. XDISP. YDISP. XSPRING YSPRING RDISP. 1