《混凝土结构设计与算例》配套程序.docx
- 文档编号:8168766
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:10
- 大小:19.26KB
《混凝土结构设计与算例》配套程序.docx
《《混凝土结构设计与算例》配套程序.docx》由会员分享,可在线阅读,更多相关《《混凝土结构设计与算例》配套程序.docx(10页珍藏版)》请在冰豆网上搜索。
《混凝土结构设计与算例》配套程序
《混凝土结构设计与算例》配套程序
《混凝土结构设计与算例》配套程序《混凝土结构设计与算例》配套程序计算程序索引编号主程序名子程序名程序功能说明章节页次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,JIAN1P,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-1-21SB-3SH-1双向板一短边简支其他三边嵌固时配筋计算§10-1-22SB-4SH-1双向板二邻边简支其他二边嵌固时配筋计算§10-1-23SB-5SH-1双向板二短边简支二长边嵌固时配筋计算§10-125124SB-6SH-1双向板二长边简支二短边嵌固时配筋计算§10-125025SB-7SH-1双向板三边简支一长边嵌固时配筋的计算§10-1-26SB-8SH-1双向板三边简支一短边嵌固时配筋计算§10-1-27SB-9SH-1双向板四边简支时配筋计算§10-125228LOUTIJIAN钢筋混凝土板式楼梯配筋计算§10-225629DJLFII,FKI弹性地基梁的计算(链杆法)§11-1269-27030SC-单层钢筋混凝土框架地震反应时程分析§11-2275-279注:
表中页码为该程序例题所在位置。
计算程序G-1主程序1.程序名:
【PF】“=”?
→X:
(输入积分上限)“=”?
→N:
(输入划分的小梯形的数量≥50)0.5→A:
(将0.5赋给初始面积)“W=”:
X÷N→W:
(计算每一个小梯形的宽度)For1→IToN:
(确定循环初值和终值)“T=”:
()→T(计算第个小梯形中点的横坐标)“H=”:
(1÷√())∧(-T2÷2)→H(计算第个小梯形中点的高度)“=”:
A+WH→A(累计~曲边梯形的面积,即)Next“=”:
1-A◢(输出失效概率)***2.程序名:
【BEITA】“”?
→M:
(输入截面承载力平均值)“”?
→N:
(输入轴力平均值)“”?
→R:
(输入截面承载力标准差)“”?
→S:
(输入轴力标准差)“”:
→:
(输出可靠指标)***3.程序名:
【M1】“J“?
→J:
(由荷载开始计算则J输入1;否则IfJ=1:
Then:
输入2)““?
→U:
““?
→V:
““?
→S:
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:
“b“?
→B:
“h“?
→H:
“M“?
→M:
IfEnd:
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:
IfEnd:
IfEnd:
“=“:
(1+(1-2L))÷2→G◢“As=“:
M×106÷(YGO)→A◢IfA/(BH)≥RAndA÷(BH)≥r:
Then:
“As=“:
A◢ElseIfRBH>rBH:
Then:
“As=“:
RBH→A◢ElseIfRBHZ:
ThenGoto1:
Else:
“s=“:
(1+(1-2L))÷2→G◢“As=“:
M×10∧6÷(YGO)→A◢IfEnd:
IfA÷(1000H)≥RAndA÷(1000H)≥r:
Then:
“As“:
A◢ElseIf:
R×1000H>r×1000H:
Then:
“Asmin=“:
R×1000H→A◢ElseIf:
R×1000H<r×1000H:
Then:
“Asmin=“:
r×1000H→A◢IfEnd:
IfEnd:
IfEnd:
Lbl2:
Prog“JIAN“:
***5.程序名:
【M2】“b“?
→B:
“h“?
→H:
“As“?
→A:
“c“?
→C:
“d“?
→D:
“=“:
H-C-0.5×D→O:
Prog“G“:
Prog“C20“:
“min1=“:
0.002◢“min1=“:
0.45r÷Y→r◢“=“:
A÷(BH)→R◢IfR0.25FBO:
ThenGoto1:
ElseIfV≤0.7rBO:
Then“svmin=“:
0.24r÷Y→M◢“d“?
→D:
“n“?
→N:
“Asv1=“:
0.25piD2→A◢“S=“:
NA÷(MB)→S◢“OK“◢IfEnd:
IfEnd:
P×1000→P:
IfP÷V>0.75:
ThenGoto2:
IfEnd:
“Asv÷S=“:
(V-0.7rBO)÷(YO)→Z◢Lbl3:
“d“?
→D:
“n“?
→N:
“Asv1=“:
0.25piD2→A◢“s=“:
NA÷Z→S◢“s“?
→S◢“sv=“:
NA÷(BS)→R◢“svmin=“:
0.24r÷Y→M◢IfR≥M:
Then“OK“◢Else“s=“:
NA÷(MB)→S◢IfEnd:
Goto4:
Lbl2:
“a“?
→X:
“=“:
X÷O→L◢IfL<1.5:
Then1.5→L◢ElseIfL>3:
Then3→L◢IfEnd:
IfEnd:
“Asv÷s=“:
(V-1.75rBO÷(L+1))÷YO→Z◢Goto3:
Lbl4:
“J“?
→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“?
→B:
“h“?
→H:
“m=“:
L÷B→X:
IfX≤8:
Then:
“=“:
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:
Then:
“=“:
-0.0000521(X-20)∧(4)+0.001458(X-20)∧-0.0275(X-20)+0.75->Q◢ElseIfX>24AndX≤32:
Then:
“=“:
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:
Then:
“=“:
-0.02(X-36)+0.4→Q◢ElseIfX>40AndX≤48:
Then:
“=“:
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:
Then:
“=“:
0.01×(50-X)+0.19Q◢IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
“N“?
→N:
“Ac=“:
BH→S◢Prog“C20“:
Prog“G“:
“As=“:
(N÷(0.9×Q)-FS)÷Y→A◢“As,min=“:
0.006S→R◢IfAP:
Then“As=“:
(N÷(0.9×Q)-FS)÷1(Y-F)→A◢Goto1:
IfEnd:
IfA≥RAndA≤P:
Then“As=“:
A◢Goto1:
IfEnd:
Lbl1:
Prog“DAS“***10.程序名:
【S-ZHU】“N“?
→NⅰLbl6:
““?
→R◢Lbl2:
“dc“?
→List1[5]◢““?
→L:
Prog“C20“:
Prog“G“:
“m=“:
L÷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:
IfEnd:
Lbl1:
“As=“:
0.25RList1[5]2→S:
“d“?
→D:
“n“:
S÷0.25D2→◢“n“?
:
“A’s“:
0.25D2→S◢“Ac“:
0.25List1[5]2A◢Lbl4:
IfS÷A≤0.03:
Then:
“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:
IfEnd:
IfEnd:
IfEnd:
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:
IfEnd:
Lbl5:
“dss1“?
→:
“Ass1“:
0.25→List1[3]:
“S=“:
D×List1[3]÷List1[2]→W◢IfW≥40:
Then“Ok”:
ElseGoto5:
IfEnd:
***11.程序名:
【N1-M1】“N“?
→N:
“M1“?
→M:
“M2“?
→U:
“b“?
→B:
“h“?
→H:
“==“?
→A:
“l0=“?
→L:
“h0=“:
H-A→O◢Prog“C20“:
Prog“G“:
“=“:
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:
IfEnd:
Lbl3:
IfL÷I≤JAndM÷U≤0.9:
ThenU→M◢Goto5:
IfEnd:
Lbl4:
“=“:
0.5FBH÷N→◢If>1:
Then1→◢IfEnd:
“=“:
1+(L÷H)2Theta÷(1300×E÷O)→T◢“Cm=“:
0.7+0.3×(M÷U)→List1[1]◢IfList1[1]X:
ThenGoto1:
ElseIfKO≥2A:
Then“e=“:
E+(H÷2)-A→E◢“As=As=“:
(NE-FBO2K(1-0.5K))÷Y(O-A)→A◢Goto2:
ElseIfKO1:
Then1→◢IfEnd:
“=“:
1+(L/H)2÷(1300(E)÷O)→T◢“Cm=“:
0.7+0.3×(M÷U)→List1[1]◢IfList1[1]0.3×O:
Then“As’=“?
→S:
“e“:
E+(H÷2)-A->E◢ElseGoto4:
IfEnd:
IfS=0:
Then“As’=“:
(NE-FBO2X(1-0.5X))÷Y(O-A)→S◢ElseGoto2:
IfEnd:
IfS≥0.002BH:
Then“As“:
(FBOX-N+SY)÷List2[2]→List1[2]◢IfEnd:
“OK“:
IfS<0.002BH:
Then“As=“:
0.002×BH→S◢“d=“?
→D:
“n=“:
S÷0.25D2→P◢“n=“?
→P:
“As=“P×:
0.25D2→S◢IfEnd:
Lbl2:
“Mu“:
NE-YS(O-A)→◢“s“:
÷(FBO2)→List1[11]◢““:
1-(1-2List1[11])→K◢“Z“:
2A÷O→Z◢IfK<XAndK≥Z:
Then“As“:
(FBKO+SY-N)÷Y→List1[2]◢“OK“:
ElseIfK-4×PR))÷(2P)→C◢“X2“:
(-Q-(Q4×PR))÷(2P)→D:
““:
C÷O→K◢IfG≤3:
Then:
“s“:
((K-0.8)÷(X-0.8))×Y→I◢Else:
“s“:
((K-0.8)÷(X-0.8))×List2[2]→I◢IfEnd:
IfI≥0:
Then“As=“:
(NT-FBC(O-0.5×C))÷(Y(O-A))→S◢Goto6:
IfEnd:
IfI:
ThenGoto8:
IfEnd:
IfEnd:
Lbl7:
IfKH:
Then:
“X=“:
H→C◢Else“X=“:
×O→C◢IfEnd:
IfIJ:
ThenI→D:
ElseJ→D:
IfEnd:
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“?
→M:
“N“?
→N:
“b“?
→B:
“h“?
→H:
“as=as′“?
→A:
Prog“C20“:
Prog“G“:
“e0=“:
M÷N→E◢“h0=“:
H-A→O◢IfE≤0.5H-A:
Then“e=“:
0.5H-A-E→List1[1]◢“e=“:
0.5H-A+E→List1[2]◢ElseGoto1:
IfEnd:
“As=“:
NList1[2]÷(Y(O-A))→S◢Prog“P“IfB=1000:
ThenProg“JIAN1“:
Goto3:
IfEnd:
“d“?
→D“n=“:
S÷(0.25×)◢Lbl3:
“As“:
N×List1[1]÷(Y(O-A))→S◢Prog“P1“:
IfB=1000:
ThenProg“JIAN1“:
Else:
Goto2:
IfEnd:
Lbl1:
“e=“:
E-0.5H+A→List1[1]◢“e=“:
0.5H-A+E→List1[2]◢“AS′=“:
(NList1[1]-FBO2X(1-0.5X))÷(Y(O-A))→S◢Prog“P1“:
IfB=1000:
ThenProg“JIAN1“:
Goto4:
Else:
Goto5:
IfEnd:
Lbl5:
“d“?
→D:
“n“:
S÷0.25D2◢“n“?
→W:
“AS′=“:
W×0.25D2→S◢Lbl4:
“s=“:
(NList1[1]-YS(O-A))÷(FBO2)→L◢“=“:
1-(1-2L)→K◢IfK≥2A÷O:
Then“As=“:
(N+FBOX+YS)÷Y→S◢Else:
“As=“:
NList1[2]÷(Y(O-A))→S◢IfEnd:
Prog“P“:
IfB=1000:
ThenProg“JIAN1“:
ElseGoto2:
IfEnd:
“OK“:
Lbl2:
“d“?
→D:
0.25D2→A:
“n“:
S÷A:
***14.程序名:
【MTV1】““?
→M:
““?
→V:
““?
→T:
““?
→B““?
→HProg“C20“:
Prog“G“:
Lbl1:
IfB>H:
Then““:
(H2÷6)(3×B-H)→W◢Else:
““:
(B2÷6)(3×H-B)→W◢IfEnd:
““?
→A““:
H-A→O◢IfT≤0.175W:
Then0→T◢“T-NO“◢IfEnd:
““:
V÷(BO)+T÷(0.8×W)→List1[15]◢IfList1[15]>0.25F:
Then““?
→B:
““?
→B:
Goto1:
IfEnd:
IfV÷(BO)+T÷W≤0.7×r:
Then“TV-OK“◢IfEnd:
IfV≤0.35rBO:
Then0→V:
“V-NO“◢IfEnd:
“s“:
M÷(FBO2)→L◢“s“:
(1+(1-2L))÷2→G◢““:
1-(1-2L)→K◢IfK≤X:
Then:
““:
M÷(GOY)→S◢Else:
““?
→B:
““?
→H:
Goto1:
IfEnd:
Prog“P“:
“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>1:
Then1→◢ElseIf2:
Then2→:
IfEnd;“stL,min=“:
0.6()×r÷Y→U◢“stL“:
U×BH→M◢IfK≥M:
Then“stL=“:
K◢ElseIfKD““:
List3[1]÷(D2÷4)◢“OK“◢“stL2“:
K×List1[17]÷List1[8]→List3[2]◢““?
→D““:
List3[2]÷(D2÷4)◢“OK“◢“s-“:
S+K×(List1[16]÷List1[8])→A◢“s-“:
A/(BH)→R◢“s1“:
0.002→P◢“s2“:
0.45r÷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:
Then““?
→D:
:
““:
A÷(0.25D2)→N◢ElseIfI=2:
Then:
“1“?
→D“1“?
→N◢“1“:
N(0.25D2)→“2“:
A-→“2“:
?
->→D“2“:
÷(0.25D2)→N◢IfEnd:
IfEnd:
***15.程序名:
【MTV2】“M“?
→M:
“V“?
→V:
“T“?
→T:
“b“?
→B:
“h“?
→H:
“bf’“?
→List1[1]:
“hf’“?
→List1[2]:
Prog“C20“:
Prog“G“:
Lbl1:
“Wtw“:
(B2÷6)(3×H-B)→I◢“Wtf’“:
(0.5×List1[2]2)×(List1[1]-B)→J◢
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 混凝土结构设计与算例 混凝土结构 设计 配套 程序