initial commit / add all books

10 files changed, 60 insertions, 0 deletions

diff --git a/1586/CH8/EX8.1/EXP8_1.jpg b/1586/CH8/EX8.1/EXP8_1.jpg
new file mode 100644
index 000000000..b89440509
--- /dev/null
+++ b/1586/CH8/EX8.1/EXP8_1.jpg
diff --git a/1586/CH8/EX8.1/EXP8_1.sce b/1586/CH8/EX8.1/EXP8_1.sce
new file mode 100644
index 000000000..e97366a85
--- /dev/null
+++ b/1586/CH8/EX8.1/EXP8_1.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 8.1

+// 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/1586/CH8/EX8.2/EXP8_2.jpg b/1586/CH8/EX8.2/EXP8_2.jpg
new file mode 100644
index 000000000..290ccfef8
--- /dev/null
+++ b/1586/CH8/EX8.2/EXP8_2.jpg
diff --git a/1586/CH8/EX8.2/EXP8_2.sce b/1586/CH8/EX8.2/EXP8_2.sce
new file mode 100644
index 000000000..22386c150
--- /dev/null
+++ b/1586/CH8/EX8.2/EXP8_2.sce
@@ -0,0 +1,10 @@
+clc;funcprot(0);//EXAMPLE 8.2

+// 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/1586/CH8/EX8.5/EXP8_5.jpg b/1586/CH8/EX8.5/EXP8_5.jpg
new file mode 100644
index 000000000..313b30848
--- /dev/null
+++ b/1586/CH8/EX8.5/EXP8_5.jpg
diff --git a/1586/CH8/EX8.5/EXP8_5.sce b/1586/CH8/EX8.5/EXP8_5.sce
new file mode 100644
index 000000000..05b8b5d70
--- /dev/null
+++ b/1586/CH8/EX8.5/EXP8_5.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 8.5

+// 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=((Do^2-Df^2)/Do^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/1586/CH8/EX8.6/EXP8_6.jpg b/1586/CH8/EX8.6/EXP8_6.jpg
new file mode 100644
index 000000000..e3ac4da44
--- /dev/null
+++ b/1586/CH8/EX8.6/EXP8_6.jpg
diff --git a/1586/CH8/EX8.6/EXP8_6.sce b/1586/CH8/EX8.6/EXP8_6.sce
new file mode 100644
index 000000000..2aaa9bdb8
--- /dev/null
+++ b/1586/CH8/EX8.6/EXP8_6.sce
@@ -0,0 +1,16 @@
+clc;funcprot(0);//EXAMPLE 8.6

+// 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/1586/CH8/EX8.7/EXP8_7.jpg b/1586/CH8/EX8.7/EXP8_7.jpg
new file mode 100644
index 000000000..cebd4a6a7
--- /dev/null
+++ b/1586/CH8/EX8.7/EXP8_7.jpg
diff --git a/1586/CH8/EX8.7/EXP8_7.sce b/1586/CH8/EX8.7/EXP8_7.sce
new file mode 100644
index 000000000..cce33ee7a
--- /dev/null
+++ b/1586/CH8/EX8.7/EXP8_7.sce
@@ -0,0 +1,10 @@
+clc;funcprot(0);//EXAMPLE 8.7

+// 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")