initial commit / add all books

10 files changed, 51 insertions, 0 deletions

diff --git a/1586/CH12/EX12.1/EXP12_1.jpg b/1586/CH12/EX12.1/EXP12_1.jpg
new file mode 100644
index 000000000..fa563e90d
--- /dev/null
+++ b/1586/CH12/EX12.1/EXP12_1.jpg
diff --git a/1586/CH12/EX12.1/EXP12_1.sce b/1586/CH12/EX12.1/EXP12_1.sce
new file mode 100644
index 000000000..7eb9b1889
--- /dev/null
+++ b/1586/CH12/EX12.1/EXP12_1.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 12.1

+// Initialisation of Variables

+r1=0.111;......//Rate of copper in min^-1 at 135 degree celsius

+r2=0.004;.......//Rate of copper in min^-1 at 88 degree celsius

+T1=408;.......//Temperature in K

+T2=361;.......//Temperature in K

+R=1.987;......//Gas constant

+Q=20693;.......//Change in Rates

+slope=(log(r1)-log(r2))/((1/T1)-(1/T2));....//Slope of the straight line ploted ln(Growth rate) as a function of 1=T,

+A=r1/(exp(-Q/(R*T1)));.....//Constant

+disp(A,"Constant A=")

+disp(slope,"Slpoe of the straight line -Q/R")

diff --git a/1586/CH12/EX12.10/EXP12_10.jpg b/1586/CH12/EX12.10/EXP12_10.jpg
new file mode 100644
index 000000000..8da1bc0ec
--- /dev/null
+++ b/1586/CH12/EX12.10/EXP12_10.jpg
diff --git a/1586/CH12/EX12.10/EXP12_10.sce b/1586/CH12/EX12.10/EXP12_10.sce
new file mode 100644
index 000000000..0cfa7c7a9
--- /dev/null
+++ b/1586/CH12/EX12.10/EXP12_10.sce
@@ -0,0 +1,7 @@
+clc;funcprot(0);//EXAMPLE 12.10

+// Initialisation of Variables

+%M=0.60;.......//Percentage of Carbon in Martensite at  750 degree celsius

+%a=50;......//Percentage of Carbon in Austenite at 750 degree celsius

+%c=0.02;......//Percentage of Carbon atoms in Steel 

+X=(%a/100)*(%M-%c)+%c;......//The carbon content of Steel in percentage

+disp(X,"The carbon content of hypoeutectoid  Steel in percentage:")

diff --git a/1586/CH12/EX12.5/EXP12_5.jpg b/1586/CH12/EX12.5/EXP12_5.jpg
new file mode 100644
index 000000000..25a0c1d0b
--- /dev/null
+++ b/1586/CH12/EX12.5/EXP12_5.jpg
diff --git a/1586/CH12/EX12.5/EXP12_5.sce b/1586/CH12/EX12.5/EXP12_5.sce
new file mode 100644
index 000000000..cd5dc8aca
--- /dev/null
+++ b/1586/CH12/EX12.5/EXP12_5.sce
@@ -0,0 +1,10 @@
+clc;funcprot(0);//EXAMPLE 12.5

+// Initialisation of Variables

+%Fe=6.67;......//Carbon percentage in Cementite

+%G=0.77;.......//Carbon percentage in  peralite in composition

+%A=0.0218;......//Carbon percentage in Ferrite

+//CALCULATIONS

+%ferrite=((%Fe-%G)/(%Fe-%A))*100;........//Amount of ferrite present in peralite

+%C=((%G-%A)/(%Fe-%A))*100;.......//Amount of Cementite present in peralite

+disp(%ferrite,"Amount of ferrite present in peralite:")

+disp(%C,"Amount of Cementite present in peralite:")

diff --git a/1586/CH12/EX12.7/EXP12_7.jpg b/1586/CH12/EX12.7/EXP12_7.jpg
new file mode 100644
index 000000000..f88fc2bf3
--- /dev/null
+++ b/1586/CH12/EX12.7/EXP12_7.jpg
diff --git a/1586/CH12/EX12.7/EXP12_7.sce b/1586/CH12/EX12.7/EXP12_7.sce
new file mode 100644
index 000000000..50fdd4e18
--- /dev/null
+++ b/1586/CH12/EX12.7/EXP12_7.sce
@@ -0,0 +1,15 @@
+clc;funcprot(0);//EXAMPLE 12.7

+// Initialisation of Variables

+%A=0.0218;......//Carbon percentage in  primary alpha in percent

+%Fe=6.67;......//Carbon percentage in Cementite in percent

+%G=0.77;.......//Carbon percentage in eutectoid composition at 727 degree celsius

+%C=0.60;...//Carbon percentage in Pearlite in percent

+//CALCULATIONS

+%alpha=((%Fe-%C)/(%Fe-%A))*100;.......// Composition of Phase Ferrite in alloy 

+%Ce=((%C-%A)/(%Fe-%A))*100;.......//Composition of Cementite in percent in alloy

+%PF=((%G-%C)/(%G-%A))*100;......//Percentage of microconstituents Primary Ferrite in alloy

+%P=((%C-%A)/(%G-%A))*100;.......//Percentage of microconstituents Pearlite in alloy

+disp(%alpha,"Composition of Phase Ferrite in alloy :")

+disp(%Ce,"Composition of Cementite in percent in alloy:")

+disp(%PF,"Percentage of microconstituents Primary Ferrite in alloy:")

+disp(%P,"Percentage of microconstituents Pearlite in alloy:")

diff --git a/1586/CH12/EX12.8/EXP12_8.jpg b/1586/CH12/EX12.8/EXP12_8.jpg
new file mode 100644
index 000000000..4ae7d59a5
--- /dev/null
+++ b/1586/CH12/EX12.8/EXP12_8.jpg
diff --git a/1586/CH12/EX12.8/EXP12_8.sce b/1586/CH12/EX12.8/EXP12_8.sce
new file mode 100644
index 000000000..d6ddd193b
--- /dev/null
+++ b/1586/CH12/EX12.8/EXP12_8.sce
@@ -0,0 +1,7 @@
+clc;funcprot(0);//EXAMPLE 12.8

+// Initialisation of Variables

+d=0.001;........//Actual distence between one alpha plate to next alpha plate 

+S=14;..........//Spacings between between one alpha plate to next alpha plate 

+//CALCULATIONS

+lamida=d/S;......//The interlamellar spacing between one alpha plate to next alpha plate in Pearlite Microstructure

+disp(lamida,"The interlamellar spacing between one alpha plate to next alpha plate in Pearlite Microstructure:")