1 files changed, 24 insertions, 0 deletions
diff --git a/3862/CH10/EX10.3/Ex10_3.sce b/3862/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..f1812eaac
--- /dev/null
+++ b/3862/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,24 @@
+clear
+//the cross-section of a cantilever beam of 2.5 m span. Material used is steel for which maximum permissible stress is 150 N/mm^2
+ 
+//variable declaration
+
+A=(180)               //width of I-beam,mm
+H=(400)               //height of I-beam,mm
+a=(170)               //width of inter rectancle if I-beam consider as Rectangle with width 10,mm
+h=(380)               //Height of inter rectancle if I-beam consider as Rectangle with width 10,mm
+
+I=((A*(H**3))/12)-((a*(h**3))/12)
+ymax=(200)            //extreme fibre,mm
+
+Z=I/ymax
+fper=(150) 
+
+Mmax=fper*Z
+
+//If udl is w kN/m, maximum moment in cantilever
+
+L=2  //m
+
+w=Mmax/(L*1000000)
+printf("\n w= %0.2f  KN/m",w)