《混凝土结构设计与算例》配套程序Word文档下载推荐.docx
《《混凝土结构设计与算例》配套程序Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《《混凝土结构设计与算例》配套程序Word文档下载推荐.docx（10页珍藏版）》请在冰豆网上搜索。
（输入轴力标准差）“”：
→：
（输出可靠指标）***3.程序名：
【M1】“J“?
→J：
（由荷载开始计算则J输入1；
否则IfJ=1:
Then：
输入2）““?
→U：
““?
→V：
Lbl1:
“b“?
→B：
“h“?
→H：
“q=“:
1.2U+1.2（BH×
25÷
106）+1.4V→Q◢“M=“:
0.125QS2→M◢Goto3:
ElseIfJ=2:
Then：
Lbl2:
“M“?
IfEnd：
Lbl3:
Prog“C20“：
Prog“G“：
→A：
“=“:
H-A→O：
“min1=“:
0.002→R◢“min2=“:
0.45r÷
Y→◢“=“:
X（1-0.5X）→Z◢“=“:
M×
106÷
（FBO2）→L◢IfL>
ZAndJ=1:
ThenGoto1:
ElseIfL>
ZAndJ=2:
ThenGoto2：
（1+（1-2L））÷
2→G◢“As=“:
（YGO）→A◢IfA/（BH）≥RAndA÷
（BH）≥r:
“As=“:
A◢ElseIfRBH>
rBH:
RBH→A◢ElseIfRBHZ:
Else：
“s=“:
10∧6÷
（YGO）→A◢IfEnd：
IfA÷
（1000H）≥RAndA÷
（1000H）≥r:
“As“:
A◢ElseIf：
R×
1000H＞r×
1000H:
“Asmin=“:
R×
1000H→A◢ElseIf：
1000H＜r×
r×
1000H→A◢IfEnd：
Prog“JIAN“：
***5.程序名：
【M2】“b“?
“As“?
“c“?
→C：
“d“?
→D：
H-C-0.5×
D→O：
Prog“C20“：
0.002◢“min1=“:
Y→r◢“=“:
A÷
（BH）→R◢IfR0.25FBO:
ElseIfV≤0.7rBO:
Then“svmin=“:
0.24r÷
Y→M◢“d“?
→D:
“n“?
“Asv1=“:
0.25piD2→A◢“S=“:
NA÷
（MB）→S◢“OK“◢IfEnd：
P×
1000→P：
IfP÷
V＞0.75:
“Asv÷
S=“:
（V-0.7rBO）÷
（YO）→Z◢Lbl3:
“d“?
0.25piD2→A◢“s=“:
Z→S◢“s“?
→S◢“sv=“:
（BS）→R◢“svmin=“:
Y→M◢IfR≥M:
Then“OK“◢Else“s=“:
（MB）→S◢IfEnd：
Goto4:
“a“?
→X:
“=“:
O→L◢IfL＜1.5:
Then1.5→L◢ElseIfL＞3:
Then3→L◢IfEnd：
s=“:
（V-1.75rBO÷
（L+1））÷
YO→Z◢Goto3:
Lbl4:
“J“?
IfJ=1:
Then“V=“:
0.7BOr+YNAO÷
S→Q◢Else“V=“:
1.75rBO÷
（L+1）+YNAO÷
S→Q◢IfEnd：
“fy“?
→U◢““?
→◢“W=“:
V-Q→W：
“Asb=“:
W÷
（0.8×
U×
sin45）◢“OK“***9.程序名：
【N】““?
→L:
→B:
“h“?
→H:
“m=“:
L÷
B→X：
IfX≤8:
1→Q◢ElseIfX＞8AndX≤16:
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.95→Q◢ElseIfX＞16AndX≤24:
-0.0000521（X-20）∧（4）+0.001458（X-20）∧-0.0275（X-20）+0.75->
Q◢ElseIfX>
24AndX≤32:
0.00002604（X-28）∧（4）-0.0001042（X-28）∧（3）-0.0001042（X-28）2-0.01958×
（X-28）+0.56→Q◢ElseIfX＞32AndX≤40:
-0.02（X-36）+0.4→Q◢ElseIfX＞40AndX≤48:
0.00002604（X-44）∧（4）+0.0001042（X-44）∧（3）-0.0001042（X-44）2-0.01542×
（X-44）+0.26→Q◢ElseIfX>
48AndX≤50:
0.01×
（50-X）+0.19Q◢IfEnd:
IfEnd:
IfEnd：
“N“?
“Ac=“:
BH→S◢Prog“C20“:
Prog“G“：
（N÷
（0.9×
Q）-FS）÷
Y→A◢“As,min=“:
0.006S→R◢IfAP:
Then“As=“:
1（Y-F）→A◢Goto1:
IfA≥RAndA≤P:
A◢Goto1:
Prog“DAS“***10.程序名：
【S-ZHU】“N“?
→NⅰLbl6：
““?
→R◢Lbl2：
“dc“?
→List1[5]◢““?
→L：
“m=“：
List1[5]→X“：
“=“：
0.00002721×
（X-10.5）∧4－0.000081633×
（X－10.5）∧3－0.0015578×
（X－10.5）2－0.01757×
（X-10.5）+0.95→Q◢IfX≤12：
ThenGoto1：
ElseGoto2：
Lbl1：
“As=“：
0.25RList1[5]2→S：
“n“：
S÷
0.25D2→◢“n“?
：
“A’s“：
0.25D2→S◢“Ac“：
0.25List1[5]2A◢Lbl4：
IfS÷
A≤0.03：
“Nu=“：
0.9Q（FA+YS）→U◢Else“Nu=“:
0.9Q（F（A-S）+YS）→U◢IfEnd：
IfN≥UAndN≤1.5U：
ThenGoto3：
ElseIfN＜U：
Then“NO”◢ElseIfN＞1.5U：
ThenProg“G“：
Goto4：
Lbl3：
“dcor=“：
List1[5]－2×
30→D◢“Acor=“：
0.25D2→List1[1]◢“fyv“?
→Z：
“Ass0“：
（（N÷
0.9）－F×
List1[1]－YS）÷
2Z→List1[2]◢IfList1[2]≥0.25S：
ThenGoto5：
ElseGoto6：
Lbl5：
“dss1“?
“Ass1“：
0.25→List1[3]：
“S=“:
D×
List1[3]÷
List1[2]→W◢IfW≥40：
Then“Ok”：
ElseGoto5：
***11.程序名：
【N1-M1】“N“?
“M1“?
→M:
“M2“?
“b“?
“==“?
“l0=“?
→L：
“h0=“:
H-A→O◢Prog“C20“：
U÷
N→E◢Prog“315“：
“A=“:
BH→W◢“I=“:
BH∧3÷
12→I◢“i=“:
（I÷
W）→I◢“J=“:
34-12×
（M÷
U）→J◢IfN/FBH≤0.9:
ThenGoto3:
ElseGoto4:
IfL÷
I≤JAndM÷
U≤0.9:
ThenU→M◢Goto5:
0.5FBH÷
N→◢If>
1:
Then1→◢IfEnd：
1+（L÷
H）2Theta÷
（1300×
E÷
O）→T◢“Cm=“:
0.7+0.3×
U）→List1[1]◢IfList1[1]X:
ElseIfKO≥2A:
Then“e=“:
E+（H÷
2）-A→E◢“As=As=“:
（NE-FBO2K（1-0.5K））÷
Y（O-A）→A◢Goto2:
ElseIfKO1:
1+（L/H）2÷
（1300（E）÷
U）→List1[1]◢IfList1[1]0.3×
O:
Then“As’=“?
“e“:
2）-A->
E◢ElseGoto4:
IfS=0:
Then“As’=“:
（NE-FBO2X（1-0.5X））÷
Y（O-A）→S◢ElseGoto2:
IfS≥0.002BH:
Then“As“:
（FBOX-N+SY）÷
List2[2]→List1[2]◢IfEnd：
“OK“：
IfS＜0.002BH:
Then“As=“:
0.002×
BH→S◢“d=“?
“n=“：
0.25D2→P◢“n=“?
→P：
“As=“P×
:
0.25D2→S◢IfEnd：
“Mu“:
NE-YS（O-A）→◢“s“:
÷
（FBO2）→List1[11]◢““:
1-（1-2List1[11]）→K◢“Z“:
2A÷
O→Z◢IfK＜XAndK≥Z:
（FBKO+SY-N）÷
Y→List1[2]◢“OK“：
ElseIfK-4×
PR））÷
（2P）→C◢“X2“:
（-Q-（Q4×
（2P）→D：
““:
C÷
O→K◢IfG≤3:
“s“:
（（K-0.8）÷
（X-0.8））×
Y→I◢Else：
List2[2]→I◢IfEnd：
IfI≥0:
（NT-FBC（O-0.5×
C））÷
（Y（O-A））→S◢Goto6：
IfI:
ThenGoto8:
IfEnd:
Lbl7:
IfKH:
“X=“:
H→C◢Else“X=“:
×
O→C◢IfEnd：
IfIJ:
ThenI→D:
ElseJ→D：
IfN>
FBH:
Then“e“:
0.5H-A-（M÷
N-D）→E◢“As“:
（NE-FBH（O-0.5H））÷
（Y（O-A））→S◢IfEnd：
“OK“***13.程序名:
【PXL】“M“?
“N“?
→N:
“as=as′“?
Prog“C20“:
Prog“G“:
“e0=“:
M÷
N→E◢“h0=“:
H-A→O◢IfE≤0.5H-A:
0.5H-A-E→List1[1]◢“e=“:
0.5H-A+E→List1[2]◢ElseGoto1:
NList1[2]÷
（Y（O-A））→S◢Prog“P“IfB=1000:
ThenProg“JIAN1“：
Goto3：
→D“n=“:
（0.25×
）◢Lbl3:
“As“:
N×
List1[1]÷
（Y（O-A））→S◢Prog“P1“：
IfB=1000:
Else：
Goto2:
“e=“:
E-0.5H+A→List1[1]◢“e=“:
0.5H-A+E→List1[2]◢“AS′=“:
（NList1[1]-FBO2X（1-0.5X））÷
Goto4：
Goto5:
Lbl5:
“n“:
S÷
0.25D2◢“n“?
→W:
“AS′=“:
W×
0.25D2→S◢Lbl4:
（NList1[1]-YS（O-A））÷
（FBO2）→L◢“=“:
1-（1-2L）→K◢IfK≥2A÷
（N+FBOX+YS）÷
Y→S◢Else：
Prog“P“：
ThenProg“JIAN1“:
ElseGoto2:
“OK“：
0.25D2→A：
“n“:
A：
***14.程序名：
【MTV1】““?
→T：
→B““?
→HProg“C20“：
IfB>
H:
Then““:
（H2÷
6）（3×
B-H）→W◢Else：
（B2÷
H-B）→W◢IfEnd：
→A““:
H-A→O◢IfT≤0.175W:
Then0→T◢“T-NO“◢IfEnd：
V÷
（BO）+T÷
W）→List1[15]◢IfList1[15]>
0.25F:
Then““?
““?
Goto1:
IfV÷
W≤0.7×
r:
Then“TV-OK“◢IfEnd：
IfV≤0.35rBO:
Then0→V：
“V-NO“◢IfEnd：
（FBO2）→L◢“s“:
2→G◢““:
1-（1-2L）→K◢IfK≤X:
Then：
（GOY）→S◢Else：
“cor“:
B-2（A-10）→List1[16]◢“cor“:
H-2（A-10）→List1[17]◢“cor“:
List1[16]×
List1[17]→List1[9]◢“cor“:
2（List1[16]+List1[17]）→List1[8]◢““:
1.5÷
（1+0.5VW÷
（TBO））→If>
Then1→◢ElseIf2:
Then2→:
IfEnd；
“stL,min=“:
0.6（）×
r÷
Y→U◢“stL“:
BH→M◢IfK≥M:
Then“stL=“:
K◢ElseIfKD““:
List3[1]÷
（D2÷
4）◢“OK“◢“stL2“:
K×
List1[17]÷
List1[8]→List3[2]◢““?
→D““:
List3[2]÷
4）◢“OK“◢“s-“:
S+K×
（List1[16]÷
List1[8]）→A◢“s-“:
A/（BH）→R◢“s1“:
0.002→P◢“s2“:
Y→Q◢IfP>
Q:
ThenP→List2[10]ElseQ→List2[10]IfEnd：
“min“:
List2[10]+U→U◢IfR>
U:
Then“A1“:
A◢Else“A2“:
UBH→A◢IfEnd：
→I：
IfI=1:
（0.25D2）→N◢ElseIfI=2:
“1“?
→D“1“?
→N◢“1“:
N（0.25D2）→“2“:
A-→“2“:
?
->
→D“2“:
÷
（0.25D2）→N◢IfEnd：
***15.程序名：
【MTV2】“M“?
“V“?
“T“?
“bf’“?
→List1[1]：
“hf’“?
→List1[2]：
“Wtw“:
H-B）→I◢“Wtf’“:
（0.5×
List1[2]2）×
（List1[1]-B）→J◢
升级会员 