1 files changed, 20 insertions, 0 deletions
diff --git a/3456/CH15/EX15.1/Ex15_1.sce b/3456/CH15/EX15.1/Ex15_1.sce
new file mode 100644
index 000000000..10e67fff8
--- /dev/null
+++ b/3456/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,20 @@
+//Example 15.1
+//Mechanics of Metal Working
+//Page No. 506
+clc;clear;close;
+
+//For Bar which is double in length
+L2=2;             //factor (no units)
+L1=1;             //factor (no units)
+e=(L2-L1)/L1;
+e1=log(L2/L1);
+r=1-L1/L2;
+printf('\nEnginering Strain = %g\nTrue Strain = %g\nReduction = %g',e,e1,r);
+
+//For bar which is halved in length
+L1=1;             //factor (no units)
+L2=0.5;             //factor (no units)
+e=(L2-L1)/L1;
+e1=log(L2/L1);
+r=1-L1/L2;
+printf('\n\nEnginering Strain = %g\nTrue Strain = %g\nReduction = %g',e,e1,r);