钢筋混凝土简支T梁主梁程序设计.doc

include "stdio.h"#include "math.h"#include "stdlib.h" #define pmin 0.002#define psvmin 0.0018main(){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 = (pmin>0.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 = (As>zpmin*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:4204Mu=1393.70kN*m> 丫 0Md(=1292.72kN*m)截面复核满足要求输入支点截面的有效高度 h0:1249输入斜截面内纵向受拉钢筋配筋率的 p:1.115输入斜截面有效高度 h0:1229.5箍筋间距 Sv=505mm根据经验和构造要求配置箍筋请按任意键继续 . . .。