1、混凝土結(jié)構(gòu)設(shè)計(jì)與算例配套程序混凝土結(jié)構(gòu)設(shè)計(jì)與算例配套程序混凝土結(jié)構(gòu)設(shè)計(jì)與算例配套程序計(jì)算程序索引 編號(hào) 主程序名 子程序名程序功能說(shuō)明 章節(jié)頁(yè)次1 PF -已知可靠指標(biāo)，求失 效概率 8-2 12 2 BEITA -已知結(jié)構(gòu)鋼拉桿內(nèi)力和承載力統(tǒng) 計(jì)特性，求拉桿的可靠指標(biāo)8-2 14 3 M1 C20 , G, D-AS ,P, JIAN單筋矩形截面梁、單向板配筋計(jì)算孫6 57-60、4YUPEN C20, G, JIAN 雨篷板配筋計(jì)算§4-6 61-62 5 M2C20,G,D-AS,單筋矩形截面梁、單向板承載力 計(jì)算§4-6 63 6 M3 C20, G, D-AS ,

2、雙筋矩形截面梁配筋計(jì)算§4-667-72 7 T C20 , G, D-AS , T 形截面梁配筋計(jì)算§4-6 76-78、80-82 8 V C20 , G, P受彎構(gòu)件斜截面受剪承載力計(jì)算§5-492-93、95-96、98 9 N C20 , G, D-AS 配置普通箍筋軸心受 壓構(gòu)件正截 面承載力計(jì)算§6-3 111 10 S-ZHU C20 , G, D-AS配置螺旋箍筋軸心受壓構(gòu)件正截 面承載力計(jì)算§6-3 115-11、119-120、122 11 N1-M1 C20 , G, D-AS , 315 矩形 截面對(duì)稱配筋偏心受壓構(gòu)件

3、正截面承載力計(jì)算 §6-6 139-141、143-144、146、 12 N2-M2 C20 , G, D-AS , 315 矩 形截面非對(duì)稱配筋偏心受壓構(gòu)件正截面承載力計(jì)算§6-7151-152、154、157-158、160-161、164-165、167-168 > 170-171 13 PXL C20 , G, JIAN1 P, P1偏心受拉構(gòu)件正截面承載力 計(jì)算 §7-3 179-185 14 MTV1 C20 , G, P矩形截面彎剪扭構(gòu)件承載力計(jì)算§8-4 201-202 15 MTV2 C20 , G T形截面彎剪扭構(gòu)件承載力計(jì)算

4、§8-4 206-211 16 F-W C20 , G鋼筋混凝土受彎構(gòu)件撓度計(jì)算§9-1 220-223、225 17 WCR1 C20 , G鋼筋混凝土受拉構(gòu)件裂縫寬度計(jì)算§9-2 229-232 18 WCR2C20, G鋼筋混凝土受彎構(gòu)件裂縫寬度計(jì)算§9-2 224 19SB-1 SH-1雙向板四邊嵌固時(shí)配筋計(jì)算§10-1 249-250 20SB-2 SH-1雙向板一長(zhǎng)邊簡(jiǎn)支其他三邊嵌固時(shí)配筋計(jì)算 §10-1 21 SB-3 SH-1雙向板一短邊簡(jiǎn)支其他三邊嵌固時(shí) 配筋計(jì)算§10-1 22 SB-4 SH-1雙向板二

5、鄰邊簡(jiǎn)支其他二邊嵌固時(shí)配筋計(jì)算§10-1 23 SB-5 SH-1雙向板二短邊簡(jiǎn)支二長(zhǎng)邊嵌固時(shí)配筋計(jì)算§10-1 251 24 SB-6 SH-1雙向板二長(zhǎng)邊簡(jiǎn)支二短邊嵌固時(shí)配筋計(jì)算§10-1 250 25 SB-7SH-1雙向板三邊簡(jiǎn)支一長(zhǎng)邊嵌固時(shí)配筋的計(jì)算§10-1 26 SB-8 SH-1雙向板 三邊簡(jiǎn) 支一短 邊嵌固 時(shí)配筋 計(jì)算 §10-1 27 SB-9 SH-1雙向板四邊簡(jiǎn)支時(shí)配筋計(jì)算§10-1252 28 LOUTI JIAN鋼筋混凝土板式樓梯配筋計(jì)算§10-2256 29 DJL FII,FKI彈性地基梁的

