summaryrefslogtreecommitdiff
path: root/3683/CH15/EX15.7/Ex15_7.sce
blob: 686e51616989562c083f0c2154ddc22b8e7f3cee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
b=200//width, in mm
d=200//effective depth, in mm
Mu=32//in kN-m
top_cover=30//in mm
fck=20//in MPa
fy=500//in MPa
Xc=0.456*d//in mm
Mulim=0.133*fck*b*d^2/10^6//in kN-m
Ast1=round(0.36*fck*b*Xc/0.87/fy)//in sq mm
M1=Mu-Mulim//in kN-m
fcc=0.446*fck//in MPa
//for d'/d=30/200=0.15 and Fe500 grade steel,
fsc=395//in MPa
Asc=round(M1*10^6/(fsc-fcc)/(d-top_cover))//in sq mm
Ast2=round((fsc-fcc)*Asc/0.87/fy)//in sq mm
Ast=Ast1+Ast2//in sq mm
mprintf("Compression steel = %d sq mm\nTension steel = %d sq mm",Asc,Ast)