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

#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 = (pmin>0.45*ftd/fsd) ? (pmin) : (0.45*ftd/fsd);

puts("输入正截面计算假设的h0:"); /*正截面计算部分*/

scanf("%f",&h0);

A0 = r0Md*1000000/(fcd*bf*h0*h0);

S = 1-sqrt(1-2*A0);

As = fcd*bf*S*h0/fsd;

p = As/(b*h0);

As = (As>zpmin*b*h0) ? (As) : (zpmin*b*h0);

printf("计算的As=%.0f\n",As);

puts("输入正截面实际有效高度h0:"); /*正截面复核部分*/

scanf("%f",&h0);

puts("输入实际的受拉钢筋面积As:");

scanf("%f",&As);

x = fsd*As/(fcd*bf);

Mu = fcd*bf*x*(h0-x/2)/1000000;

if(Mu >= r0Md)

{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",&h0);

if(r0*Vd0<=0.51*0.001*sqrt(fcuk)*b*h0)

{

if(r0*Vd0 >= 0.5*0.001*ftd*b*h0)

{

V=r0*Vdz+(r0*Vd0-r0*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

根据经验和构造要求配置箍筋

请按任意键继续. . .