initial commit / add all books

17 files changed, 257 insertions, 0 deletions

diff --git a/2744/CH1/EX1.1/Ex1_1.sce b/2744/CH1/EX1.1/Ex1_1.sce
new file mode 100755
index 000000000..221b58a80
--- /dev/null
+++ b/2744/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,10 @@
+clear all;

+clc;

+P = 5.5 ;//Axial pull in tons

+E = 13000 ;//modulus of elasticity tons/in^2

+l = 120 ;//length in inches

+A = %pi/4 ;//Area of resisting section in^2

+p = P/A ;//Intensity of stress in tons/in^2

+e = p/E ;//strain

+delta_l =  l*e;//elongation of the bar in inches

+printf('The elongation of the bar is %.4f inch',delta_l);

diff --git a/2744/CH1/EX1.10/Ex1_10.sce b/2744/CH1/EX1.10/Ex1_10.sce
new file mode 100755
index 000000000..cff80ce13
--- /dev/null
+++ b/2744/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,15 @@
+clear ;

+clc ;

+a = 12;//length of each side in inches

+d = 9/8;//diameter of each reinforced bar in inches

+r = 3;//distance of centre from the edges in inches

+p_c = 600;//in lb/in^2

+n = 18;//modular ration E_s/E_c

+A_s = 4*0.25*%pi*d^2;//in in^2

+A_c = a^2 - A_s;//in in^2

+p_s = n*p_c;//in lb/in^2

+P = p_s*A_s+p_c*A_c;//safe central load in lb-wt

+printf('Safe central load = %d lb-wt',P);

+printf('\n Of this, the reinforcing bars carry %d lb-wt',p_s*A_s);

+

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.11/Ex1_11.sce b/2744/CH1/EX1.11/Ex1_11.sce
new file mode 100755
index 000000000..717a7500f
--- /dev/null
+++ b/2744/CH1/EX1.11/Ex1_11.sce
@@ -0,0 +1,16 @@
+clear ;

+clc ;

+l = 8;//length in feet

+d = 0.5;//diameter in inches

+r = 30;//distance between two rods in inches

+P = 2000;//load in lb-wt

+E_s = 30*10^6;//modulus of elsticity of steel rod

+E_b = 16*10^6;//modulus of elsticity of brass rod

+A_s = 0.25*%pi*d^2;//section area in in^2

+p_b = P/(A_s*(1+(E_s/E_b)));

+p_s = (P/A_s) - p_b ;

+P_b = A_s*p_b;

+P_s = A_s*p_s;

+printf('P_s = %.1f lb/in^2\n and P_b = %.1f lb/in^2',P_s,P_b);

+x = r*P_b/P ;//

+printf('\n  x = %.2f inches',x);

diff --git a/2744/CH1/EX1.12/Ex1_12.sce b/2744/CH1/EX1.12/Ex1_12.sce
new file mode 100755
index 000000000..c7a649945
--- /dev/null
+++ b/2744/CH1/EX1.12/Ex1_12.sce
@@ -0,0 +1,14 @@
+clear ;

+clc ; 

+alpha = 0.0000062 ;//co-efficient of the expansion in "per F"

+t = 100;//in F

+d = 3/4;//in inches

+del = 0.02;//in inches

+l = 15;//in ft

+E = 13000;//in tons/in^2

+e = alpha*t - (del/(l*12));

+p = E*e;//in tons/in^2

+A = 0.25*%pi*d^2;//in in^2

+P = p*A ;//in tons

+printf('Tensile strain imposed by end-grips,e = %.5f',e);

+printf('\n p = %.2f tons/in^2\n P = %.2f tons',p,P);

diff --git a/2744/CH1/EX1.13/Ex1_13.sce b/2744/CH1/EX1.13/Ex1_13.sce
new file mode 100755
index 000000000..d9e6d366f
--- /dev/null
+++ b/2744/CH1/EX1.13/Ex1_13.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+d = 1;//diameter of steel bar in inches

+d1 = 3/2;//external diameter of brass tube in inches

+d2 = 1;//internal diameter of brass tube in inches

+t = 100;//in F

+alpha_s = 0.0000062;//alpha of steel in "per F"

