1 files changed, 16 insertions, 0 deletions
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);
+
+//===========================================================================