4 files changed, 80 insertions, 0 deletions
diff --git a/2438/CH9/EX9.1/Ex9_1.sce b/2438/CH9/EX9.1/Ex9_1.sce
new file mode 100755
index 000000000..42121b14f
--- /dev/null
+++ b/2438/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,23 @@
+//=========================================================================================
+// chapter 9 example 1
+clc
+clear
+
+// Variable declaration
+F   = 8482;     // Tensile force in newtons
+lo  = 0.30;     // length of steel wire in cm
+Y   = 207*10^9; // Youngs modulus of steel Gpa
+r   = 3*10^-3;  // radius of steel wire  in m
+v   = 0.30;     // poisson ratio
+
+// Calculations
+
+dl  = (F*lo)/(Y*%pi*r^2);       // elongation in mm
+e1  = dl/lo                     // longitudanl strain 
+e2  = v*e1                      // lateral strain 
+dr  = e2*r;                     // lateral contraction in m
+ 
+// Result
+mprintf('Elongation = %3.3f mm\n Lateral contraction = %3.1f um',dl/10^-3,dr/10^-6);
+
+//=============================================================================================
diff --git a/2438/CH9/EX9.3/Ex9_3.sce b/2438/CH9/EX9.3/Ex9_3.sce
new file mode 100755
index 000000000..e251cee28
--- /dev/null
+++ b/2438/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,20 @@
+//=============================================================================
+// chapter 9 example 3
+
+clc
+clear
+
+// Variable declaration
+
+P   = 400;          // tensile force in newtons 
+d   = 6*10^-3;      // diameter of steel rod m
+
+// Calculations
+r   =d/2;
+E_stress = P/((%pi/4)*r*r);         //e_stress in N/m^2
+
+// Result
+
+mprintf('Engineering stress = %3.2f MPa',E_stress/10^6);
+
+//===========================================================================
diff --git a/2438/CH9/EX9.4/Ex9_4.sce b/2438/CH9/EX9.4/Ex9_4.sce
new file mode 100755
index 000000000..c9c0331bf
--- /dev/null
+++ b/2438/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,16 @@
+//==========================================================================
+// chapter 9 example 4
+clc
+clear
+
+// Variable declaration
+Lf  = 42.3;         // guage length after strain mm
+Lo  = 40;           // guage length in mm
+
+// Calculations
+e   = ((Lf - Lo)/Lo)*100      // Engineering Strain in percent
+
+// Result
+mprintf('Percentage of elongation = %3.2f percent',e);
+
+//===========================================================================
diff --git a/2438/CH9/EX9.5/Ex9_5.sce b/2438/CH9/EX9.5/Ex9_5.sce
new file mode 100755
index 000000000..8f4de96bc
--- /dev/null
+++ b/2438/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,21 @@
+//=========================================================================
+// chapter 9 example 5
+
+clc;
+clear;
+
+// Variable declaration
+
+dr  = 12.8      // original diameter of steel wire in mm
+df  = 10.7;     // diameter at fracture in mm
+
+// Calculations
+
+percent_red = (((%pi*dr*dr) - (%pi*df*df))/(%pi*dr*dr))*100;
+
+
+// Result
+
+mprintf('Percent reduction in area = %3.2f percent',percent_red);
+
+//========================================================================