+alpha_b = 0.000010;//alpha of brass in "per F"

+E_s = 30*10^6;//in lb/in^2

+E_b = 14*10^6;//in lb/in^2

+A_s = 0.25*%pi*d^2;//section area of steel bar in in^2

+A_b = 0.25*%pi*(d1^2-d2^2);//section area of brass tube in in^2

+p_b = t*(alpha_b-alpha_s)*E_s/((A_b/A_s)+(E_s/E_b));

+p_s = (A_b/A_s)*p_b;

+printf('The stresses induced in each metal are, p_b = %d lb/in^2\n       p_s = %d lb/in^2',p_b,p_s);

diff --git a/2744/CH1/EX1.14/Ex1_14.sce b/2744/CH1/EX1.14/Ex1_14.sce
new file mode 100755
index 000000000..790201a09
--- /dev/null
+++ b/2744/CH1/EX1.14/Ex1_14.sce
@@ -0,0 +1,9 @@
+clear;

+clc;

+D = 4;//diameter of the wheel in ft

+p = 6 ;//hoop stress in tons/in^2

+alpha = 0.0000062;//in "per F" 

+E = 13000;//in tons/in^2

+d = (1/(1+(p/E)))*D*12;//internal diameter in inches

+t = (D*12-d)/(d*alpha);

+printf('The least temperature the tube must be heated is, t = %.1f F',t);

diff --git a/2744/CH1/EX1.15/Ex1_15.sce b/2744/CH1/EX1.15/Ex1_15.sce
new file mode 100755
index 000000000..c2c267ccf
--- /dev/null
+++ b/2744/CH1/EX1.15/Ex1_15.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+p = 8;//normal stress intensity in tons/in^2

+theta = 35*%pi/180;//inclination of the section in degrees

+P = p*cos(theta);//resultant stress intensity in tons/in^2

+p_n = P*cos(theta);//normal stress intensity in tons/in^2

+p_t = P*sin(theta);//tangential stress intensity in tons/in^2

+p_max = 0.5*p;//maximum possible shear in tons/in^2

+angle = 45;//inclination of these planes in degrees

+printf('Resultant stress intensity = %.2f tons/in^2',P);

+printf('\n normal stress intensity = %.2f tons/in^2',p_n);

+printf('\n tangential stress intensity = %.2f tons/in^2',p_t);

+printf('\n The maximum possible shear on any plane is %d tons/in^2',p_max);

+printf('\n and these planes are inclined at %d degrees to the normal section.',angle);

diff --git a/2744/CH1/EX1.16/Ex1_16.sce b/2744/CH1/EX1.16/Ex1_16.sce
new file mode 100755
index 000000000..28584f342
--- /dev/null
+++ b/2744/CH1/EX1.16/Ex1_16.sce
@@ -0,0 +1,21 @@
+clear;

+clc;

+d = 9/8;//diameter of the steel bar in inches

+P = 6;//tensile load in tons

+del_l = 0.0036 ;//extension of length inches

+l = 8;//gauge length in inches

+del_d = 0.00015;//change in diameter in inches

+A = 0.25*%pi*d^2;//section area in in^2

+p = P/A;//stress in tons/in^2

+e = del_l/l;//strain

+E = p/e;//modulus of elasticity in tons/in^2

+LS = del_d/d;//lateral strain 

+PR = LS/e;//poisson's ratio 

+N = E/(2*(1+PR));//rigidity modulus in tons/in^2

+K = E/(3*(1-2*PR));//bulk modulus in tons/in^2

+printf('Poisson ratio 1/m = %.4f',PR);

+printf('\n  E = %d tons/in^2',E);

+printf('\n  N = %d tons/in^2',N);

+printf('\n  K = %d tons/in^2',K);

+

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.17/Ex1_17.sce b/2744/CH1/EX1.17/Ex1_17.sce
new file mode 100755
index 000000000..3d0aa0dc4
--- /dev/null
+++ b/2744/CH1/EX1.17/Ex1_17.sce
@@ -0,0 +1,16 @@
+clear;

+clc;

+N = 2640;//rigidity modulus in tons/in^2

+d = 3/8;//diameter of the rod in inches

+P = 1/2;//axial pull in tons

