diff options
Diffstat (limited to '3821/CH2/EX2.5/Example2_5.sce')
-rw-r--r-- | 3821/CH2/EX2.5/Example2_5.sce | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/3821/CH2/EX2.5/Example2_5.sce b/3821/CH2/EX2.5/Example2_5.sce new file mode 100644 index 000000000..1d80a7f2f --- /dev/null +++ b/3821/CH2/EX2.5/Example2_5.sce @@ -0,0 +1,31 @@ +////Example 1.5 Page No:23
+////Find Stress in metallic rod
+////input data
+clc;
+clear;
+d1=50*10^-3; //Diameter of metalic rod in mm**2
+L1=220*10^-3; //Length of metalic rod in mm
+Pt1=40*10^3; //Load of metalic rod in KN
+deltaLt1=0.03*10^-3; //Elastic enlongation in mm
+ypl=160*10^3; //Yield point load in KN
+ml=250*10^3; //Maximum load in KN
+lsf=270*10^-3; //Length of specimen at fracture in mm
+pi=3.142;
+
+//calculation
+A1=(((pi)/(4))*((d1)^2)); //(1)Cross section area
+sigmat1=Pt1/A1; //Stress in metallic rod
+et1=deltaLt1/L1; //Strain n metallic rod
+E1=sigmat1/et1; //Young's modulus
+ys=ypl/A1; //(2)Yeild strength
+uts=ml/A1; //(3)Ultimate tensile strength
+Pebf1=((lsf-L1)/L1)*100; //Percentage elongation before fracture
+
+//output
+printf('cross section area = %f m^2\n',A1);
+printf('stress in metallic rod= %f N/m^2 \n',sigmat1);
+printf('strain n metallic rod= %f \n',et1);
+printf('youngs modulus= %f GN/m^2\n',E1);
+printf('yeild strength= %f MN/m^2\n',ys);
+printf('ultimate tensile strength= %f MN/m^2 \n',uts);
+printf('percentage elongation before fracture= %f percent \n ',Pebf1);
|