diff options
Diffstat (limited to '3456/CH15')
| -rw-r--r-- | 3456/CH15/EX15.1/Ex15_1.sce | 20 | ||||
| -rw-r--r-- | 3456/CH15/EX15.2/Ex15_2.sce | 13 | ||||
| -rw-r--r-- | 3456/CH15/EX15.3/Ex15_3.sce | 9 | ||||
| -rw-r--r-- | 3456/CH15/EX15.4/Ex15_4.sce | 18 | ||||
| -rw-r--r-- | 3456/CH15/EX15.5/Ex15_5.sce | 21 |
5 files changed, 81 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);
diff --git a/3456/CH15/EX15.2/Ex15_2.sce b/3456/CH15/EX15.2/Ex15_2.sce new file mode 100644 index 000000000..b6b5ceee0 --- /dev/null +++ b/3456/CH15/EX15.2/Ex15_2.sce @@ -0,0 +1,13 @@ +//Example 15.2
+//Mechanics of Metal Working
+//Page No. 511
+clc;clear;close;
+
+D0=25; //in mm
+D1=20; //in mm
+D2=15; //in mm
+ep1=log((D0/D1)^2);
+U1=integrate('200000*e^0.5','e',0,ep1);
+ep2=log((D1/D2)^2);
+U2=integrate('200000*e^0.5','e',ep1,ep1+ep2);
+printf('\nPlastic work done in 1st step = %g lb/in^2\nPlastic work done in 2nd step = %g lb/in^2\n',U1,U2);
diff --git a/3456/CH15/EX15.3/Ex15_3.sce b/3456/CH15/EX15.3/Ex15_3.sce new file mode 100644 index 000000000..00d567db3 --- /dev/null +++ b/3456/CH15/EX15.3/Ex15_3.sce @@ -0,0 +1,9 @@ +//Example 15.3
+//Hodography
+//Page No. 517
+clc;clear;close;
+
+alpha=60; //in degrees
+mu=1/sind(alpha);
+p_2k=mu*5/2;
+printf('Pressure = %g',p_2k);
diff --git a/3456/CH15/EX15.4/Ex15_4.sce b/3456/CH15/EX15.4/Ex15_4.sce new file mode 100644 index 000000000..23004702c --- /dev/null +++ b/3456/CH15/EX15.4/Ex15_4.sce @@ -0,0 +1,18 @@ +//Example 15.4
+//Temperature in Metalworking
+//Page No. 526
+clc;clear;close;
+
+Al_s=200; //in MPa
+Al_e=1; //no unit
+Al_p=2.69; //in g/cm^3
+Al_c=0.215; //in cal/g * deg C
+Ti_s=400; //in MPa
+Ti_e=1; //no unit
+Ti_p=4.5; //in g/cm^3
+Ti_c=0.124; //in cal/g * deg C
+J=4.186; //in J/cal
+b=0.95; //no unit
+Al_Td=Al_s*Al_e*b/(Al_p*Al_c*J);
+Ti_Td=Ti_s*Ti_e*b/(Ti_p*Ti_c*J);
+printf('\nTemperature Rise for aluminium = %g C\nTemperature Rise for titanium = %g C\n',Al_Td,Ti_Td);
diff --git a/3456/CH15/EX15.5/Ex15_5.sce b/3456/CH15/EX15.5/Ex15_5.sce new file mode 100644 index 000000000..606fe1839 --- /dev/null +++ b/3456/CH15/EX15.5/Ex15_5.sce @@ -0,0 +1,21 @@ +//Example 15.5
+//Friction and Lubrication
+//Page No. 546
+clc;clear;close;
+
+Do=60; //in mm
+Di=30; //in mm
+def1=70; //in mm
+def2=81.4; //in mm
+h=10; //in mm
+a=30; //in mm
+di=sqrt((Do^2-Di^2)*2-def1^2);
+pr=(Di-di)/Di*100;
+m=0.27; //no unit
+p_s=1+2*m*a/(sqrt(3)*h);
+printf('\nFor OD after deformation being 70 mm, Di = %g mm\nPrecent change in inside diameter = %g percent\nPeak pressure = %g',di,pr,p_s);
+di=sqrt(def2^2-(Do^2-Di^2)*2);
+pr=(Di-di)/Di*100;
+m=0.05; //no unit
+p_s=1+2*m*a/(sqrt(3)*h);
+printf('\n\n\n\nFor OD after deformation being 81.4 mm, Di = %g mm\nPrecent change in inside diameter = %g percent\nPeak pressure = %g',di,pr,p_s);
|