+del_d = 0.000078;//change in diameter in inches

+A = 0.25*%pi*d^2;//section area in in^2

+p = P/A ;//stress tons/in^2

+LS = del_d/d;//lateral strain

+m = p/(LS*2*N) - 1;

+E = 2*N*(1 + 1/m);//modulus of elasticity in ton/in^2

+PR = 1/m;//poisson's ratio 

+printf('Poisson ratio 1/m = %.3f',PR);

+printf('\n    E = %d ton/in^2',E);

+

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.2/Ex1_2.sce b/2744/CH1/EX1.2/Ex1_2.sce
new file mode 100755
index 000000000..05689ac78
--- /dev/null
+++ b/2744/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,10 @@
+clear all;

+clc;

+s_p = 200;//steam pressure in lb/in^2

+l = 4;//length in inches

+b = 4;//breadth in inches

+p = 14000;//permissible streaa in lb/in^2

+P = s_p*l*b;//Pull on each bolt in lb-wt

+A = P/p ;//necessary area of bolt-section

+d = sqrt(4*A/%pi) ;//minimum diameter in inches

+printf('The minimum diameter d of each stay bolt = %0.2f inch',d);

diff --git a/2744/CH1/EX1.3/Ex1_3.sce b/2744/CH1/EX1.3/Ex1_3.sce
new file mode 100755
index 000000000..2576e1836
--- /dev/null
+++ b/2744/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,11 @@
+clear all;

+clc;

+D = 8;//external diameter in inches 

+d = 6;//internal diameter in inches

+sigma = 36;//ultimate stress in tons/in^2

+n = 6;//safety factor

+A = 0.25*%pi*(D^2 - d^2);//Area of section in in^2

+P =  sigma*A; //crushing load for the column in tons 

+P_safe = P/n ;//safe load in tons

+printf('Safe load = %d tons',P_safe); 

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.4/Ex1_4.sce b/2744/CH1/EX1.4/Ex1_4.sce
new file mode 100755
index 000000000..a32acfc54
--- /dev/null
+++ b/2744/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,10 @@
+clear all;

+clc;

+sigma = 20;//ultimate sheat stress in tons/in^2

+d = 1/2;//diameter of the hole in inches

+t = 3/8;//thickness of the plate in inches

+A = 0.25*%pi*d^2;//area of the cross-section of the punch in^2

+P = %pi*d*t*sigma;//necessary force in tons

+sigma_comp = P/A;//compressive stress on the punch

+printf('The compressive stress of the punch = %d tons/in^2',sigma_comp);

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.5/Ex1_5.sce b/2744/CH1/EX1.5/Ex1_5.sce
new file mode 100755
index 000000000..0d2479a83
--- /dev/null
+++ b/2744/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,19 @@
+clear all;

+clc;

+b = 8;//width in inches

+t = 3/8;//thickness in inches

+l = 20;//length in feets

+P = 22;//pull in tons

+E = 13500;//modulus of elasticity in tons/in^2

+sigma = 0.3;//poisson/s ratio

+A = b*t;//in in^2

+V = l*A*12;//in cub.inch

+p = P/A;//in tons/in^2

+e = p/E;

+delta_l = e*l*12;//stretch of the bar in inches

+Lateral_strain = e*sigma ;//lateral strain

+del_b = b*Lateral_strain;//in inches

+del_t = t*Lateral_strain;//in inches

+k = e*(1-2*sigma);//(del_V)/(V)

+del_V = k*V;//change in volume in cub.inch

+printf('The change in volume is %.3f cub.inch',del_V);

diff --git a/2744/CH1/EX1.6/Ex1_6.sce b/2744/CH1/EX1.6/Ex1_6.sce
new file mode 100755
index 000000000..941c237e3
--- /dev/null
+++ b/2744/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,21 @@
+clear all;

+clc;

+d = 7/8;//diameter of the bar in inches

+l = 10;//length in feets

+P = 6;;//axial pull in tons

+E = 13000;//modulus of elsticity in tons/in^2

+m = 4;

+A = 0.25*%pi*d^2;//in in^2

+V = 0.25*%pi*d^2*l*12;//volume in cub.inches

+p = P/A;//in tons/in^2

