【正文】 結(jié)構(gòu) 計(jì)算 簡 圖 ，如圖 所示 。 APDL 命令流如下： ! 4 跨連續(xù)梁（ 4*35=140m)內(nèi)力分析 !*********************************************************************** /FILNAME,hong zai nei li,1 !定義工作文件名 /TITLE,Wangju Jianli Fengxi !定義工作標(biāo)題 /PREP7 !進(jìn)入 prep7 處理器 ET,1,BEAM3 !定義單元類型 R,1, !定義實(shí)常數(shù) 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 6 頁 共 67 頁 MP,EX,1, !材料屬性 (先按 C50) MP,PRXY,1, *DO,I,1,33 !創(chuàng)建節(jié)點(diǎn) N,I,(I1)*,0 *ENDDO TYPE,1 $ MAT,1 $ REAL,1 !定義單元類型號(hào)、材料類型號(hào)、實(shí)常數(shù)號(hào) *DO,I,1,32 !生成單元 E,I,I+1 *ENDDO FINISH !******************************************************************* /SOLU !進(jìn)入 solu 處理器 ANTYPE,0 !定義分析類型 D,1,UY !邊界條件 D,9,UY D,17,UX,UY D,25,UY D,33,UY SFBEAM,ALL,1,PRES, !全橋恒載內(nèi)力 SOLVE FINISH !*********************************************************************** /POST1 ETABLE,MI,SMISC,6 !以單元 I 點(diǎn)彎矩為內(nèi)容，定義單元表 ETABLE,MJ,SMISC,12 !以單元 J 點(diǎn)彎矩為內(nèi)容，定義單元表 ETABLE,QI,SMISC,2 !以單元 I 點(diǎn)剪力為內(nèi)容，定義單元表 ETABLE,QJ,SMISC,8 !以單元 J 點(diǎn)剪力為內(nèi)容，定義單元表 PLLS,MI,MJ !結(jié)構(gòu)剪力分布圖 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 7 頁 共 67 頁 PLLS,QI,QJ !結(jié)構(gòu)彎矩分布圖 FINISH （ 2） 結(jié)構(gòu)在恒載作用下結(jié)構(gòu)內(nèi)力值詳見表 31 和圖 、圖 。因此 m3=21=。 汽車的沖擊系數(shù)是汽車過橋時(shí)對橋梁結(jié)構(gòu)產(chǎn)生的豎向動(dòng)力效應(yīng)的增大系數(shù)。根據(jù)新《公路橋規(guī)》（ JTJ D62021） ，結(jié)合公路橋梁可靠度研究的成果，采用結(jié)構(gòu)的基頻來計(jì)算橋梁結(jié)構(gòu)的沖擊系數(shù)。 本設(shè)計(jì)通過手算，計(jì)算出： u1=， u2=。 （ 2）利用網(wǎng)上下載的 APDL 命令流計(jì)算各細(xì)分節(jié)點(diǎn)的影響線數(shù)據(jù) 。下面是導(dǎo)出剪力影響線的命令流： *cfopen,jianliyingxinagxiang,xls I=1 *VWRITE,N_QY(1,I),N_QY(1,I+35),N_QY(1,I+2*35),N_QY(1,I+3*35),N_QY(1,I+4*35),N_QY(1,I+5*35),N_QY(1,I+6*35),N_QY(1,I+7*35),N_QY(1,I+8*35),N_QY(1,I+9*35),N_QY(1,I+10*35),N_QY(1,I+11*35),N_QY(1,I+12*35),N_QY(1,I+13*35),N_QY(1,I+14*35),N_QY(1,I+15*35),N_QY(1,I+16*35) () 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 10 頁 共 67 頁 *cfclos,jianliyingxinagxiang,xls （ 4）利用 Excel 內(nèi)自帶的 VBA 編程，對 1121 行， 17 列影響線數(shù)據(jù)進(jìn)行處理。 經(jīng)過與 ANSYS 內(nèi)直接加載求內(nèi)力結(jié)果比較，發(fā)現(xiàn)結(jié)果誤差在 1%以內(nèi)（其中彎矩誤差約 %，剪力誤差約 %~%），可見計(jì)算結(jié)果誤差很小。進(jìn)行影響線豎標(biāo)和面積計(jì)算 Dim i, j, k As Integer Dim Yi_max, Yi_min As Single 39。定義影響線面積 For j = 1 To 17 39。求影響線面積 For i = 1 To 1120 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 11 頁 共 67 頁 If Cells(i, j) = 0 Then 39。求負(fù)影響線面積 If Cells(i + 1, j) = 0 Then W_min = W_min + (Cells(i, j) + Cells(i + 1, j)) * (Cells(i + 1, 18) Cells(i, 18)) / 2 End If End If Next i Cells(1128, j) = W_max Cells(1130, j) = W_min W_max = 0 W_min = 0 Next j For j = 1 To 17 39。 將 T T2 值輸入 Midas 內(nèi)進(jìn)行計(jì)算，內(nèi)力見表 33 表 33 溫度次內(nèi)力值 節(jié)點(diǎn) X坐標(biāo)（ m） 彎矩值 M（ N*m） 剪力值 Q（ N） 1 0 0 2 3 1678652 4 2517978 5 3357303 6 4196629 7 5035955 8 5875281 9 35 6714607 10 6454941 11 6195275 12 5935608 13 5675942 14 5416276 15 5156610 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 17 頁 共 67 頁 16 4896944 17 70 4637277 溫度作用下的彎矩圖8000000700000060000005000000400000030000002021000100000000 20 40 60 80 100 120 140 160主梁X坐標(biāo)（m）彎矩（N*m） 圖 溫度次內(nèi)力彎矩 圖 溫度作用下的剪力圖250000202100150000100000500000500001000001500002021002500000 20 40 60 80 100 120 140 160主梁X坐標(biāo)（m）剪力（N） 圖 溫度次內(nèi)力剪力 圖 支座沉降內(nèi)力計(jì)算 支座沉降應(yīng)當(dāng)考慮所有可能沉降的情況，然后進(jìn)行最不利組合，求出主梁內(nèi)力值。 （用于承載能力極限狀態(tài)計(jì)算） 1 1 2 1 21 .2 ( ) 1 .4 1 .1 2d G K P G K m G K Q K Q KM M M M M M? ? ? ? ? KQKQGKmGKPGKd VVVVVV 21211 )( ????? （用于正常使用極限狀態(tài)計(jì)算） KQKQGKmGKPGKS MMMMMM 21211 )( ?????? ? KQKQGKmGKPGKS VVVVVV 21211 )( ?????? ? （用于正常使用極限狀態(tài)計(jì) 算） )1()( 21211 KQKQGKmGKPGKL MMMMMM ?????? ? 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 20 頁 共 67 頁 )1()( 21211 KQKQGKmGKPGKL VVVVVV ?????? ? （ 1）電算方法 本設(shè)計(jì)采用 Excel 自帶的 VBA 編程進(jìn)行荷載組合，程序代碼如下： Private Sub sheet1_neilizuhe() Dim i, j As Integer Dim s As Single For i = 1 To 33 s = 1 * ( * Cells(i + 7, 3) + * Cells(i + 7, 6) + * * Cells(i + 7, 11) + * Cells(i + 7, 14)) If Cells(i + 7, 3) * s = 0 Then Cells(i + 7, 19) = s Else Cells(i + 7, 23) = 1 * (1 * Cells(i + 7, 3) + * Cells(i + 7, 6) + * * Cells(i + 7, 11) + * Cells(i + 7, 14)) End If Next i For i = 1 To 33 s = 1 * ( * Cells(i + 7, 3) + * Cells(i + 7, 7) + * * Cells(i + 7, 11) + * Cells(i + 7, 15)) If Cells(i + 7, 3) * s = 0 Then Cells(i + 7, 20) = s Else Cells(i + 7, 24) = 1 * (1 * Cells(i + 7, 3) + * Cells(i + 7, 7) + * * Cells(i + 7, 11) + * Cells(i + 7, 15)) End If Next i 茶庵鋪互通式立體交叉 K65+687 跨線橋方案比選與施工圖設(shè)計(jì) 第 21 頁 共 67 頁 For i = 1 To 33 s = 1 * ( * Cells(i + 7, 4) + * Cells(i + 7, 8) + * * Cells(i + 7, 12) + * Cells(i + 7, 16)) If Cells(i + 7, 4) * s = 0 Then Cells(i + 7, 21) = s Else Cells(i + 7, 25) = 1 * (1 * Cells(i + 7, 4) + * Cells(i + 7, 8) + * * Cells(i + 7, 12) + * Cells(i + 7, 16)) End If Next i For i = 1 To 33 s = 1 * ( * Cells(i + 7, 4) + * Cells(i + 7, 9) + * * Cells(i + 7, 12) + * Cells(i + 7, 17)) If Cells(i + 7, 4) * s = 0 Then Cells(i + 7, 22) = s Else Cells(i + 7, 26) = 1 * (1 * Cells(i + 7, 4) + * Cells(i + 7, 9) + * * Cells(i + 7, 12) + * Cells(i + 7, 17)) End If Next i For i