initial commit / add all books

11 files changed, 161 insertions, 0 deletions

diff --git a/3557/CH9/EX9.1/Ex9_1.sce b/3557/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..8f522df92
--- /dev/null
+++ b/3557/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,7 @@
+//Example 9.1//

+//Assuming constant pressure of 1 atm above the alloy

+//There are two components (Pb &Sn) and two phases

+c=2;

+p=2;

+F=c-p+1

+disp(F)

diff --git a/3557/CH9/EX9.10/Ex9_10.sce b/3557/CH9/EX9.10/Ex9_10.sce
new file mode 100644
index 000000000..a939d6ed5
--- /dev/null
+++ b/3557/CH9/EX9.10/Ex9_10.sce
@@ -0,0 +1,7 @@
+//Example 9.10//

+

+x=4.5;//wt % //x is overall composition

+xk=0;//wt %//composition of two phases

+xth=53;//wt % //composition of two phases

+wt=(x-xk)/(xth-xk)*100

+mprintf("wt = %f percent ",wt)

diff --git a/3557/CH9/EX9.11/Ex9_11.sce b/3557/CH9/EX9.11/Ex9_11.sce
new file mode 100644
index 000000000..14caeb0c0
--- /dev/null
+++ b/3557/CH9/EX9.11/Ex9_11.sce
@@ -0,0 +1,16 @@
+//Example 9.11//

+//(a)

+xL=54;//wt % //liquid solution composition

+x=50;//wt % //x is the overall composition

+xa=18;//wt % //composition of two phases

+wta=(xL-x)/(xL-xa)*100

+mprintf("wta = %f percent",wta)

+wtL=(x-xa)/(xL-xa)*100

+mprintf("\nwtL =%f percent",wtL)

+//Similarly, at 100 degree C, we obtain

+xb=99;//wt % //composition of two phases

+xa=5;//wt % //composition of two phases

+wta1=(xb-x)/(xb-xa)*100

+mprintf("\nwta1 = %f ",wta1)

+wtb=(x-xa)/(xb-xa)*100

+mprintf("\nwtb = %f percent",wtb)

diff --git a/3557/CH9/EX9.12/Ex9_12.sce b/3557/CH9/EX9.12/Ex9_12.sce
new file mode 100644
index 000000000..2cd9598c4
--- /dev/null
+++ b/3557/CH9/EX9.12/Ex9_12.sce
@@ -0,0 +1,13 @@
+//Example 9.12//

+

+Al2O3=1;// solid composition

+SiO2=2; // solid composition

+molp=(Al2O3/(Al2O3+SiO2))*100

+mprintf("molp = %f  percent",molp)

+xm=60;//mol % //composition of mullite

+x=33.3;//mol% // x is overall comosition

+xs=0;//mol % //composition of SiO2

+mols=(xm-x)/(xm-xs)*100

+mprintf("\nmols = %f  mol percent ",mols)

+molm=(x-xs)/(xm-xs)*100

+mprintf("\nmolm = %f mol  percent",molm)

diff --git a/3557/CH9/EX9.3/Ex9_3.sce b/3557/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..08e967f75
--- /dev/null
+++ b/3557/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,16 @@
+//Example 9.3//

+

+xss=66;//wt % //solid solution composition

+xL=18;//wt % //liquid solution composition

+x=50;//x is overall composition

+a=1;//kg //weight of alloy

+mL=((xss-x)/(xss-xL))*a;

+mprintf("mL = %f kg ",mL)

+b=10^3;//grams ////As 1kg= 10^3grams

+mL1=mL*b

+mprintf("\nmL1= %i g",mL1)

+mss=((x-xL)/(xss-xL))*a

+mprintf("\nmss = %f kg ",mss)

+mss1=mss*b //As 1kg= 10^3grams

+mprintf("\nmss1=%i g",mss1)

+    

diff --git a/3557/CH9/EX9.4/Ex9_4.sce b/3557/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..7eae46dda
--- /dev/null
+++ b/3557/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,15 @@
+//Example 9.4//

+

+xfe3c=6.69;//wt % //Fe3C composition

+x=0.77;//wt % //x is the overall composition

+xa=0;//wt % //composition of two phases

+a=1;//kg

+ma=((xfe3c-x)/(xfe3c-xa))*a

+mprintf("ma = %f kg ",ma)

+b=10^3;//g //As 1kg = 10^3grams

+ma1=ma*b

+mprintf("\nma1 = %i g ",ma1)

+mfe3c=((x-xa)/(xfe3c-xa))*a

+mprintf("\nmfe3c = %f kg ",mfe3c)

+mfe3c1=mfe3c*b

+mprintf("\nmfe3c1   = %i g",mfe3c1)

diff --git a/3557/CH9/EX9.5/Ex9_5.sce b/3557/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..f78320559
--- /dev/null
+++ b/3557/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,9 @@
+//Example 9.5//

+

+xcub=15;//wt % //cubic phase

