From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2744/CH1/EX1.1/Ex1_1.sce | 10 ++++++++++ 2744/CH1/EX1.10/Ex1_10.sce | 15 +++++++++++++++ 2744/CH1/EX1.11/Ex1_11.sce | 16 ++++++++++++++++ 2744/CH1/EX1.12/Ex1_12.sce | 14 ++++++++++++++ 2744/CH1/EX1.13/Ex1_13.sce | 15 +++++++++++++++ 2744/CH1/EX1.14/Ex1_14.sce | 9 +++++++++ 2744/CH1/EX1.15/Ex1_15.sce | 14 ++++++++++++++ 2744/CH1/EX1.16/Ex1_16.sce | 21 +++++++++++++++++++++ 2744/CH1/EX1.17/Ex1_17.sce | 16 ++++++++++++++++ 2744/CH1/EX1.2/Ex1_2.sce | 10 ++++++++++ 2744/CH1/EX1.3/Ex1_3.sce | 11 +++++++++++ 2744/CH1/EX1.4/Ex1_4.sce | 10 ++++++++++ 2744/CH1/EX1.5/Ex1_5.sce | 19 +++++++++++++++++++ 2744/CH1/EX1.6/Ex1_6.sce | 21 +++++++++++++++++++++ 2744/CH1/EX1.7/Ex1_7.sce | 28 ++++++++++++++++++++++++++++ 2744/CH1/EX1.8/Ex1_8.sce | 9 +++++++++ 2744/CH1/EX1.9/Ex1_9.sce | 19 +++++++++++++++++++ 17 files changed, 257 insertions(+) create mode 100755 2744/CH1/EX1.1/Ex1_1.sce create mode 100755 2744/CH1/EX1.10/Ex1_10.sce create mode 100755 2744/CH1/EX1.11/Ex1_11.sce create mode 100755 2744/CH1/EX1.12/Ex1_12.sce create mode 100755 2744/CH1/EX1.13/Ex1_13.sce create mode 100755 2744/CH1/EX1.14/Ex1_14.sce create mode 100755 2744/CH1/EX1.15/Ex1_15.sce create mode 100755 2744/CH1/EX1.16/Ex1_16.sce create mode 100755 2744/CH1/EX1.17/Ex1_17.sce create mode 100755 2744/CH1/EX1.2/Ex1_2.sce create mode 100755 2744/CH1/EX1.3/Ex1_3.sce create mode 100755 2744/CH1/EX1.4/Ex1_4.sce create mode 100755 2744/CH1/EX1.5/Ex1_5.sce create mode 100755 2744/CH1/EX1.6/Ex1_6.sce create mode 100755 2744/CH1/EX1.7/Ex1_7.sce create mode 100755 2744/CH1/EX1.8/Ex1_8.sce create mode 100755 2744/CH1/EX1.9/Ex1_9.sce (limited to '2744/CH1') 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); -- cgit