diff options
Diffstat (limited to '3683/CH16')
| -rw-r--r-- | 3683/CH16/EX16.1/Ex16_1.sce | 12 | ||||
| -rw-r--r-- | 3683/CH16/EX16.2/Ex16_2.sce | 14 | ||||
| -rw-r--r-- | 3683/CH16/EX16.3/Ex16_3.sce | 15 | ||||
| -rw-r--r-- | 3683/CH16/EX16.4/Ex16_4.sce | 18 | ||||
| -rw-r--r-- | 3683/CH16/EX16.5/Ex16_5.sce | 11 | ||||
| -rw-r--r-- | 3683/CH16/EX16.6/Ex16_6.sce | 20 |
6 files changed, 90 insertions, 0 deletions
diff --git a/3683/CH16/EX16.1/Ex16_1.sce b/3683/CH16/EX16.1/Ex16_1.sce new file mode 100644 index 000000000..889e4805c --- /dev/null +++ b/3683/CH16/EX16.1/Ex16_1.sce @@ -0,0 +1,12 @@ +Df=120//in mm
+bf=1100//in mm
+bw=275//in mm
+d=450//in mm
+Ast=2700//in sq mm
+fy=500//in MPa
+fck=25//in MPa
+Asf=round(0.36*fck*bf*Df/0.87/fy)//area of steel required for flange, in sq mm
+//as Ast<Asf, Xu<Df
+Xu=0.87*fy*Ast/0.36/fck/bf//in mm
+Mu=0.36*fck*bf*Xu*(d-0.416*Xu)/10^6//in kN-m
+mprintf("Moment of resistance of T-beam=%f kN-m",Mu)
diff --git a/3683/CH16/EX16.2/Ex16_2.sce b/3683/CH16/EX16.2/Ex16_2.sce new file mode 100644 index 000000000..6da5a663e --- /dev/null +++ b/3683/CH16/EX16.2/Ex16_2.sce @@ -0,0 +1,14 @@ +Df=100//in mm
+bf=1500//in mm
+bw=300//in mm
+d=600//in mm
+Ast=4500//in sq mm
+fy=415//in MPa
+fck=20//in MPa
+Asf=round(0.36*fck*bf*Df/0.87/fy)//area of steel required for flange, in sq mm
+//as Ast>Asf, Xu>Df
+Xu=(0.87*fy*Ast-0.446*fck*(bf-bw)*Df)/0.36/fck/bw//in mm
+Xc=0.479*d//Xc>Xu; hence OK
+a=0.43*Xu//as Df<0.43 Xu, stress in flange is uniform
+Mu=(0.36*fck*bw*Xu*(d-0.416*Xu)+0.446*fck*(bf-bw)*Df*(d-Df/2))/10^6//in kN-m
+mprintf("Moment of resistance of T-beam=%f kN-m",Mu)
diff --git a/3683/CH16/EX16.3/Ex16_3.sce b/3683/CH16/EX16.3/Ex16_3.sce new file mode 100644 index 000000000..f87b75a2e --- /dev/null +++ b/3683/CH16/EX16.3/Ex16_3.sce @@ -0,0 +1,15 @@ +Df=100//in mm
+bf=1500//in mm
+bw=300//in mm
+d=700//in mm
+Ast=4510//in sq mm
+fy=250//in MPa
+fck=15//in MPa
+Asf=round(0.36*fck*bf*Df/0.87/fy)//area of steel required for flange, in sq mm
+//as Ast>Asf, Xu>Df
+Xu=round((0.87*fy*Ast-0.446*fck*(bf-bw)*Df)/0.36/fck/bw)//in mm
+Xc=0.531*d//Xc>Xu; hence OK
+a=0.43*Xu//as Df>0.43 Xu, stress in flange is not uniform
+yf=0.15*Xu+0.65*Df//in mm
+Mu=(0.36*fck*bw*Xu*(d-0.416*Xu)+0.446*fck*(bf-bw)*yf*(d-yf/2))/10^6//in kN-m
+mprintf("Moment of resistance of T-beam=%f kN-m",Mu)
diff --git a/3683/CH16/EX16.4/Ex16_4.sce b/3683/CH16/EX16.4/Ex16_4.sce new file mode 100644 index 000000000..cadee8158 --- /dev/null +++ b/3683/CH16/EX16.4/Ex16_4.sce @@ -0,0 +1,18 @@ +Df=100//in mm
+bf=1250//in mm
+bw=250//in mm
+d=650//in mm
+Ast=2800//in sq mm
+fy=415//in MPa
+fck=20//in MPa
+Asf=round(0.36*fck*bf*Df/0.87/fy)//area of steel required for flange, in sq mm
+//as Ast>Asf, Xu>Df
+Xu=round((0.87*fy*Ast-0.446*fck*(bf-bw)*Df)/0.36/fck/bw)//in mm
+//but Xu<Df; this indicates that stress in the flange is not uniform, hence replace Df by yf
+Xu=(0.87*fy*Ast-0.446*fck*(bf-bw)*0.65*Df)/(0.36*fck*bw+0.446*fck*(bf-bw)*0.15)//in mm
+Xc=0.479*d//Xc>Xu; hence OK
+a=0.43*Xu//as Df>0.43 Xu, stress in flange is not uniform
+yf=0.15*Xu+0.65*Df//in mm
+Mu=(0.36*fck*bw*Xu*(d-0.416*Xu)+0.446*fck*(bf-bw)*yf*(d-yf/2))/10^6//in kN-m
+mprintf("Moment of resistance of T-beam=%f kN-m",Mu)
+//answer in textbook is incorrect
diff --git a/3683/CH16/EX16.5/Ex16_5.sce b/3683/CH16/EX16.5/Ex16_5.sce new file mode 100644 index 000000000..8e4eecb8b --- /dev/null +++ b/3683/CH16/EX16.5/Ex16_5.sce @@ -0,0 +1,11 @@ +Df=100//in mm
+bf=1250//in mm
+bw=250//in mm
+d=660//in mm
+fy=250//in MPa
+fck=15//in MPa
+Xc=0.531*d//in mm
+a=0.43*Xc//Df<0.43 Xu, stress in entire flange is uniform
+Mu=(0.36*fck*bw*Xc*(d-0.416*Xc)+0.446*fck*(bf-bw)*Df*(d-Df/2))/10^6//in kN-m
+Ast=(0.36*fck*bw*Xc+0.446*fck*(bf-bw)*Df)/0.87/fy//in sq mm
+mprintf("Moment of resistance of T-beam=%f kN-m\nArea of steel required=%f sq mm",Mu,Ast)
diff --git a/3683/CH16/EX16.6/Ex16_6.sce b/3683/CH16/EX16.6/Ex16_6.sce new file mode 100644 index 000000000..486947a51 --- /dev/null +++ b/3683/CH16/EX16.6/Ex16_6.sce @@ -0,0 +1,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)
+
|