6 files changed, 91 insertions, 0 deletions
diff --git a/2744/CH3/EX3.1/Ex3_1.sce b/2744/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..5cd022aa9
--- /dev/null
+++ b/2744/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+d = 3/2;//inches
+l = 10;;//feet
+P = 8;//tons
+E = 13500;//tons/in^2
+A = 0.25*%pi*d^2;//in^2
+p = 2*P/A;// tons/in^2
+e = p/E;
+del_l = e*l*12;//inches
+W = P*del_l;//inch-ton
+printf('The maximum instantaneous stress produced is, p = %.2f tons/in^2',p);
+printf('\n The corresponding strain is e = %.6f \n  del_l = %.2f inches',e,del_l);
+printf('\n The work done on the rod and stored by it is %.2f inch-ton.',W);
+
+//there is an error in the answer given in text book
diff --git a/2744/CH3/EX3.2/Ex3_2.sce b/2744/CH3/EX3.2/Ex3_2.sce
new file mode 100755
index 000000000..ead02ccc7
--- /dev/null
+++ b/2744/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,15 @@
+clear;
+clc;
+l = 6;//feet
+d = 1;//inches
+h = 4;//inches
+E = 30*10^6;//lb/in^2
+A = 0.25*%pi*d^2;//in^2
+P = 50;//lb
+p = (P/A)+sqrt((P^2/A^2)+(2*E*P*h)/(A*l*12));
+e = p/E;
+del_l = e*l*12//inches
+printf('Maximum instantaneous stress produced is p = %d lb/in^2',p);
+printf('\n Maximum instantaneous extension produced is del_l = %.3f lb/in^2',del_l);
+
+//there is an error in the answer given in text book
diff --git a/2744/CH3/EX3.3/Ex3_3.sce b/2744/CH3/EX3.3/Ex3_3.sce
new file mode 100755
index 000000000..36190d5a4
--- /dev/null
+++ b/2744/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+l = 10;//feet
+d = 5/4;//inches
+p = 8;//tons/in^2
+E = 13000;//tons/in^2
+A = 0.25*%pi*d^2;//in^2
+e = p/E;
+del_l = e*l*12;//inches
+W = 0.5*p^2*A*l*12/E;// inch-ton
+h = W*10-del_l;//inches
+printf('Instantaneous elongation is del_l = %.3f inches',del_l);
+printf('\n Height of the drop is h = %.2f inches',h);
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);
diff --git a/2744/CH3/EX3.5/Ex3_5.sce b/2744/CH3/EX3.5/Ex3_5.sce
new file mode 100755
index 000000000..1d37fffb7
--- /dev/null
+++ b/2744/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+d = 2;//inches
+l = 8;//feet
+U = 50;// ft-lbs
+E = 28*10^6;// lb/in^2
+V = 0.25*%pi*d^2*l*12;// in^3
+p = sqrt(2*U*12*E/V);// lb/in^2
+e = p/E;
+del_l = e*l*12;// inches
+printf('Maximum instantaneous stress produced is p = %d lb/in^2',p);
+printf('\n Maximum instantaneous extension produced is del_l = %.4f inches',del_l);
+//there is an error in the answer given in text book
diff --git a/2744/CH3/EX3.6/Ex3_6.sce b/2744/CH3/EX3.6/Ex3_6.sce
new file mode 100755
index 000000000..7aa5da7f6
--- /dev/null
+++ b/2744/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,20 @@
+clear;
+clc;
+l = 12;//feet
+d1_A = 1;//inch
+d2_A = 2;//inches
+l1_A = 4;//inches
+l2_A = 8;//inches
+d1_B = 1;//inch
+d2_B = 2;//inches
+l1_B = 8;//inches
+l2_B = 4;//inches
+p_A = 15/2;// tons/in^2
+p_B = sqrt((2/3)*p_A^2);// tons/in^2
+r1 = (9*%pi/8)/(3*%pi/4);//ratio of energies if both bars are allowed to reach the proof stress
+V_A  = 0.25*%pi*d1_A^2*l1_A+ 0.25*%pi*d2_A^2*l2_A;// in^3
+V_B  = 0.25*%pi*d1_B^2*l1_B+ 0.25*%pi*d2_B^2*l2_B;// in^3
+r2 = ((3/16)*p_B^2)/((1/12)*p_B^2);//ratio of enrgies
+printf('Maximum instantaneous stress produced is p_B = %.2f tons/in^2',p_B);
+printf('\n Ratio of energies stored if both bars are allowed to reach the proof stress is r1 = %.2f ',r1);
+printf('\n Ratio of energies stored at the same stress per unit volume, is r2 = %.2f ',r2);