《混凝土结构设计与算例》配套程序.doc

混凝土结构设计与算例配套程序计算程序索引编号主程序名子程序名程序功能说明章 节页 次1PF-已知可靠指标，求失效概率2-2122BEITA-已知结构钢拉杆内力和承载力统计特性，求拉杆的可靠指标2-2143M1C20，G，D-AS，P，JIAN单筋矩形截面梁、单向板配筋计算4-657-60、4YUPENC20，G，JIAN雨篷板配筋计算4-661-625M2C20，G，D-AS，单筋矩形截面梁、单向板承载力计算4-6636M3C20，G，D-AS，双筋矩形截面梁配筋计算4-667-727TC20，G，D-AS，T形截面梁配筋计算4-676-78、80-828VC20，G，P受弯构件斜截面受剪承载力计算5-492-93、95-96、989NC20，G，D-AS配置普通箍筋轴心受压构件正截面承载力计算6-311110S-ZHUC20，G，D-AS配置螺旋箍筋轴心受压构件正截面承载力计算6-3115-11、119-120、12211N1-M1C20，G，D-AS，315矩形截面对称配筋偏心受压构件正截面承载力计算6-6139-141、143-144、146、12N2-M2C20，G，D-AS，315矩形截面非对称配筋偏心受压构件正截面承载力计算6-7151-152、154、157-158、160-161、164-165、167-168、170-17113PXLC20，G，JIAN1 P，P1偏心受拉构件正截面承载力计算7-3179-18514MTV1C20，G，P矩形截面弯剪扭构件承载力计算8-4201-20215MTV2C20，GT形截面弯剪扭构件承载力计算8-4206-21116F-WC20，G钢筋混凝土受弯构件挠度计算9-1220-223、22517WCR1C20，G钢筋混凝土受拉构件裂缝宽度计算9-2229-23218WCR2C20，G钢筋混凝土受弯构件裂缝宽度计算9-222419SB-1SH-1双向板四边嵌固时配筋计算10-1249-25020SB-2SH-1双向板一长边简支其他三边嵌固时配筋计算10-121SB-3SH-1双向板一短边简支其他三边嵌固时配筋计算10-122SB-4SH-1双向板二邻边简支其他二边嵌固时配筋计算10-123SB-5SH-1双向板二短边简支二长边嵌固时配筋计算10-125124SB-6SH-1双向板二长边简支二短边嵌固时配筋计算10-125025SB-7SH-1双向板三边简支一长边嵌固时配筋的计算10-126SB-8SH-1双向板三边简支一短边嵌固时配筋计算10-127SB-9SH-1双向板四边简支时配筋计算10-125228LOUTIJIAN钢筋混凝土板式楼梯配筋计算10-225629DJLFII,FKI弹性地基梁的计算（链杆法）11-1269-27030SC单层钢筋混凝土框架地震反应时程分析11-2275-279注：表中页码为该程序例题所在位置。计算程序G-1主程序1.程序名：【PF】“=”？X： （输入积分上限）“=”？N： （输入划分的小梯形的数量50）0.5A： （将0.5赋给初始面积）“W=”：XNW： （计算每一个小梯形的宽度）For 1I To N： （确定循环初值和终值）“T=”：（）T （计算第个小梯形中点的横坐标）“H=”：（1（）（-T22）H （计算第个小梯形中点的高度）“=”：AWHA (累计曲边梯形的面积,即）Next“=”：1-A （输出失效概率） * * *2.程序名：【BEITA】 “”？M： （输入截面承载力平均值）“”？N： （输入轴力平均值）“”？R： （输入截面承载力标准差）“”？S： （输入轴力标准差）“”： （输出可靠指标） * * *3. 程序名：【M1】J?J： （由荷载开始计算则J输入1；否则If J=1:Then： 输入 2 ）?U：?V：?S：Lbl 1:b?B：h?H：q=:1.2U+1.2(BH25106)+1.4VQM=:0.125QS2MGoto 3:Else If J=2:Then ：Lbl 2:b?B：h?H：M?M： IfEnd：IfEnd：Lbl 3:Prog C20：Prog G：?A：=:H-AO：min1=:0.002Rmin2=:0.45rY=:X(1-0.5X)Z=:M106(FBO2)LIf LZ And J=1:Then Goto 1:Else If LZ And J=2:Then Goto 2：IfEnd：IfEnd：=:(1+(1-2L)2GAs=:M106(YGO)AIf A/(BH) R And A(BH)r:Then： As=:AElse If RBHrBH:Then： As=:RBHAElse If RBHZ:Then Goto 1:Else ：s=:(1+(1-2L)2GAs=:M106(YGO)AIfEnd：If A(1000H)R And A(1000H)r:Then： As:AElse If： R1000Hr1000H:Then： Asmin=:R1000HAElse If：R1000Hr1000H:Then ：Asmin=:r1000HAIfEnd：IfEnd：IfEnd：Lbl 2:Prog JIAN：* * *5.程序名：【M2】b?B：h?H：As?A：c?C：d?D：=:H-C-0.5DO：Prog G：Prog C20：min1=:0.002min1=:0.45rYr=:A(BH)RIf R0.002 and Rr:Then ：Stop=:IfEnd：If R0.002 And Rr：Then max=:XFYIfEnd：If R0.25FBO:Then Goto 1:Else If V0.7rBO:Then svmin=:0.24rYMd?D:n?N：Asv1=:0.25piD2AS=:NA(MB)SOKIfEnd：IfEnd：P1000P：If PV0.75:Then Goto 2：IfEnd：AsvS=:(V-0.7rBO)(YO)ZLbl 3:d?D:n?N：Asv1=:0.25piD2As=:NAZSs?Ssv=:NA(BS)Rsvmin=:0.24rYMIf RM:Then OKElse s=:NA(MB)SIfEnd：Goto 4:Lbl 2:a?X:=:XOLIf L1.5:Then 1.5LElse If L3:Then 3LIfEnd：IfEnd：Asvs=:(V-1.75rBO(L+1)YOZGoto 3:Lbl 4:J?J：If J=1:Then V=:0.7BOr+YNAOSQElse V=:1.75rBO(L+1)+YNAOSQIfEnd：fy?U?W=:V-QW：Asb=:W(0.8Usin 45) OK* * *9.程序名：【N】?L:b?B:h?H:m=:LBX：If X8:Then ：=:1QElse If X8 And X16:Then =:-7.812510(-5)(X-12)(4)-1.0416610(-4)(X-12)3+3.12510(-4)(X-12)2-0.0145833(X-12)+0.95QElse If X16 And X24:Then ：=:-0.0000521(X-20)(4)+0.001458(X-20)-0.0275(X-20)+0.75-QElse If X24 And X32:Then ：=:0.00002604(X-28)(4)-0.0001042(X-28)(3)-0.0001042(X-28)2-0.01958(X-28)+0.56QElse If X32 And X40:Then： =:-0.02(X-36)+0.4QElse If X40 And X48:Then ：=:0.00002604(X-44)(4)+0.0001042(X-44)(3) -0.0001042(X-44)2-0.01542(X-44)+0.26QElse If X48 And X50:Then ：=:0.01(50-X)+0.19QIfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd：N?N：Ac=:BHSProg C20:Prog G：As=:(N(0.9Q)-FS)YAAs,min=:0.006SRIf AP:Then As=:(N(0.9Q)-FS)1(Y-F)AGoto 1:IfEnd：If AR And AP:Then As=:AGoto 1:IfEnd：Lbl 1:Prog DAS* * *10.程序名：【S-ZHU】N ? NLbl 6： ? RLbl 2：dc ? List 15 ? L：Prog C20：Prog G：m=：LList 15 X：=：0.00002721(X-10.5)40.000081633(X10.5)30.0015578(X10.5)20.01757(X-10.5)+0.95QIf X12：Then Goto 1：Else Goto 2：IfEnd：Lbl 1：As=：0.25RList 152S：d?D：n：S0.25D2n?：As：0.25D2SAc：0.25List 152ALbl 4：If SA0.03：Then ：Nu=：0.9Q(FA+YS) UElse Nu=:0.9Q(F(A-S)+YS) U IfEnd：If NU And N1.5U：Then Goto 3：Else If NU：Then “NO”Else If N 1.5U：Then Prog G：Goto4：IfEnd：IfEnd：IfEnd：Lbl 3：dcor=：List 15230DAcor=：0.25D2List 11 fyv?Z：Ass0：（(N0.9)FList 11YS)2ZList 12 If List 120.25S：Then Goto 5：Else Goto 6：IfEnd：Lbl 5：dss1?：Ass1：0.25List 13：S=:DList 13List 12WIf W40：Then “Ok”：Else Goto 5：IfEnd：* * *11.程序名：【N1-M1】N?N：M1?M:M2?U：b?B：h?H:=?A：l0=?L：h0=:H-AOProg C20：Prog G：=:UNEProg 315：A=:BHWI=:BH312Ii=:(IW)IJ=:34-12(MU)JIf N/FBH0.9:Then Goto 3:Else Goto 4:IfEnd：Lbl 3:If LIJ And MU0.9:Then UMGoto 5:IfEnd：Lbl 4:=:0.5FBHNIf1:Then 1IfEnd：=:1+(LH)2Theta(1300EO)TCm=:0.7+0.3(MU)List 11 If List 110.7:Then 0.7List 11 IfEnd：M=:List 11TUMIf TList 11X:Then Goto 1:Else If KO2A:Then e=:E+(H2)-AEAs=As=:(NE-FBO2K(1-0.5K)Y(O-A)AGoto 2:Else If KO1:Then 1IfEnd：=:1+(L/H)2(1300(E)O)TCm=:0.7+0.3(MU)List 11 If List 110.7:Then 0.7List 11 IfEnd：M=:List 11TUMIf TList 110.3O:Then As=?S：e:E+(H2)-A-EElse Goto 4:IfEnd：If S=0:Then As=:(NE-FBO2X(1-0.5X)Y(O-A)SElse Goto 2:IfEnd：If S0.002BH:Then As:(FBOX-N+SY)List 22List 12IfEnd：OK：If S0.002BH:Then As=:0.002BHSd=?D：n=：S0.25D2Pn=?P：As=P:0.25D2SIfEnd：Lbl 2:Mu:NE-YS(O-A)s:(FBO2)List 111:1-(1-2List 111)KZ:2AOZIf KX And KZ:Then As:(FBKO+SY-N)YList 12 OK：Else If KZ:Then：e0:MNE：Prog 315：e:E-(H2)+AE：As:(NE)(List 22(O-A)List 12Goto 6：OKElse If KX:Then Goto 4:IfEnd：IfEnd：IfEnd：Lbl 4:e=:(H2)-E-A-We:E+H2-ATIf G3:Then cy:20.8-X Else ：cy:1.099IfEnd：V:0.002BH(O-A)List 22Abs (X-0.8)VA:0.5FBPB:-AFB+(VO)QC:-(0.8V+NW)RX1:(-Q+(Q-4PR)(2P)CX2:(-Q-(Q-4PR)(2P)D：:COKIf G3:Then ：s:(K-0.8)(X-0.8)YIElse ：s:(K-0.8)(X-0.8)List 22IIfEnd： If I0:Then As=:(NT-FBC(O-0.5C)(Y(O-A)SGoto 6：IfEnd：If I0 And K:Then Goto 7:Else If I:Then Goto 8:IfEnd：IfEnd:Lbl 7:If K And CH:Then As=:(N-FBC+0.002BHI)YSGoto 6：IfEnd：If KH:Then ：X=:HCElse X=:OCIfEnd：If IJ:Then ID:Else JD：IfEnd：If NFBH:Then e:0.5H-A-(MN-D)EAs:(NE-FBH(O-0.5H)(Y(O-A)SIfEnd：OK * * *13.程序名:【PXL】M?M:N?N:b?B:h?H:as=as?A：Prog C20:Prog G:e0=:MNEh0=:H-AOIf E0.5H-A:Then e=:0.5H-A-EList 11 e=:0.5H-A+EList 12Else Goto 1:IfEnd：As=:N List 12(Y(O-A)SProg PIf B=1000:Then Prog JIAN1：Goto 3：IfEnd：d?Dn=:S（0.25） Lbl 3:As:NList 11(Y(O-A)SProg P1：If B=1000:Then Prog JIAN1：Else： Goto 2:IfEnd：Lbl 1:e=:E-0.5H+AList 11 e=:0.5H-A+EList 12AS=:(NList 11-FBO2X(1-0.5X)(Y(O-A)SProg P1：If B=1000:Then Prog JIAN1：Goto 4：Else： Goto 5:IfEnd：Lbl 5:d?D：n: S0.25D2n?W:AS=: W0.25D2SLbl 4: s=:(NList11-YS(O-A)(FBO2)L=:1-(1-2L)KIf K2AO:Then As=:(N+FBOX+YS)YSElse ：As=:N List 12(Y(O-A)SIfEnd：Prog P：If B=1000:Then Prog JIAN1:Else Goto 2:IfEnd：OK：Lbl 2:d?D：0.25D2A：n:SA：* * *14.程序名：【MTV1】?M：?V：?T：?B?HProg C20：Prog G：Lbl 1:If BH:Then :(H26)(3B-H)WElse： :(B26)(3H-B)WIfEnd：?A:H-AOIf T0.175W:Then 0TT-NOIfEnd：:V(BO)+T(0.8W)List 115If List 1150.25F:Then ?B：?B：Goto 1:IfEnd：If V(BO)+TW0.7r:Then TV-OKIfEnd：If V0.35rBO:Then 0V：V-NOIfEnd：s:M(FBO2)Ls:(1+(1-2L)2G:1-(1-2L)KIf KX: Then： :M(GOY)SElse ：?B：?H：Goto 1:IfEnd：Prog P：cor:B-2(A-10) List 116cor:H-2(A-10)List 117 cor:List 116List 117List 19 cor:2(List 116+List 117)List 18 :1.5(1+0.5VW(TBO)If1:Then 1Else If 2:Then 2:IfEnd；stL,min=:0.6()rYUstL:UBHMIf KM:Then stL=:KElse If KD:List 31(D24)OKstL2:KList 117List 18List 32?D:List 32(D24)OKs-:S+K(List 116List 18)As-:A/(BH)Rs1:0.002Ps2:0.45rYQIf PQ:Then PList 210Else QList 210IfEnd：min:List 210+UUIf RU:Then A1:AElse A2:UBHAIfEnd：?I：If I=1:Then ?D:：:A(0.25D2)NElse If I=2:Then： 1?D1?N1:N(0.25D2)2:A-2:?-D2: (0.25D2)NIfEnd：IfEnd：* * *15.程序名：【MTV2】M?M：V?V：T?T：b?B：h?H：bf?List 11：hf?List 12：Prog C20：Prog G：Lbl 1:Wtw:(B26)(3H-B)IWtf:(0.5List 122)(List 11-B)JWt:I+JWas?A：h0:H-AOIf T0.175W:Then 0T：T-NOIfEnd：VT:V(BO)+T(0.8*W)List 115If List 1150.25F:Then b?B：h?H：Goto 1:IfEnd：If V(BO)+TW0.7r:Then TV-OK：IfEndIf V0.35rBO:Then 0V：V-NOIfEnd：Mu:FList 11List 12(O-0.5List 12)List 21 If MList 21:Then： s:M(FList11O2)Ls:(1+(1-2L)2G:1-(1-2L)KElse Goto 7:IfEnd：If KX:Then b?B：h?H： Goto 1:IfEnd：As:M(GOY)SProg P：Goto 4:Lbl 7:As1:F(List 11-B)List 12YList 114Mu1:F(List 11-B)List 12(O-List122)QMu2:M-QMs:M(FBO2)Ls:(1+(1-2L)2G:1-(1-2LKIf KX:Then： As2:M(GOY)SProg P：AS:List 114+SSElse： b?B:h?H：Goto 1:IfEnd：Lbl 4:Tw:(IW)TList 13 Tf:T-List 13List 14bcor:B-2(A-10)List 116hcor:H-2(A-10)List 117 Acor:List 116List 117List 19ucor:2(List 116+List 117)List 18 :1.5(1+0.5VI(List 13BO)If 1:Then 1： Else If 2:Then 2:IfEnd：stL,min=:0.6()rYUUBHM：If KM:Then AstL=:KElse If KQ:Then PList 210：Else QList 210：IfEnd：min-:List 210+UUIf RU:Then A1:AElse A2:UBHAIfEnd：I?I：If I=1:Then d?D:n:A(0.25D2)NGoto 9:Else If I=2:Then： d1?D：n1?N：A1:N(0.25D2)：A2:A-：d2:?D：n2: (0.25D2)NIfEnd：IfEnd：Lbl 9:as?A：Acor:(List 11-B-2A)(List 12-2A)ucor:(List 11-B+List 12-4A)2UAst1s:(List 14-0.35rJ)(1.2(Z)C)Pd:?D：a:0.25D2A：s:APSs?S：sv:2A(SList 12)R：If RW:Then： OK：Else WList 12S2Q：Asv1:QIfEnd：AstL:ZPCUYK:0.6(2)rYRIf KRList 12(List 11-B):Then：AstL：KElse RList 12(List 11-B)KAstL:KIfEnd：d:?D：n=:K0.25D2N* * *16.程序名：【F-W】b?B：h?H：bf?T：hf?W：bf?List 21：hf?List 23：?L：J?J：If J=1:Then ：gk:?G：qk:?Q：q?Z：Mq:0.125(G+ZQ)L2MGoto 2:Else If J=2:Then ：M?M：IfEnd：IfEnd：Lbl 2:as?R：As?A：As?S：Prog C20：Prog G：h0:H-ROsq:M106(0.87AO)Nte:A(0.5BH+(T-B)W)RIf R0.01:Then 0.01R:IfEnd：:1.1-0.65K(RN)PIf P1:Then 1P:Else If P0.2:Then 0.2PIfEnd：IfEnd：:A(BO)List 12:S(BO)List 13:2105EXf:(List 21-B)List 23(BO)GBs:2105AO2(1.15P+0.2+6XList 12(1+3.5G)D:1.6+0.4(1-List 13List 12)I?IIf