6、計(jì)算（鏈桿法）§11-1269-270 30 SC 單層鋼筋混凝土框架地震反應(yīng)時(shí)程分析 §11-2 275-279 注：表中頁(yè)碼為該程序例題所在位置。計(jì)算程序 G-1主程序1.程序名：PF1“=2 'X ：（輸入積分上限）“=? -N :（輸入劃分的小梯形的數(shù)量 > 50 0.5 T :（將0.5賦給初始面積）“WgX- NHW :（計(jì)算每一個(gè)小梯形的寬度）For 1 -I To N（確定循環(huán)初值和終值）" T="（）-T （計(jì)算第個(gè)小梯形中點(diǎn)的橫坐標(biāo)）"H='：（1+W）八（-T2攵）-H （計(jì)算第個(gè)小梯形中點(diǎn)的高度）A

7、 + WH>A （累計(jì)曲邊梯形的面積，即）Next “=”1-A （輸生失效概率）* * * 2.程序名：【BEITA】-M :（輸入截面承載力平均值）rfN :（輸入軸力平均值）-R :（輸入截面承載力標(biāo)準(zhǔn)差）“2 - S :（輸入軸力標(biāo)準(zhǔn)差）%:（輸由可靠指標(biāo)）* * * 3.程序名：M1 "J "?-J（由荷載開始計(jì)算則 J輸入1;否則If J=1:Then:輸入 2 ）“ “ ？-U?F?>SLbl 1:"b "？B“h "？-H“q= ”:1.2U+1.2(BH X 25+ 106)+1.4V fQ/“M= "：

8、0.125QS2 T Goto 3: Else If J=2:Then :Lbl 2:"b "？f“h "？-H“ M " ？-MIfEnd :IfEnd :Lbl 3:Prog "C20 ”Prog "G"“ " ?F“=”-A'0 :“min1= ":0.002 fR /"min2= ":0.45r +YT“=”:X-0.5X) -Z/"= "：MX 106+(FBO2«If L>Z AndJ=1:Then Goto 1:Else If

9、L>Z And J=2:Then Goto 2 :IfEnd :IfEnd :“=”:(1+2L) +2-G，"As= ”:MX 106+(YGO)IfA/(BH) > R And A + (BH) > r:Then"As= ":A Else If RBH>rBH:Then :"As= " ：RBH-U Else If RBHZ:Then Goto 1:Else :“s= "：(1M3L) +2-G，"As= ":MX 10 6+(YGO)-A /IfEnd :If A (1000H)>

10、;R And A -(1000H) > r:Then“As ”:A Else If:RX1000H >r >1000H:Then :“Asmin= "：Rx 1000HElse If:RX1000H<r >1000H:Then :“Asmin= "：r x 1000H/A IfEnd :IfEnd :IfEnd :Lbl 2:Prog “JIAN* * * 5.程序名：M2“b "？f:B“h "？-H“As "？fA“c "？YC“d "？f“=”田-0.5 X r0:Prog "G

11、"Prog "C20 ”min1= ":0.002 "min1= ":0.45r +" r"= ”:A + (BH)TRIf R0.25FBO:Then Goto 1: Else If VW 0.7rBO:Then“svmin= " ：0.24r -YRM"d "？-D: "n ”:？fN“Asv1= ":0.25piD2“S= ":NA+(MB)T“OKNIfEnd :IfEnd :PX 1000fP:If P V->0.75:Then Goto 2:IfE

12、nd :“Asv+S= "-:0V7rBO) +(YO)-ZJ Lbl 3:"d "？-D: "n："？-N“Asv1= ":0.25piD2 7"s= ":NA + Z"s "？T"sv= "：NA+(BS)AR “svmin= " ：0.24r -YR f R > M:Then“OKN Else "s= "：NA+(M*TfEnd :Goto 4: Lbl 2: "a "？-X: "=":X

13、63;>If L v 1.5:Then1.5fL， Else If L>3:Then 3 -U IfEnd:IfEnd :“Asv + s= '-1C75rBO+(L+1) +Y8Z， Goto 3: Lbl4: “J "？-JIf J=1:Then "V= " ：0.7BOr+YNAO + S-Q / Else“V= "：1.75rBO +(L+1)+YNAOQfEnd :“fy "？T ""2 "W= "AQHW :"Asb= ”:W+ (0.8 XUX sirn5) &

