1 files changed, 14 insertions, 0 deletions
diff --git a/2744/CH3/EX3.4/Ex3_4.sce b/2744/CH3/EX3.4/Ex3_4.sce
new file mode 100755
index 000000000..ac7288580
--- /dev/null
+++ b/2744/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,14 @@
+clear;
+clc;
+w = 4;//tons
+v = 2;//miles per hour
+l = 150;//feet
+d = 3/2;//inches
+E = 13000;// tons/in^2
+g = 32;// ft/sec^2
+A = 0.25*%pi*d^2;// in^2
+KE = w*(v*17.6)^2/(2*g*12);// inch-tons
+p = sqrt(KE*(2*E)/(A*l*12));// tons/in^2
+del_l = p*l*12/E;// inches
+printf('Maximum instantaneous stress produced is p = %.2f tons/in^2',p);
+printf('\n Maximum instantaneous extension produced is del_l = %d inch',del_l);