1 files changed, 22 insertions, 0 deletions
diff --git a/2732/CH9/EX9.15/Ex9_15.sce b/2732/CH9/EX9.15/Ex9_15.sce
new file mode 100755
index 000000000..962070e6d
--- /dev/null
+++ b/2732/CH9/EX9.15/Ex9_15.sce
@@ -0,0 +1,22 @@
+clc
+//initialization of variables
+clear
+// linked to 9_14
+// calculations
+P=400 //kg/m
+L=10 //m
+F=10 //tonne
+n=3
+Ixx=5943.1 //cm^4
+A=52.03 //cm^2
+rx=10.69 //cm
+E=2*10^6 //kg/cm^2
+Pcr=%pi^2*E*Ixx/((L*100)^2)
+Pcr=Pcr/1000
+e=P*L^2/(8*F*1000)
+g=e*12.5*100/rx^2
+Smax=F*1000/A*(1+g*1/(1+n*(F/Pcr)))
+// results
+printf('The maximum stress developed is %d kg/cm^2',Smax)
+
+// approximate answer in the text