Modified the code

1 files changed, 10 insertions, 13 deletions

diff --git a/3776/CH10/EX10.15/Ex10_15.sce b/3776/CH10/EX10.15/Ex10_15.sce
index 72f3ed920..62eb98e8c 100644
--- a/3776/CH10/EX10.15/Ex10_15.sce
+++ b/3776/CH10/EX10.15/Ex10_15.sce
@@ -1,17 +1,14 @@
 clear
 //Given
-E = 30*(10**3) //ksi - The youngs modulus of the material 
+E = 30*(10**3) //ksi - The youngs modulus of the material
 stress_y = 40 //ksi - yield stress
-stress_max = 24.2 //ksi - the maximum stress
-l = 2          //in - The length of the crossection 
+stress_max = 24.4 //ksi - the maximum stress
+l = 2          //in - The length of the crossection
 b = 3       //in - the width of the crossection
-h = 3 //in - the depth of the crossection
-//lets check ultimate capacity for a 2 in deep section 
-M_ul = stress_y*b*(l**2)/4 //K-in the ultimate capacity 
-curvature = 2*stress_y/(E*(h/2) ) //in*-1 the curvature of the beam 
-curvature_max = stress_max/(E*(h/2)) //in*-1 The maximum curvature 
-printf("\n the ultimate capacity %0.3f k-in",M_ul)
-printf("\n the ultimate curvature %0.3f in *-1",curvature_max)
-printf("\n E given in equation is wrong")
-printf("\n Actual E in question is 30*10**3")
-
+h = 2 //in - the depth of the crossection
+//lets check ultimate capacity for a 2 in deep section
+M_ul = stress_max*b*(l**2)/4 //K-in the ultimate capacity
+curvature = 2*stress_y/(E*(h/2) ) //per inch the curvature of the beam
+curvature_max = stress_max/(E*(b/2)) //per inch The maximum curvature
+printf("\n the curvature in 11-in is %e per inch",curvature)
+printf("\n the ultimate curvature %e per inch",curvature_max)