14、quot;OK“ * * * 9程序名：N" "？'L: "b "？-B: "h "？-H: "m= ":L + BfXIf X w8:Then“="：1T Else If X >8 And X < 16:Then “4.8125 10A (-5)(X-12) A (4)-1.04166 10 A (-4)(X-12) A 3+3.125 M0 A (-4)(X-12)2-0.0145833(X- 12)+0.95 -Q/ Else If X>16 And X< 24:Th

15、en :“=-0：0000521(X-20)A(4)+0.001458(X-20)A-0.0275(X-20)+0.75->Q / Else If X>24 And X < 32:Then"=” :0.00002604-X8)A-0.0001042(X-28)A(3)-0.0001042(X-28)2-0.01958 X(X-28)+0.56 -Q/ Else If X >32 And X<40:Then：“ = -0：02(X-36)+0.4 -Q/ Else If X >40 And X < 48:Then："=” :0.000

16、02604-X4) A (4)+0.0001042(X-44) A (3) -0.0001042(X-44)2-0.01542(X-44)+0.26 -Q/ Else If X>48And X < 50:Then :"=”:0.01 W®.19Q/IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd“N "？-N"Ac= ":BHT Prog "C20 ”:Prog : "G""As= ":(N +(0.9-FSQ) Y-A，“As,min= "

