《混凝土结构设计与算例配套程序》由会员分享，可在线阅读，更多相关《混凝土结构设计与算例配套程序（16页珍藏版）》请在金锄头文库上搜索。
1、混凝土结构设计与算例配套程序混凝土结构设计与算例配套程序混凝土结构设计与算例配套程序计算程序索引 编号 主程序名 子程序名程序功能说明 章节页次1 PF -已知可靠指标，求失 效概率 8-2 12 2 BEITA -已知结构钢拉杆内力和承载力统 计特性，求拉杆的可靠指标8-2 14 3 M1 C20 , G, D-AS ,P, JIAN单筋矩形截面梁、单向板配筋计算孙6 57-60、4YUPEN C20, G, JIAN 雨篷板配筋计算4-6 61-62 5 M2C20,G,D-AS,单筋矩形截面梁、单向板承载力 计算4-6 63 6 M3 C20, G, D-AS ,双筋矩形截面梁配筋计算4
2、-667-72 7 T C20 , G, D-AS , T 形截面梁配筋计算4-6 76-78、80-82 8 V C20 , G, P受弯构件斜截面受剪承载力计算5-492-93、95-96、98 9 N C20 , G, D-AS 配置普通箍筋轴心受 压构件正截 面承载力计算6-3 111 10 S-ZHU C20 , G, D-AS配置螺旋箍筋轴心受压构件正截 面承载力计算6-3 115-11、119-120、122 11 N1-M1 C20 , G, D-AS , 315 矩形 截面对称配筋偏心受压构件正截面承载力计算 6-6 139-141、143-144、146、 12 N2-M2
3、 C20 , G, D-AS , 315 矩 形截面非对称配筋偏心受压构件正截面承载力计算6-7151-152、154、157-158、160-161、164-165、167-168 170-171 13 PXL C20 , G, JIAN1 P, P1偏心受拉构件正截面承载力 计算 7-3 179-185 14 MTV1 C20 , G, P矩形截面弯剪扭构件承载力计算8-4 201-202 15 MTV2 C20 , G T形截面弯剪扭构件承载力计算8-4 206-211 16 F-W C20 , G钢筋混凝土受弯构件挠度计算9-1 220-223、225 17 WCR1 C20 , G钢
4、筋混凝土受拉构件裂缝宽度计算9-2 229-232 18 WCR2C20, G钢筋混凝土受弯构件裂缝宽度计算9-2 224 19SB-1 SH-1双向板四边嵌固时配筋计算10-1 249-250 20SB-2 SH-1双向板一长边简支其他三边嵌固时配筋计算 10-1 21 SB-3 SH-1双向板一短边简支其他三边嵌固时 配筋计算10-1 22 SB-4 SH-1双向板二邻边简支其他二边嵌固时配筋计算10-1 23 SB-5 SH-1双向板二短边简支二长边嵌固时配筋计算10-1 251 24 SB-6 SH-1双向板二长边简支二短边嵌固时配筋计算10-1 250 25 SB-7SH-1双向板三
5、边简支一长边嵌固时配筋的计算10-1 26 SB-8 SH-1双向板 三边简 支一短 边嵌固 时配筋 计算 10-1 27 SB-9 SH-1双向板四边简支时配筋计算10-1252 28 LOUTI JIAN钢筋混凝土板式楼梯配筋计算10-2256 29 DJL FII,FKI弹性地基梁的计算（链杆法）11-1269-270 30 SC 单层钢筋混凝土框架地震反应时程分析 11-2 275-279 注：表中页码为该程序例题所在位置。计算程序 G-1主程序1.程序名：PF1“=2 X ：（输入积分上限）“=? -N :（输入划分的小梯形的数量 50 0.5 T :（将0.5赋给初始面积）“WgX
6、- NHW :（计算每一个小梯形的宽度）For 1 -I To N（确定循环初值和终值） T=（）-T （计算第个小梯形中点的横坐标）H=：（1+W）八（-T2攵）-H （计算第个小梯形中点的高度）A + WHA （累计曲边梯形的面积，即）Next “=”1-A （输生失效概率）* * * 2.程序名：【BEITA】-M :（输入截面承载力平均值）rfN :（输入轴力平均值）-R :（输入截面承载力标准差）“2 - S :（输入轴力标准差）%:（输由可靠指标）* * * 3.程序名：M1 J ?-J（由荷载开始计算则 J输入1;否则If J=1:Then:输入 2 ）“ “ ？-U?F?SLb
7、l 1:b ？B“h ？-H“q= ”:1.2U+1.2(BH X 25+ 106)+1.4V fQ/“M= ：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“=”-A0 :“min1= :0.002 fR /min2= :0.45r +YT“=”:X-0.5X) -Z/= ：MX 106+(FBO2If LZ AndJ=1:Then Goto 1:Else If LZ And J=2:Then Goto 2 :IfEnd :IfEnd :“
8、=”:(1+2L) +2-G，As= ”:MX 106+(YGO)IfA/(BH) R And A + (BH) r:ThenAs= :A Else If RBHrBH: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)R And A -(1000H) r:Then“As ”:A Else If:RX1000H r 1000H:Then :“Asmin= ：Rx 1000HElse If:RX1000H1000H:Then :“Asm
9、in= ：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 GProg 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 -YRMd ？-D: n ”:？fN“Asv1= :0.25piD2“S= :NA+(MB)T“OKNIfEnd :IfEnd :P
10、X 1000fP:If P V-0.75:Then Goto 2:IfEnd :“Asv+S= -:0V7rBO) +(YO)-ZJ Lbl 3:d ？-D: n：？-N“Asv1= :0.25piD2 7s= :NA + Zs ？Tsv= ：NA+(BS)AR “svmin= ：0.24r -YR f R M:Then“OKN Else s= ：NA+(M*TfEnd :Goto 4: Lbl 2: a ？-X: =:XIf L v 1.5:Then1.5fL， Else If L3:Then 3 -U IfEnd:IfEnd :“Asv + s= -1C75rBO+(L+1) +Y8Z，
11、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) OK“ * * * 9程序名：N ？L: b ？-B: h ？-H: m= :L + BfXIf X w8:Then“=：1T Else If X 8 And X 16 And XQ / Else If X24 And X 32 And X40 And X 48And X R And A P:Then As= Goto 1:If
12、End :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.00002721 (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 Nu= :0.9Q(F(-S)
