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

1、.混凝土结构设计与算例配套程序计算程序索引编号主程序名子程序名程序功能说明章 节页 次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形截面梁配

2、筋计算§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

3、-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钢筋混凝土受弯构件裂缝宽度计算&

4、#167;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双向板

5、三边简支一短边嵌固时配筋计算§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=”：X÷NW： （计算每一个小梯形的宽度）For

6、 1I To N： （确定循环初值和终值）“T=”：（）T （计算第个小梯形中点的横坐标）“H=”：（1÷（）（-T2÷2）H （计算第个小梯形中点的高度）“=”：AWHA (累计曲边梯形的面积,即）Next“=”：1-A （输出失效概率） * * *2.程序名：【BEITA】 “”？M： （输入截面承载力平均值）“”？N： （输入轴力平均值）“”？R： （输入截面承载力标准差）“”？S： （输入轴力标准差）“”： （输出可靠指标） * * *3. 程序名：【M1】"J"?J： （由荷载开始计算则J输入1；否则If J=1:Then： 输入 2 ）&qu

7、ot;"?U：""?V：""?S：Lbl 1:"b"?B："h"?H："q=":1.2U+1.2(BH×25÷106)+1.4VQ"M=":0.125QS2MGoto 3:Else If J=2:Then ：Lbl 2:"b"?B："h"?H："M"?M： IfEnd：IfEnd：Lbl 3:Prog "C20"：Prog "G"："&q

8、uot;?A："=":H-AO："min1=":0.002R"min2=":0.45r÷Y"=":X(1-0.5X)Z"=":M×106÷(FBO2)LIf L>Z And J=1:Then Goto 1:Else If L>Z And J=2:Then Goto 2：IfEnd：IfEnd："=":(1+(1-2L)÷2G"As=":M×106÷(YGO)AIf A/(BH) R A

9、nd A÷(BH)r:Then： "As=":AElse If RBH>rBH:Then： "As=":RBHAElse If RBH<rBH:Then ："As=":rBHAIfEnd：IfEnd：IfEnd："I"?I： （如计算的是单向板则输入1，否则输入2）If I=1:Then Goto 4:Else Goto 5:IfEnd：Lbl 4:Prog "JIAN"：Lbl 5:Prog "D-AS"： * * *4.程序名：【YUPENG】Lbl

10、 1:"h1"?H："h2"?S：“”：(H+S)×0.5V：""?S"gk":0.8+V÷1000×25G"M=":(0.5GS2×1.2+1×S×1.4)MProg "C20"：Prog "G"："as"?A："h0":H-AO"min1=":0.002R"min2=":0.45r÷Yr"sb=

11、":X(1-0.5X)Z"s=":M×106÷(1000×FO2)LIf L>Z:Then Goto 1:Else ："s=":(1+(1-2L)÷2G"As=":M×106÷(YGO)AIfEnd：If A÷(1000H)R And A÷(1000H)r:Then： "As":AElse If： R×1000Hr×1000H:Then： "Asmin=":R×1000H

12、AElse If：R×1000Hr×1000H:Then ："Asmin=":r×1000HAIfEnd：IfEnd：IfEnd：Lbl 2:Prog "JIAN"：* * *5.程序名：【M2】"b"?B："h"?H："As"?A："c"?C："d"?D："=":H-C-0.5×DO：Prog "G"：Prog "C20"："min1="

13、;:0.002"min1=":0.45r÷Yr"=":A÷(BH)RIf R<0.002 and R<r:Then ："Stop=":IfEnd：If R0.002 And Rr：Then "max=":XF÷YIfEnd：If R<:Then： "x=":YA÷(FB)X"s=":1-0.5X÷OG"Mu=":GOAYElse ：Prog "G"："sb=&

14、quot;:X(1-0.5X)Z"Mu=":ZFBO2IfEnd：* * *6.程序名：【M3】"M"?M:"b"?B:"h"?H："as'="?S："as="?D："h0=":H-DO：Prog "G"：Prog "C20"："As'"?List 12：Lbl 2:If List 12=0:Then ："Mu=":FBO2X(1-0.5X)rElse Goto

15、 3:IfEnd：If Mr:Then ："As'":(M-XFBO2(1-0.5X)÷(Y(O-S)List 12"d":?D："n":List 12÷(0.7854D2)"As=":(FBOX+YList 12)÷YAElse Stop：IfEnd：Goto 1:Lbl3:"M2=":YList12(O-S)"M1=":M-List 11 "s=":List 11÷(FBO2)L"="

16、:1-(1-2L)K"s=":(1+(1-2L)÷2GIf KX And KO2S:Then ："As=":List 11÷(GYO)+List 12AGoto 1:Else If KX:Then Goto 2:Else If KO2S:Then ："As=":M÷(Y(O-S)AIfEnd：IfEnd：IfEnd：Lbl 1:Prog "D-AS"：* * *7.程序名：【T】"M"?M:Lbl 1:"b"?B:"h"?H:

17、"bf'"?List 11:"hf'"?List 12：Prog "C20"Prog "G"："as"?A："h0=":H-AO："min1=":0.002R："min2=":0.45r÷Yr："Mu=":FList 11×List 12(O-List 12÷2)WIf MW:Then "s=":M÷(FList 11O2)L"sb

18、=":X(1-0.5X)ZElse Goto 2:IfEnd：If LZ:Then Goto 1:Else "s=":(1+(1-2L)÷2GIfEnd"As=":M÷(YGO)AIf A/(BH) R And A÷(BH)r:Then Goto 6:Else If RBHrBH:Then "As=":RBHElse If RBHrBH:Then "As=":rBHIfEnd： IfEnd： IfEnd：Stop：Lbl 2:"As1=":F(List 1

19、1-B)List 12÷YA"Mu1":F(List 11-B)List 12(O-List 12÷2)Q"Mu2":M-QM"s=":M÷(FBO2)L"=":1-(1-2L)K"s=":1-0.5KGIf KX:Then "As2=":M÷(GOY)C"As=":A+CAElse Goto 1:IfEnd：Lbl 6:Prog "D-AS"：* * *8.程序名：【V】"I"

20、;?I：If I=1:Then ："q"?Q:""?L："P"?P："V=":0.5QL+PVElse： "V"?V：IfEnd：Lbl 1:"b"?B:"h"?H："as"?A：Prog "C20"：Prog "G"："h0=":H-AO："V=":1000VV：If V>0.25FBO:Then Goto 1:Else If V0.7rBO:The

21、n "svmin=":0.24r÷YM"d"?D:"n"?N："Asv1=":0.25piD2A"S=":NA÷(MB)S"OK"IfEnd：IfEnd：P×1000P：If P÷V0.75:Then Goto 2：IfEnd："Asv÷S=":(V-0.7rBO)÷(YO)ZLbl 3:"d"?D:"n"?N："Asv1=":0.25p

22、iD2A"s=":NA÷ZS"s"?S"sv=":NA÷(BS)R"svmin=":0.24r÷YMIf RM:Then "OK"Else "s=":NA÷(MB)SIfEnd：Goto 4:Lbl 2:"a"?X:"=":X÷OLIf L1.5:Then 1.5LElse If L3:Then 3LIfEnd：IfEnd："Asv÷s=":(V-1.75r

23、BO÷(L+1)÷YOZGoto 3:Lbl 4:"J"?J：If J=1:Then "V=":0.7BOr+YNAO÷SQElse "V=":1.75rBO÷(L+1)+YNAO÷SQIfEnd："fy"?U""?"W=":V-QW："Asb=":W÷(0.8×U×sin 45) "OK"* * *9.程序名：【N】""?L:"

24、;b"?B:"h"?H:"m=":L÷BX：If X8:Then ："=":1QElse If X8 And X16:Then "=":-7.8125×10(-5)(X-12)(4)-1.04166×10(-4)(X-12)3+3.125×10(-4)(X-12)2-0.0145833(X-12)+0.95QElse If X16 And X24:Then ："=":-0.0000521(X-20)(4)+0.001458(X-20)<2&

25、gt;-0.0275(X-20)+0.75->QElse If X>24 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-

26、44)2-0.01542×(X-44)+0.26QElse If X>48 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.9×Q)-FS)÷YA"As,min=":0.006SRIf A<R:Th

27、en "As,smin=":RAGoto 1:IfEnd："As,3%=":0.03SPIf A>P:Then "As=":(N÷(0.9×Q)-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" ?

28、List 15 "" ? L：Prog "C20"：Prog "G"："m="：L÷List 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&q

29、uot;?D："n"：S÷0.25D2"n"?："As"：0.25D2S"Ac"：0.25List 152ALbl 4：If S÷A0.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：

30、IfEnd：IfEnd：Lbl 3："dcor="：List 152×30D"Acor="：0.25D2List 11 "fyv"?Z："Ass0"：（(N÷0.9)F×List 11YS)÷2ZList 12 If List 120.25S：Then Goto 5：Else Goto 6：IfEnd：Lbl 5："dss1"?："Ass1"：0.25List 13："S=":D×List 13÷

31、List 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"："=":U÷NEProg "315"："A=&quo

32、t;:BHW"I=":BH3÷12I"i=":(I÷W)I"J=":34-12×(M÷U)JIf N/FBH0.9:Then Goto 3:Else Goto 4:IfEnd：Lbl 3:If L÷IJ And M÷U0.9:Then UMGoto 5:IfEnd：Lbl 4:"=":0.5FBH÷NIf>1:Then 1IfEnd："=":1+(L÷H)2Theta÷(1300×E

33、7;O)T"Cm=":0.7+0.3×(M÷U)List 11 If List 11<0.7:Then 0.7List 11 IfEnd："M=":List 11×T×UMIf T×List 11<1:Then UMIfEnd：Lbl 5:"=":M÷NEProg "315"："=":N÷(FBO)KIf K>X:Then Goto 1:Else If KO2A:Then "e=":E+(

34、H÷2)-AE"As=As'=":(NE-FBO2K(1-0.5K)÷Y(O-A)AGoto 2:Else If KO<2A:Then "e'=":E-(H÷2)+AList 12"As=As=":NList 12÷List 22(O-A)AGoto 2：IfEnd：IfEnd：IfEnd：Lbl 1:"e=":E+(H÷2)-AE"=":(N-XFBO)÷(NE-0.43FBO2)÷(0.8-X)(O-

35、A)+FBO)+XK"As=As'=":(NE-K(1-0.5K)FBO2)÷(Y(O-A)ALbl 2:" =":2A÷BHRIf G=2:Then 0.006TElse If G=3:Then 0.0055T:Else If G=4:Then 0.005T：IfEnd：IfEnd：IfEnd：If RT:Then AElse TBH÷2AIfEnd：Prog "D-AS"：* * *12.程序名：【N2-M2】"N"?N："M1"?M:"M2&

36、quot;?U："b"?B"h"?H:"as=as'="?A："="?L："h0=":H-AO：Prog "C20"：Prog "G"："=":U÷NE：Prog "315"："A=":BHW"I=":BH3÷12I"i=":(I÷W)I"J=":34-12×(M÷U)JIf N&

37、#247;FBH0.9:Then Goto 9:Else Goto 1:IfEnd：Lbl 9:If L÷IJ And M÷U0.9:Then UMGoto 5:IfEnd：Lbl 1:"=":0.5FBH÷NIf >1:Then 1IfEnd："=":1+(L/H)2÷(1300(E)÷O)T"Cm=":0.7+0.3×(M÷U)List 11 If List 11<0.7:Then 0.7List 11 IfEnd："M=":Li

38、st 11×T×UMIf T×List 11<1:ThenUM:IfEnd：Lbl 5:"e0=":M÷NE：Prog "315"：If E>0.3×O:Then "As="?S："e":E+(H÷2)-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 &quo

39、t;As":(FBOX-N+SY)÷List 22List 12IfEnd："OK"：If S0.002BH:Then "A's=":0.002×BHS"d="?D："n="：S÷0.25D2P"n="?P："As="P×:0.25D2SIfEnd：Lbl 2:"Mu":NE-YS(O-A)"s":÷(FBO2)List 111"":1-(1-2Li

40、st 111)K"Z":2A÷OZIf KX And KZ:Then "As":(FBKO+SY-N)÷YList 12 "OK"：Else If K<Z:Then："e0":M÷NE：Prog "315"："e'":E-(H÷2)+AE："As":(NE)÷(List 22(O-A)List 12Goto 6："OK"Else If KX:Then Goto 4:IfEn

41、d：IfEnd：IfEnd：Lbl 4:"e'=":(H÷2)-E-A-W"e":E+H÷2-ATIf G3:Then "cy":2×0.8-X Else ："cy":1.099IfEnd："V":0.002×BH(O-A)×List 22÷Abs (X-0.8)V"A":0.5×FBP"B":-A×FB+(V÷O)Q"C":-(0.8V+

42、NW)R"X1":(-Q+(Q<2>-4×PR)÷(2P)C"X2":(-Q-(Q<2>-4×PR)÷(2P)D："":C÷OKIf G3:Then ："s":(K-0.8)÷(X-0.8)×YIElse ："s":(K-0.8)÷(X-0.8)×List 22IIfEnd： If I0:Then "A's=":(NT-FBC(O-0.5×C)&

43、#247;(Y(O-A)SGoto 6：IfEnd：If I<0 And K<:Then Goto 7:Else If I<0 And K>:Then Goto 8:IfEnd：IfEnd:Lbl 7:If K< And C<H:Then "A's=":(N-FBC+0.002BHI)÷YSGoto 6：IfEnd：If K< And CH:Then HC:"":C÷OKIfEnd：If G3:Then "s":(K-0.8)÷(X-0.8)×Y

44、IElse： "s":(K-0.8)÷(X-0.8)×List 22IIfEnd："A's":(NT-FBC(O-0.5C)÷(Y(O-A)S"As":(N-FBC-YS)÷(-I)List 12Goto 6:Lbl 8:If ×O>H:Then ："X=":HCElse "X=":×OCIfEnd：If I<0 And K:Then "A's=":(NT-FBC(O-0.5C)÷

45、;(Y×(O-A)S"As":(N-FBC-YS)÷YList 12IfEnd：Lbl 6:If S0.002BH:Then 0.002BHSIfEnd：If List 120.002BH:Then 0.002BHList 12：IfEnd："OK"：20I:H÷30J:If I>J:Then ID:Else JD：IfEnd：If N>FBH:Then "e'":0.5H-A-(M÷N-D)E"As":(NE-FBH(O-0.5H)÷(Y(O-

46、A)SIfEnd："OK" * * *13.程序名:【PXL】"M"?M:"N"?N:"b"?B:"h"?H:"as=as"?A：Prog "C20":Prog "G":"e0=":M÷NE"h0=":H-AOIf E0.5H-A:Then "e=":0.5H-A-EList 11 "e'=":0.5H-A+EList 12Else Got

47、o 1:IfEnd："As=":N List 12÷(Y(O-A)SProg "P"If B=1000:Then Prog "JIAN1"：Goto 3：IfEnd："d"?D"n=":S÷（0.25×） Lbl 3:"As'":N×List 11÷(Y(O-A)SProg "P1"：If B=1000:Then Prog "JIAN1"：Else： Goto 2:IfEnd：L

48、bl 1:"e=":E-0.5H+AList 11 "e'=":0.5H-A+EList 12"AS=":(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": S÷0.25D2"n"?W:"AS=": W×0.

49、25D2SLbl 4: "s=":(NList11-YS(O-A)÷(FBO2)L"=":1-(1-2L)KIf K2A÷O: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.25

50、D2A："n":S÷A：* * *14.程序名：【MTV1】""?M：""?V：""?T：""?B""?HProg "C20"：Prog "G"：Lbl 1:If B>H:Then "":(H2÷6)(3×B-H)WElse： "":(B2÷6)(3×H-B)WIfEnd：""?A"":H-AOIf T

51、0.175W:Then 0T"T-NO"IfEnd："":V÷(BO)+T÷(0.8×W)List 115If List 115>0.25F:Then ""?B：""?B：Goto 1:IfEnd：If V÷(BO)+T÷W0.7×r:Then "TV-OK"IfEnd：If V0.35rBO:Then 0V："V-NO"IfEnd："s":M÷(FBO2)L"s&quo

52、t;:(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 116"cor":H-2(A-10)List 117 "cor":List 116×List 117List 19 "cor":2(List 116+List 117)L

53、ist 18 "":1.5÷(1+0.5VW÷(TBO)If>1:Then 1Else If <0.5:Then 0.5IfEnd：IfEnd："" ?C：""?N"sv1v÷=":(V-0.7(1.5-)rBO)÷(NCO)P""?Z"st1÷=":(T-0.35rW) ÷(1.2(Z)×C×List 19)E"svmin=":0.28r÷CW"

54、;sv=":N(P+E)÷BList 38If List 38W:Then： ""?D："=":D2÷4A"":A÷(P+E)List34""?List 34"sv":NA÷(BList 34)Else "X=":WB÷NX：""?D：" =":D2÷4A"":A÷X""?List 34IfEnd："sv&q

55、uot;:N(0.25×D2)÷BList 34List 38："OK""stL=":ZCList 18E÷YK"=":T÷(VB)If >2:Then 2:IfEnd；"stL,min=":0.6()×r÷YU"stL":U×BHMIf KM:Then "stL=":KElse If K<M:Then "AstL=":MKIfEnd:IfEnd："stL1&quo

56、t;:K×List 116÷List 18List 31""?->D"":List 31÷(D2÷4)"OK""stL2":K×List 117÷List 18List 32""?D"":List 32÷(D2÷4)"OK""s-":S+K×(List 116÷List 18)A"s-":A/(BH)R"

57、;s1":0.002P"s2":0.45r÷YQIf P>Q:Then PList 210Else QList 210IfEnd："min":List 210+UUIf R>U:Then "A1":AElse "A2":UBHAIfEnd：""?I：If I=1:Then ""?D:："":A÷(0.25D2)NElse If I=2:Then： "1"?D"1"?N&quo

58、t;1":N(0.25D2)"2":A-"2":?->D"2": ÷(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&qu

59、ot;:(B2÷6)(3×H-B)I"Wtf":(0.5×List 122)×(List 11-B)J"Wt":I+JW"as"?A："h0":H-AOIf T0.175W:Then 0T："T-NO"IfEnd："VT":V÷(BO)+T÷(0.8*W)List 115If List 115>0.25F:Then "b"?B："h"?H：Goto 1:IfEnd：If

60、V÷(BO)+T÷W0.7r:Then "TV-OK"：IfEndIf V0.35rBO:Then 0V："V-NO"IfEnd："Mu":FList 11List 12(O-0.5List 12)List 21 If MList 21:Then： "s":M÷(FList11O2)L"s":(1+(1-2L)÷2G"":1-(1-2L)KElse Goto 7:IfEnd：If K>X:Then "b"?B：

61、"h"?H： Goto 1:IfEnd："As":M÷(GOY)SProg "P"：Goto 4:Lbl 7:"As1":F(List 11-B)List 12÷YList 114"Mu1":F(List 11-B)List 12(O-List12÷2)Q"Mu2":M-QM"s":M÷(FBO2)L"s":(1+(1-2L)÷2G"":1-(1-2LKIf KX:T

62、hen： "As2":M÷(GOY)SProg "P"："AS":List 114+SSElse： "b"?B:"h"?H：Goto 1:IfEnd：Lbl 4:"Tw":(I÷W)TList 13 "Tf":T-List 13List 14"bcor":B-2(A-10)List 116"hcor":H-2(A-10)List 117 "Acor":List 116×

63、;List 117List 19"ucor":2(List 116+List 117)List 18 "":1.5÷(1+0.5VI÷(List 13BO)If >1:Then 1： Else If <0.5:Then 0.5：IfEnd：IfEnd："fyv"?C："n"?N："Asv1v÷S=":(V-0.7(1.5-)rBO)÷(NCO)P""?Z："Ast1÷S=":(List 13-0

64、.35×r×I)÷(1.2(Z)×C×List 19)E"svmin=":0.28×r÷CW"sv=":N(P+E)÷BList 38 If List 38W:Then： "d"?D："A=":D2÷4A："s=":A÷(P+E)List 34"s"?List 34："sv":NA÷(BList 34) Else "X=":WB

65、÷NX："d"?D："A=":D2÷4A："s=":A÷X"s"?List 34：IfEnd："sv":N(0.25×D2)÷BList 34List 38"OK"："AstL=":ZCList 18E÷YK"X=":List 13÷(VB)：If >2:Then 2:IfEnd："stL,min=":0.6×()×r&#

66、247;YUU×BHM：If KM:Then "AstL=":KElse If K<M:Then "Astl=":MKIfEnd:IfEnd："AstL1":K×List 116÷List 18List 31"d"?D："n":List 31÷( D2÷4)"OK"："AstL2":K×List 117÷List 18List 32 "d"?D："n&

67、quot;:List 32÷(D2/4)"OK"："As-":S+K×(List 116÷List 18)A"-":A÷(BH)R："s1":0.002P："s2":0.45r÷YQ：If P>Q:Then PList 210：Else QList 210：IfEnd："min-":List 210+UUIf R>U:Then "A1":AElse "A2":UBHAIfEn

68、d："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 1

69、2-2A)"ucor":(List 11-B+List 12-4A)×2U"Ast1÷s":(List 14-0.35rJ)÷(1.2(Z)×C)P"d":?D："a":0.25D2A："s":A÷PS"s"?S："sv":2A÷(S×List 12)R：If RW:Then： "OK"：Else WList 12S÷2Q："Asv1":

70、QIfEnd："AstL":ZP×CU÷YK"":0.6(2)×r÷YRIf KRList 12(List 11-B):Then："AstL"：KElse RList 12(List 11-B)K"AstL":KIfEnd："d":?D："n=":K÷0.25D2N* * *16.程序名：【F-W】"b"?B："h"?H："bf"?T："hf"?W

71、："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-RO"sq":M×106÷(0.87AO)N"te":A÷(0.5BH+(T-B)W)RIf R0.01:Then 0.01R:IfEnd："":1.1-0.65×K÷(RN)PIf P1:Then 1P:Else If P0.2:Then 0.2PIfEnd：IfEnd："":A÷(BO)List 12"":S&