summaryrefslogtreecommitdiff
path: root/3683/CH16/EX16.6/Ex16_6.sce
blob: 486947a51f9b6183037c574e582d7c28f970d571 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Df=100//in mm
bf=1250//in mm
bw=250//in mm
d=550//in mm
Mu=400//in kN-m
fy=415//in MPa
fck=15//in MPa
Asf=0.446*fck*(bf-bw)*Df/0.87/fy//in sq mm
Muf=0.446*fck*(bf-bw)*Df*(d-Df/2)/10^6//in kN-m
Muw=Mu-Muf//in kN-m
//using Cu=Tu, 0.36 fck bw Xu = 0.87 fy Ast, Xu = a Asw
a=0.87*fy/0.36/fck/bw
//Muw=0.87 fy Asw (d-0.416 Xu)
p=0.87*fy*0.416*a
q=-0.87*fy*d
r=Muw*10^6
Asw=(-q-sqrt(q^2-4*p*r))/2/p//in sq mm
Ast=Asw+Asf//in sq mm
mprintf("Area of steel required=%f sq mm",Ast)