From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3862/CH11/EX11.9/Ex11_9.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 3862/CH11/EX11.9/Ex11_9.sce

(limited to '3862/CH11/EX11.9/Ex11_9.sce')

diff --git a/3862/CH11/EX11.9/Ex11_9.sce b/3862/CH11/EX11.9/Ex11_9.sce
new file mode 100644
index 000000000..e783ab20c
--- /dev/null
+++ b/3862/CH11/EX11.9/Ex11_9.sce
@@ -0,0 +1,29 @@
+clear
+//
+
+//variable declaration
+
+w=(100)                   //wide of rectangular beam,mm
+h=(200)                   //height or rectangular beam dude,mm
+
+I=w*(h**3)/12
+
+//At point A, which is at 30 mm below top fibre 
+y=100-30
+M=(80*1000000)            //sagging moment,KN-m
+
+fx=M*y/I
+
+px=-fx
+F=(100*1000 )            //shear force,N
+b=(100)
+A=b*30
+y1=100-15
+
+q=(F*(A*y1))/(b*I)     //shearing stress,N/mm^2
+
+py=0
+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)
-- 
cgit