钢筋混凝土简支t梁主梁程序设计.docxVIP

#include stdio.h #include math.h #include stdlib.h #define pmin 0.002 #define psvmin 0.0018 main() { float bf=1640,hf=120,b=200,h=1300,L=15600,r0=1.0; float fcd=13.8,ftd=1.39,fcuk=30,fsd=280,fsv=195,Sb=0.56; float r0Md=1292.72,Vd0=363.94,Vdz=96.77,Asv=100.6; float zpmin,h0,psv,As,A0,S,p,x,Mu,V ,Sv; zpmin = (pmin0.45*ftd/fsd) ? (pmin) : (0.45*ftd/fsd); puts(”输入正截面计算假设的 ho：); /*正截面计算部分*/ scanf(%f,h0); Ao = roMd*1oooooo/(fcd*bf*ho*ho); S = 1-sqrt(1-2*Ao); As = fcd*bf*S*ho/fsd; p = As/(b*ho); As = (Aszpmin*b*ho) ? (As) ： (zpmin*b*ho); printf( 计算的 As=%.of\n,As); puts(输入正截面实际有效高度 ho：); /*正截面复核部分*/ scanf(%f,ho); puts(输入实际的受拉钢筋面积 As:); scanf(%f,As); x = fsd*As/(fcd*bf); Mu = fcd*bf*x*(ho-x/2)/1oooooo; if(Mu = roMd) {printf(Mu=%.2fkN*m 丫 0Md(=%.2fkN*m)截面复核满足要求 \n, Mu,r0Md);} else{printf(Mu=%.2fkN*m 丫 0Md(=%.2fkN*m)截面复核不满足要求 \n, Mu,r0Md);} puts(输入支点截面的有效高度 h0:); /*斜截面箍筋间距计算*/ scanf(%f,ho); if(ro*Vdo=o.51*o.oo1*sqrt(fcuk)*b*ho) { if(ro*Vdo = o.5*o.oo1*ftd*b*ho) { V=ro*Vdz+(ro*Vdo-ro*Vdz)*2*(L/2-h/2)/L; puts(输入斜截面内纵向受拉钢筋配筋率的 p:); scanf(%f,p); puts( 输入斜截面有效高度 h0:); scanf(%f,h0); psv=1.78*1000000/((2+0.6*p)*sqrt(fcuk)*fsv)*pow(V/(1.0*1.1*b*h0),2); Sv=Asv/(psv*b); printf( 箍筋间距 Sv=%.0fmm\n\n,Sv); if(psv=psvmin Sv=0.5*h Sv=400) {printf( 按箍筋间距 Sv=%.0fmm 设计合适的箍筋间距 \n\n,Sv);} else{puts( 根据经验和构造要求配置箍筋 \n);} } else {puts( 仅需按构造要求配置箍筋 );} } else {puts( 需要修改截面尺寸或提高混凝土标号 );} system(pause); } 输入正截面计算假设的 h0: 1179 计算的 As=4000 输入正截面实际有效高度 h0: 1210 输入实际的受拉钢筋面积 As: 4204 Mu=1393.70kN*m 丫 0Md(=1292.72kN*m)截面复核满足要求 输入支点截面的有效高度 h0: 1249 输入斜截面内纵向受拉钢筋配筋率的 p: 1.115 输入斜截面有效高度 h0: 1229.5 箍筋间距 Sv=505mm 根据经验和构造要求配置箍筋 请按任意键继续 . ..