+e = p/E;

+del_l = e*l*12;//stretchof the bar in inches

+Lateral_strain = e/m ;//lateral strain

+del_d = Lateral_strain*d;//Contraction in diameter in inches

+printf('The Contraction in diameter is %f inches',del_d);

+k = e*(1-2/m);//(del_V)/(V)

+del_V = k*V;//change in volume in cub.inch

+printf('\n The change in volume is %.4f cub. inch',del_V);

+W = 0.5*P*del_l;;//work done in stretching the bar in in-ton

+printf('\n The work done in stretching the bar is %.4f in-ton',W);

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.7/Ex1_7.sce b/2744/CH1/EX1.7/Ex1_7.sce
new file mode 100755
index 000000000..cff397a76
--- /dev/null
+++ b/2744/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,28 @@
+clear all;

+clc;

+L = 24;//length of the bar in ft

+d1 = 9/8;//diameter of the bar in inches

+l1 = 6;//in ft

+d2 = 1;//in inches

+l2 = 12;//in ft

+d3 = 5/4;//in inches

+l3 = L-l1-l2;//in ft

+P = 10000;//axial compression in lb-wt

+E = 28*10^6;//modulus of elasticity in lb/in^2

+A1 = 0.25*%pi*d1^2;//in in^2

+A2 = 0.25*%pi*d2^2;//in in^2

+A3 = 0.25*%pi*d3^2;//in in^2

+p1 = P/A1 ;//in lb/in^2

+e1 = p1/E;

+p2 = P/A2 ;//in lb/in^2

+e2 = p2/E;

+p3 = P/A3 ;//in lb/in^2

+e3 = p3/E;

+del_l1 = e1*l1*12;//in inches

+del_l2 = e2*l2*12;//in inches

+del_l3 = e3*l3*12;//in inches

+del_l = del_l1+del_l2+del_l3;//total change in length in ft

+W = 0.5*P*del_l/12;//energy stored in the bar in ft-lbs

+printf('Total change in length of the bar is %.3f inches',del_l);

+printf('\n The energy stored in the bar is %.1f ft-lbs',W);

+//there is an error in the answer given in textbook.

diff --git a/2744/CH1/EX1.8/Ex1_8.sce b/2744/CH1/EX1.8/Ex1_8.sce
new file mode 100755
index 000000000..29154d194
--- /dev/null
+++ b/2744/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,9 @@
+clear all;

+clc;

+P = 1200;//axial pull in lb-wt

+d1 = 1;//diameter of one end in inches

+d2 = 0.5;//diameter of other end in inches

+l = 10;//length of the rod in inches

+E = 14*10^6;//modulus of elsticity in lb/in^2

+del_l = 4*P*l/(%pi*E*d1*d2);//change in length in inches 

+printf('The change in length of the rod is %.4f inches',del_l);

diff --git a/2744/CH1/EX1.9/Ex1_9.sce b/2744/CH1/EX1.9/Ex1_9.sce
new file mode 100755
index 000000000..7023069fe
--- /dev/null
+++ b/2744/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,19 @@
+clear ;

+clc ;

+d = 1;//diameter of the steel bar in inches

+l = 12;//length of the steel bar in inches

+d1 = 3/2;//external diameter in inches

+d2 = 1;//internal diameter in inches

+P = 5;//axial pull in tons

+E_s = 30*10^6;//modulus of elasticity of steel in lb/in^2

+E_b = 14*10^6;//modulus of elasticity of brass in lb/in^2

+A_s = 0.25*%pi*d^2;//area of the steel section in in^2

+A_b = 0.25*%pi*(d1^2-d2^2);//area of the brass section in in^2

+P_b = (P/((E_s/E_b)*A_s+A_b))*A_b;//load resisted by the brass tube in tons

+P_s = P-P_b;//bal;ance load resisted by the steel tube

+e = (P_b/A_b)*2240/E_b ;//strain

+printf('The strain e = %.4f',e);

+del_l = e*l ;//extension of the bar in inches

+printf('\n The extension of the bar = %.4f inches',del_l);

+W = 0.5*P*del_l;//work done in stretching in inch-ton

+printf('\n The work done in stretching is %.3f inch-ton',W);