5 files changed, 56 insertions, 0 deletions
diff --git a/3526/CH12/EX12.1/EX12_1.sce b/3526/CH12/EX12.1/EX12_1.sce
new file mode 100644
index 000000000..91b7e714f
--- /dev/null
+++ b/3526/CH12/EX12.1/EX12_1.sce
@@ -0,0 +1,13 @@
+clc;funcprot(0);//EXAMPLE 12.1
+//page 347
+// 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/3526/CH12/EX12.10/EX12_10.sce b/3526/CH12/EX12.10/EX12_10.sce
new file mode 100644
index 000000000..7c071c013
--- /dev/null
+++ b/3526/CH12/EX12.10/EX12_10.sce
@@ -0,0 +1,8 @@
+clc;funcprot(0);//EXAMPLE 12.10
+//page 366
+// 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/3526/CH12/EX12.3/EX12_5.sce b/3526/CH12/EX12.3/EX12_5.sce
new file mode 100644
index 000000000..1b2ec14a0
--- /dev/null
+++ b/3526/CH12/EX12.3/EX12_5.sce
@@ -0,0 +1,11 @@
+clc;funcprot(0);//EXAMPLE 12.5
+//page 357
+// 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/3526/CH12/EX12.7/EX12_7.sce b/3526/CH12/EX12.7/EX12_7.sce
new file mode 100644
index 000000000..5c7f3c633
--- /dev/null
+++ b/3526/CH12/EX12.7/EX12_7.sce
@@ -0,0 +1,16 @@
+clc;funcprot(0);//EXAMPLE 12.7
+//page 359
+// 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/3526/CH12/EX12.8/EX12_8.sce b/3526/CH12/EX12.8/EX12_8.sce
new file mode 100644
index 000000000..c8bd7b102
--- /dev/null
+++ b/3526/CH12/EX12.8/EX12_8.sce
@@ -0,0 +1,8 @@
+clc;funcprot(0);//EXAMPLE 12.8
+//page 364
+// 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:")