+x1=8;//mol % CaO//x1 is the overall composition

+xmono=2;//wt % //monoclinic phase

+monoclinic=(xcub-x1)/(xcub-xmono)*100

+mprintf("monoclinic = %f mol percent",monoclinic)

+cubic=(x1-xmono)/(xcub-xmono)*100

+mprintf("\ncubic = %f mol percent",cubic)

diff --git a/3557/CH9/EX9.6/Ex9_6.sce b/3557/CH9/EX9.6/Ex9_6.sce
new file mode 100644
index 000000000..b03ddb658
--- /dev/null
+++ b/3557/CH9/EX9.6/Ex9_6.sce
@@ -0,0 +1,19 @@
+    //Example 9.6//

+//(a)

+x1=70;//wt % //x1 is the overall composition

+xa=30;//wt % //composition of two phases

+xb=90;//wt % //composition of two phases

+xl=60;//wt %//

+a=1;//kg

+mb1=((x1-xa)/(xb-xa))*a

+mprintf("mb1 = %f kg ",mb1)

+b=10^3;//g//As 1kg = 10^3grams

+mb3=mb1*b////As 1kg = 10^3grams

+mprintf("\nmb1= %i g",mb3)

+mb2=((x1-xl)/(xb-xl))*a

+mprintf("\n mb2 = %f kg ",mb2)

+mb4=mb2*b//As 1kg = 10^3g

+mprintf("\nmb4= %i g",mb4)

+fp=mb4/mb3

+mprintf("\n fp =%f ",fp)

+

diff --git a/3557/CH9/EX9.7/Ex9_7.sce b/3557/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..5a95cd89a
--- /dev/null
+++ b/3557/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,11 @@
+//Example 9.7//

+

+xy=0.77;//wt % // composition of two phases

+x1=0.50;//wt % //x1 is the overall composition

+xa=0.02;//wt % //composition of two phases

+a=1;//kg

+ma=((xy-x1)/(xy-xa))*a

+mprintf("ma = %f kg ",ma)

+b=10^3;//grams //As 1 kg = 10^3grams

+ma1=ma*b

+mprintf ("\nma1= %i g",ma1)

diff --git a/3557/CH9/EX9.8/Ex9_8.sce b/3557/CH9/EX9.8/Ex9_8.sce
new file mode 100644
index 000000000..da2bd0da2
--- /dev/null
+++ b/3557/CH9/EX9.8/Ex9_8.sce
@@ -0,0 +1,17 @@
+//Example 9.8//

+//(a) 1153degre c is just below he eutectic temperature

+x1=3.00;//wt % //x1 is the overall composition

+xc=2.08;//wt % //composition of two phases

+xC=100;//wt %//composition of two phases

+a=1;//kg 

+mc=((x1-xc)/(xC-xc))*a

+mprintf("mc = %f kg ",mc)

+b=10^3;//g //As 1kg = 10^3 grams

+mc2=mc*b

+mprintf("\nmc2= %f g",mc2)

+//(b) At room temperature, we obtain

+xa=0;

+mc1=((x1-xa)/(xC-xa))*a

+mprintf("\n mc1 = %f kg ",mc1)

+mc3=mc1*b

+mprintf("\nmc3= %i g",mc3)

diff --git a/3557/CH9/EX9.9/Ex9_9.sce b/3557/CH9/EX9.9/Ex9_9.sce
new file mode 100644
index 000000000..54b75db50
--- /dev/null
+++ b/3557/CH9/EX9.9/Ex9_9.sce
@@ -0,0 +1,31 @@
+//Example 9.9//

+xl=12.6;//wt % //liquid solution composition

+xa=1.6;//wt %// composition of two phases

+x1=10;//wt % //x1 is the overall composition

+xb=100;//wt %//composition of two phases

+a=1;//kg

+ma=((xl-x1)/(xl-xa))*a

+mprintf("ma = %f  kg ",ma)

+b=10^3;//g //As 1kg = 10^3grams

+ma2=ma*b

+mprintf("\nma2= %i g",ma2)

+

+//At 576degree C, the overall microstructure is alpha+beta, the amount of each are

+ma1=((xb-x1)/(xb-xa))*a

+mprintf("\nma1 = %f kg ",ma1)

+ma3=ma1*b

+mprintf("\nma3= %i g",ma3)

+mb=((x1-xa)/(xb-xa))*a

+mprintf("\nmb = %f kg  ",mb)

+mb1=mb*b

+mprintf("\nmb1= %i g",mb1)

+ae= ma3-ma2

+mprintf("\nae = %i g",ae)

+a1=0.016;//wieght fraction

+a2=1.000;//wieght fraction

+si1=(a1)*(ma2)

+mprintf("\nsi1 = %f g",si1)

+si2=(a1)*(ae)

+mprintf("\nsi2 = %f g",si2)

+si3=(a2)*(mb1)

+mprintf("\nsi3 = %i g",si3)