1 files changed, 25 insertions, 0 deletions
diff --git a/539/CH6/EX6.2/Example_6_2.sce b/539/CH6/EX6.2/Example_6_2.sce
new file mode 100755
index 000000000..b8bf8c031
--- /dev/null
+++ b/539/CH6/EX6.2/Example_6_2.sce
@@ -0,0 +1,25 @@
+//Computation of Load to Produce Specified Diameter Change
+
+clear;
+clc;
+
+printf("\tExample 6.2\n");
+
+del_d=-2.5*10^-3;  //Deformation in dia  in mm
+d0=10;             //Initial dia  in mm
+
+v=0.34;           //Poisson ratio for brass
+
+ex=del_d/d0;
+printf("\nStrain in x-direction is %f",ex);
+
+ez=-ex/v;
+printf("\nStrain in z-direction is %f",ez);
+
+E=97*10^3;        //Modulus of elasticity in MPa
+sigma=ez*E;
+F=sigma*%pi*(d0^2)/4;
+
+printf("\nApplied force is %d N",F);
+
+//End
+\ No newline at end of file