diff options
Diffstat (limited to '3526/CH8')
| -rw-r--r-- | 3526/CH8/EX8.1/EX8_1.sce | 13 | ||||
| -rw-r--r-- | 3526/CH8/EX8.2/EX8_2.sce | 11 | ||||
| -rw-r--r-- | 3526/CH8/EX8.5/EX8_5.sce | 16 | ||||
| -rw-r--r-- | 3526/CH8/EX8.6/EX8_6.sce | 17 | ||||
| -rw-r--r-- | 3526/CH8/EX8.7/EX8_7.sce | 11 |
5 files changed, 68 insertions, 0 deletions
diff --git a/3526/CH8/EX8.1/EX8_1.sce b/3526/CH8/EX8.1/EX8_1.sce new file mode 100644 index 000000000..d36e8feed --- /dev/null +++ b/3526/CH8/EX8.1/EX8_1.sce @@ -0,0 +1,13 @@ +clc;funcprot(0);//EXAMPLE 8.1
+//page 221
+// Initialisation of Variables
+t0=1;.......//Thickness of Copper plate in cm
+tf=0.50;.....//Cold reducetion of coopper in cm in step1
+tf2=0.16;.....// Further Cold reduction of cooper in cm in step2
+//CALCULATIONS
+%CW1=((t0-tf)/t0)*100;......//Amount of Cold work accomplished in step1
+%CW2=((tf-tf2)/tf)*100;.....//Amount of Cold work accomplished in step2
+%CW=((t0-tf2)/t0)*100;.......//Actual Total Cold work in percent
+disp(%CW1,"Amount of Cold work accomplished in step1:")
+disp(%CW2,"Amount of Cold work accomplished in step2:")
+disp(%CW,"Actual Total Cold work in percent:")
diff --git a/3526/CH8/EX8.2/EX8_2.sce b/3526/CH8/EX8.2/EX8_2.sce new file mode 100644 index 000000000..c51c3f09a --- /dev/null +++ b/3526/CH8/EX8.2/EX8_2.sce @@ -0,0 +1,11 @@ +clc;funcprot(0);//EXAMPLE 8.2
+//page 222
+// Initialisation of Variables
+tf=0.1;.......//Thickness of cooper to produce in cm
+%CW1=40;.......//cold work to produce a tensile strengthof 65,000 psi
+%CW2=45;.......//cold work to produce a tensile strengthof 60,000 psi
+//CALCULATIONS
+Tmax=(tf/(1-(%CW1/100)));.........//Maximum thicknessproduced in step1 in cm
+Tmin=(tf/(1-(%CW2/100)));.........//Minimum thicknessproduced in step2 in cm
+disp(Tmax,"Maximum thicknessproduced in cm:")
+disp(Tmin,"Minimum thicknessproduced in cm:")
diff --git a/3526/CH8/EX8.5/EX8_5.sce b/3526/CH8/EX8.5/EX8_5.sce new file mode 100644 index 000000000..caaabb227 --- /dev/null +++ b/3526/CH8/EX8.5/EX8_5.sce @@ -0,0 +1,16 @@ +//EXAMPLE 8.5
+//page 228
+clc;
+// Initialisation of Variables
+D0=0.40;........//Let’s assume that the starting diameter of the copper wire in in.
+Df=0.20;........// Diameter of the copper wire to be produced in in.
+sigma1=22000;..........//Yeidl strength at 0% cold work
+//CALCULATIONS
+CW=((D0^2-Df^2)/D0^2)*100;.........//The fianal Cold Work in percent
+F=sigma1*(%pi/4)*D0^2;........//The draw force required to deform the initial wire in lb
+sigma2=F/((%pi/4)*Df^2);.....// The stress acting on the wire after passing through the die in psi
+disp(CW,"The fianal Cold Work in percent:")
+disp(F,"The draw force required to deform the initial wire in lb:")
+disp(sigma2,"The stress acting on the wire after passing through the die in psi:")
+
+
diff --git a/3526/CH8/EX8.6/EX8_6.sce b/3526/CH8/EX8.6/EX8_6.sce new file mode 100644 index 000000000..f6119340d --- /dev/null +++ b/3526/CH8/EX8.6/EX8_6.sce @@ -0,0 +1,17 @@ +clc;funcprot(0);//EXAMPLE 8.6
+//page 235
+// Initialisation of Variables
+t0=5;.......//Assming we are able to purchase only 5-cm thick stock
+t02=1;......//Thickness of strip in cm
+tf=0.182;......//Final thickness of strip in cm
+%CW2=80;.......//cold work of a strip in percent
+M=1085;.......// The melting point of copper in degree celsius
+//CALCULATIONS
+%CW=((t0-tf)/t0)*100;.......//Cold work between from 5 to 0.182 cm in percent
+tf2=(1-(%CW2/100))*t0;.....// Final Thickness of strip in cm
+Tr=0.4*(M+273);...// Recrystallization temperature By using 0.4Tm relationship in degree celsius
+%CW3=((t02-tf)/t02)*100;.....//Cold work of the strip of 1 cm thickness
+disp(%CW,"Cold work between from 5 to 0.182 cm in percent:")
+disp(tf2,"1. Final Thickness of strip in cm")
+disp(Tr-273,"2. Recrystallization temperature By using 0.4Tm relationship in degree celsius:")
+disp(%CW3,"3. Cold work of the strip of 1 cm thickness :")
diff --git a/3526/CH8/EX8.7/EX8_7.sce b/3526/CH8/EX8.7/EX8_7.sce new file mode 100644 index 000000000..01c59ad7c --- /dev/null +++ b/3526/CH8/EX8.7/EX8_7.sce @@ -0,0 +1,11 @@ +clc;funcprot(0);//EXAMPLE 8.7
+//page 237
+// Initialisation of Variables
+t0=5;.........//We are able to purchase strip of 5cm thickness in cm
+tf=0.182;.....//Thickness to be produced in cm
+tf2=0.167;.......//Thickness to procedure in cm
+//CALCULATIONS
+%HW=((t0-tf)/t0)*100;.....//Hot work for a strip from 5cm to 0.182 cm in percent
+%HW2=((t0-tf2)/t0)*100;......//Hot work for a strip from 5cm to 0.167 cm in percent
+disp(%HW,"Hot work for a strip from 5cm to 0.182 cm in percent:")
+disp(%HW2,"Hot work for a strip from 5cm to 0.167 cm in percent")
|