1 files changed, 14 insertions, 0 deletions
diff --git a/2732/CH7/EX7.15/Ex7_15.sce b/2732/CH7/EX7.15/Ex7_15.sce
new file mode 100755
index 000000000..6b4d6cc43
--- /dev/null
+++ b/2732/CH7/EX7.15/Ex7_15.sce
@@ -0,0 +1,14 @@
+clc
+//initilization of new variables
+clear
+wt=0.8 //cm
+ft=1.4 //cm
+w=10 //cm
+y=20 //cm
+T=750 //T==750*sigma_y
+// calculations
+MpF=ft*w*(40-2*ft)
+c1=((40-2*ft)/2)^2-(T-MpF)/wt
+c=sqrt(3*c1)
+// results
+printf('Elastic core of %.1f cm depth is present',2*c)