11 files changed, 125 insertions, 0 deletions
diff --git a/3020/CH1/EX1.1/ex1_1.sce b/3020/CH1/EX1.1/ex1_1.sce
new file mode 100755
index 000000000..1adeedb85
--- /dev/null
+++ b/3020/CH1/EX1.1/ex1_1.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+l = 2 ; // Length in meters
+a = 6.25e-5; // Cross Sectional area in square meter inverse
+deltal = 3e-3; // Increase in length in meters
+f = 1e3; // Tension in Newtons
+Y = (f*l)/(a*deltal); // Young's modulus
+disp('N/m^2',Y,'The youngs modulus of the wire is');
+// Slight variation in answer.. there is mistake in the book..checked in calculator also..
+
diff --git a/3020/CH1/EX1.10/ex1_10.sce b/3020/CH1/EX1.10/ex1_10.sce
new file mode 100755
index 000000000..c630e75ee
--- /dev/null
+++ b/3020/CH1/EX1.10/ex1_10.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+sap = 1.01e5; // Standard atmospheric pressure in newton per square meters
+k = 16e10;// Bulk modulus in newton per square meters
+deltaV = 1.009e5 ;// Change in pressure in newton per square meters
+C = deltaV/k;
+disp('V*m^3',C,'The fractional change of volume is')
diff --git a/3020/CH1/EX1.11/ex1_11.sce b/3020/CH1/EX1.11/ex1_11.sce
new file mode 100755
index 000000000..e64836d3f
--- /dev/null
+++ b/3020/CH1/EX1.11/ex1_11.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+Y = 1.025e10;// Youngs modulus in newton per square meters
+b = 2e-2; //Breadth of the bar in meters
+l = 1; // Length of wire in meters
+d = 1e-2;// Depth of bar in meters
+m = 2; // Load in Kg
+g = 9.8; // Gravity constant
+W=m*g;
+y = (W*l^3)/(4*Y*b*d^3);
+disp('m',y,'The depression  produced in the bar is')
diff --git a/3020/CH1/EX1.12/ex1_12.sce b/3020/CH1/EX1.12/ex1_12.sce
new file mode 100755
index 000000000..c1e0a7529
--- /dev/null
+++ b/3020/CH1/EX1.12/ex1_12.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+r = 1.2e-2; // Radius of cantilever in meters
+l = 1.5; // Length of cantilever in meters
+Y = 19.5e10; // Youngs modulus in newton per square meters
+m = 2; // Load applied in Kg
+g=9.8;
+w=m*g;
+y = (4*w*l^3)/(3*Y*%pi*r^4);//The depression produced in the wire
+disp('m',y,'The depression produced in the wire is')
diff --git a/3020/CH1/EX1.2/ex1_2.sce b/3020/CH1/EX1.2/ex1_2.sce
new file mode 100755
index 000000000..9aee8a219
--- /dev/null
+++ b/3020/CH1/EX1.2/ex1_2.sce
@@ -0,0 +1,13 @@
+clc;
+clear all;
+Y = 2e11 // Young's modulus in newton per square meter
+l = 2.75 // Length of wire in meters
+d = 1e-3 // Diameter of wire in meter
+r = (d/2); // Radius of wire
+M = 1 // Applied load in kilogram
+g = 9.8 // Acceleration due to gravity
+T = M*g; // Tensile force
+deltal = (T*l)/(%pi*r*r*Y);//Increase in length of wire
+disp('m',deltal,'Increase in length of wire is')
+// Variation in answer.. there is mistake in the book..checked in calculator also..
+
diff --git a/3020/CH1/EX1.3/ex1_3.sce b/3020/CH1/EX1.3/ex1_3.sce
new file mode 100755
index 000000000..eb7301e32
--- /dev/null
+++ b/3020/CH1/EX1.3/ex1_3.sce
@@ -0,0 +1,14 @@
+clc;
+clear all;
+F = 0.2; // Force in newtons
+d = 5e-3; // Displacement in meter
+l = 6e-2; // Length of solid in meter
+b = 6e-2; // Breadth of solid in meter
+h = 2e-2; //Height of solid in meter
+A = l*b; // Area of the solid
+shs = F/A; // Shear stress
+theta = d/h; // Shear strain
+rdm = shs/theta; // Rigidity modulus
+disp('N/m^2',shs,'Shearing stress')
+disp('',theta,'Shearing strain')
+disp('N/m^2',rdm,'Rigidity Modulus')   
diff --git a/3020/CH1/EX1.4/ex1_4.sce b/3020/CH1/EX1.4/ex1_4.sce
new file mode 100755
index 000000000..594d156d1
--- /dev/null
+++ b/3020/CH1/EX1.4/ex1_4.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+n = 2.4e10; //Rigidity Modulus in Newton per square meters
+l = 30e-2; // Thicknes0s in meter square
+a = 10e-4; // Surface area in meter square
+deltal = 1.5e-2; // Displacement in meters
+SF = (n*a*deltal)/l;// Shearing Force
+disp('N',SF,'Shearing force')
+// // there is Variation in answer.In textbook there is mistake.checked in calculator also.
+
diff --git a/3020/CH1/EX1.6/ex1_6.sce b/3020/CH1/EX1.6/ex1_6.sce
new file mode 100755
index 000000000..48b14013a
--- /dev/null
+++ b/3020/CH1/EX1.6/ex1_6.sce
@@ -0,0 +1,13 @@
+clc;
+clear all;
+l = 3; // Length of copper wire
+y  = 10e10; // Young's modulus in newton per square meter
+r = 5e-4; // Radius in meters
+d = r*2; // Diameter
+sigma = 0.26; // Poisson's Ratio
+g = 9.8; // Gravitational Constant
+M = 10; // Load in Kg
+deltal = (M*g*l)/(%pi*r*r*y);
+lt = sigma*(deltal/l); // Lateral strain
+lc = lt*d;// Lateral Compression
+disp('m',lc,'Lateral Compression produced is')
diff --git a/3020/CH1/EX1.7/ex1_7.sce b/3020/CH1/EX1.7/ex1_7.sce
new file mode 100755
index 000000000..dc95cc2e0
--- /dev/null
+++ b/3020/CH1/EX1.7/ex1_7.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+l=1; // Length of wire in meters
+d=1e-3; // Diameter of wire in meters
+r=d/2;//radius of wire in meters
+n=2.8e10; // Rigidity modulus in newton per square meters
+ang=%pi/2; //  angle in radian
+c=ang*%pi*n*r^4/(2*l);
+disp('N m',c,'The couple to be applied is')
diff --git a/3020/CH1/EX1.8/ex1_8.sce b/3020/CH1/EX1.8/ex1_8.sce
new file mode 100755
index 000000000..766a003c5
--- /dev/null
+++ b/3020/CH1/EX1.8/ex1_8.sce
@@ -0,0 +1,15 @@
+clc;
+clear all;
+d = 0.6e-3; // Diameter in meters
+r = d/2; // Radius of wire in meter
+deltal = 1e-3; // Length of elongation produced in meters
+m = 0.16*1e-3; // Mass in Rg
+angt = 1; // Angular twist in radian
+T = 10e-4; //Torque in Newton
+g = 9.8; // Gravitational Constant
+n = 2.34e9; // Rigidity modulus in mewton per square meters
+Y = (m*g)/(%pi*r*r*deltal);
+disp('',Y);
+sigma = (Y/(2*n))-1
+disp(' ',sigma,'The poisssons ratio is')
+// Wrong answer printed in textbook... Checked in calculator also... 
diff --git a/3020/CH1/EX1.9/ex1_9.sce b/3020/CH1/EX1.9/ex1_9.sce
new file mode 100755
index 000000000..ef58b29d9
--- /dev/null
+++ b/3020/CH1/EX1.9/ex1_9.sce
@@ -0,0 +1,13 @@
+clc;
+clear all;
+l = 1.5; //Length of wire in meters
+r = 80e-3; // Radius of cylindrical shaft in meters
+n = 93e9;// Rigidity modulus in Newton per square meters
+r1 = 60e-3; // Inner radius of hollow shaft
+r2 = 100e-3; // Outer radius of hollow shaft
+phi = (%pi/300); // angle of twisting 0.6 degrees in radian
+c = (%pi^2*n*r^4)/(2*l*300);
+C = (%pi^2*n*(r2^4-r1^4))/(600*l);
+disp('N.m',c,'The twisting on a solid cylindrical shaft is') 
+disp('N.m',C,'The twisting on a hollow cylindrical shaft is')
+//mistake in book.. checked in caluculator also.. slight variation in the answer..