17、;:0.006S JR IfAP:Then "As= " ：(N + (0-FS YQY-F) -A/ Goto 1:IfEnd :If A >R And A < P:Then "As= Goto 1:IfEnd :Lbl 1:Prog “ DAS “ * * *®名：S-ZHU “N " ？ - N Lbl 6 :? RLbl 2 :“dc ” ? fList 1 畫? :'LProg "C20 ”Prog "G"“ m=:"L- List 15 X "二:0.000027

18、21 (X-10.5) A 4 0.000081633 (X 10.5) A 3If0.0015578 (X 10.5)2 0.01757 (X-10.5)+0.95 -Q/X< 12Then Goto 1 :Else Goto 2 :IfEnd :Lbl 1 :"As=:" 0.25RList 152 S“d "？fn:S+ 0.25D2 1" n :“？0.25D2 -S，Ac：0.25List 152A / Lbl 4 :If S + AW 0.03Then :"Nu=:"0.9Q(FA+YS) -U / Else &qu

19、ot; Nu= " :0.9Q(F(-S)+YS) -U /IfEnd :If N >U And NW1.5UThen Goto 3 :Else If N v U :Then “ NU Else If N >1.5U:Then Prog ": G "Goto4 :IfEnd :IfEnd :IfEnd :Lbl 3 :dcor=:List 15 -2X 30fD，"Acor=: “0.25D2-List 11 / "fyv ”？ZAssO:(NW.9) FXList 11YS)+2Z- List 12 / If List 12 &g

20、t;0.25SThen Goto 5 :Else Goto 6:IfEnd :Lbl 5 :Ass1: 0.25 - List 13:“ S= ":D X List 13+ List 12| If 40Then “ Ok”Else Goto 5:IfEnd :* * *11.程序名：N1-M1 "N "？-H“M1 "？'M: "M2 "？-U“b "？-B“h ”？H: "= = ":?fA"10= "？-L“h0= "-AA0 / Prog "C20 ”

21、Prog "G"“=”:U + Nhrf Prog "315 ”“A="：BH-W，"I= "：BH 3+12f1，"i= "：(I +WI“J= "-32 和+U)-J / If N/FBHW 0.9:Then Goto 3:E1seGoto 4:IfEnd :Lbl 3:If L - I < J And M - U< 0.9:ThernJU Goto 5:IfEnd :Lbl 4:"= ”:0.5FBH Hf>1:Then 1/ IfEnd :“="：1+(L +

22、H)2Theta +(1300 X E+ O)-T/" Cm= ” :0.7+0,3 x (M + U) - List J1f List 11X:Then Goto1: Else If KO 2A:Then "e= "：E+(H-A琢 /“As=As="：(NEFBO2K(1-0.5K) Y(O-A)-A / Goto 2: Else IfKO1:Then 1 " IfEnd:“="：1+(L/H)2 + (1300(E) +O)-T/"Cm= ”:0.7+0.3 x(M+U)TLst / If List 110.3 OTh

23、en "A s = "？f“e ” :E+(H -A->)E / Else Goto 4: IfEnd :If S=0:Then"As = ":(NEFBO2X(1-0.5X) ¥(O-A) -S /Else Goto 2: IfEnd :If S >0.002BH:Then "As ”:(EBOXY)+List 22 fList 12 / IfEnd :“OK：If S v0.002BH:Then "A s= ”:0.002 x BHS'd= "？yD“ 一 “ n二:S+ 0.25D2 -匕

24、 "n= "?->P“As= "PX :0.25D2SIfEnd :Lbl 2: "Mu ":NEYS(O-A)-，“s " ： + (FBO2) - Uist1，“ “-(1-2List 111) fKJ "Z ”:2A + CHtf If K < X AndK> Z:Then "As " ：(FBKO+N/ Yf List 12 , "OK:"Else If K- 4 X PR) + (2P) M " X2 '-Q-(Q 4 X PR) + (2

25、P) -D:C - Oh< If G w3:Then“s ”:(-K8) (X-0.8) XYT Else :“s ”:(-K8) (X-0.8) L抬t 22fI，IfEnd :If I >0:Then "A s= " :(NTFBC(O-0.5 C) (Y(O-A) -S /Goto 6 :IfEnd :If I:Then Goto 8: IfEnd :IfEnd: Lbl 7: If KH:Then“X= ":H* Else "X= "： x%CIfEnd :If IJ:Then I f D:Else J : fDIfEnd

26、:If N>FBH:Then "e ”:0.5HA-(M E-D)-E/“As " ：(NEBH(O-0.5H) (Y(O- A) -S，IfEnd :"OK“ *13.程序名：【PXL】“M "？-M: "N "？-N: "b "？-B: "h "？H:as=as ' "Prog “C20”:Prog "G "： "e0= ”:M+NHrf "h0= "-AH0 ,If E< 0.5HA:Then "e=

27、 " ：0.5A-E- List 11 /"e=":0.5HA+E- List 12 / Else Goto 1: IfEnd :"As= ":N List 12 (Y(O-A) -S，Prog "P " IfB=1000:ThenProg “JIAN1 "Goto 3 :IfEnd :“d "？-D "n= ":S 令 0.25 X) / Lbl 3:"As ":NXList11 (Y(O-A) - S，Prog"P1 ”If B=1000:Then P

28、rog“JIA N1 "Else:Goto 2: IfEnd :Lbl 1: "e= "-1E5H+A -List 11，"e= ":0.5HA+ List 12， "AS' = ”:(NLis(1-FBO2X(1-0.5X) (Y(O-A) - S， Prog " R1 "If B=1000:Then Prog“JIA N1 "Goto 4 :Else：Goto 5: IfEnd :Lbl 5:"d "？-D“n "： S +0.25D2"n "

29、？-W: "AS' = "：WX0.25D2Lbl4: “s= "：(NList1-YS(O-A) +(FBO2)-LJ "= -(1-2L) -K /If K >2A- O:Then "As= " ：(N+FBOX+YS) mYHse : "As= ":N List 12-A)Y(OS，IfEnd :Prog "P "If B=1000:Then ProgJIAN1:Else Goto 2: IfEnd“OK:“Lbl 2:"d "？-D0.25D2 -A :

30、n :S:-A* * * 14.程序名:MTV1 H Prog : " C20 "Prog “ GLbl 1: If B>H:Then:(H2 引項(xiàng)3WXJ Else：:(B2 + 6)(3B)KfflV / IfEnd :“ “？'A "-AW / If T< 0.175W:Then 0-T， "-NO"，If ListIfEnd :V + (BO)+T + (0.8 X WH LiS(15 115>0.25F:Then“ “ ？-BGoto 1: IfEnd :If V +(BO)+T + WC 0.7 x r:Then-OK“TV IfEnd:If V < 0.35rBO:Then 0 "“¥NO"，IfEnd:“s “:M+(FBO2)fL /:(1+2L) + 2-G“ “-(1-2L) -K，If K <X: Then:M+(GOY)T Else :“ “ ？f ?fGoto 1: IfEnd :P