summaryrefslogtreecommitdiff
path: root/3862/CH11/EX11.11
diff options
context:
space:
mode:
Diffstat (limited to '3862/CH11/EX11.11')
-rw-r--r--3862/CH11/EX11.11/Ex11_11.sce39
1 files changed, 39 insertions, 0 deletions
diff --git a/3862/CH11/EX11.11/Ex11_11.sce b/3862/CH11/EX11.11/Ex11_11.sce
new file mode 100644
index 000000000..d7780da3c
--- /dev/null
+++ b/3862/CH11/EX11.11/Ex11_11.sce
@@ -0,0 +1,39 @@
+clear
+//
+
+//variable declaration
+L=(6) //m
+w=(60) //uniformly distributed load,KN/m
+Rs=L*w/2 //Reaction at support,KN
+
+//Moment at 1.5 m from support
+M =( Rs*1.5-(w*(1.5**2)/2))
+//Shear force at 1.5 m from support
+F=Rs-1.5*w
+
+B=(200) //width of I-beam,mm
+H=(400) //height or I-beam,mm
+b=(190)
+h=(380)
+I= (B*(H**3)/12)-(b*(h**3)/12)
+
+//Bending stress at 100 mm above N–A
+y=100
+
+f=M*1000000*y/I
+
+//Thus the state of stress on an element at y = 100 mm, as px = f,py=0
+px=-f
+py=0
+A=200*10*195+10*90*145
+q=(F*1000*(A))/(10*I) //shearing stress,N/mm^2
+
+p1=(px+py)/2+sqrt((((px-py)/2)**2)+(q**2))
+p2=(px+py)/2-sqrt((((px-py)/2)**2)+(q**2))
+printf("\n p1= %0.2f N/mm^2",p1)
+printf("\n p2= %0.2f N/mm^2",p2)
+
+
+qmax=sqrt((((px-py)/2)**2)+(q**2))
+
+printf("\n qmax= %0.2f N/mm^2",qmax)