From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3557/CH9/EX9.1/Ex9_1.sce   |  7 +++++++
 3557/CH9/EX9.10/Ex9_10.sce |  7 +++++++
 3557/CH9/EX9.11/Ex9_11.sce | 16 ++++++++++++++++
 3557/CH9/EX9.12/Ex9_12.sce | 13 +++++++++++++
 3557/CH9/EX9.3/Ex9_3.sce   | 16 ++++++++++++++++
 3557/CH9/EX9.4/Ex9_4.sce   | 15 +++++++++++++++
 3557/CH9/EX9.5/Ex9_5.sce   |  9 +++++++++
 3557/CH9/EX9.6/Ex9_6.sce   | 19 +++++++++++++++++++
 3557/CH9/EX9.7/Ex9_7.sce   | 11 +++++++++++
 3557/CH9/EX9.8/Ex9_8.sce   | 17 +++++++++++++++++
 3557/CH9/EX9.9/Ex9_9.sce   | 31 +++++++++++++++++++++++++++++++
 11 files changed, 161 insertions(+)
 create mode 100644 3557/CH9/EX9.1/Ex9_1.sce
 create mode 100644 3557/CH9/EX9.10/Ex9_10.sce
 create mode 100644 3557/CH9/EX9.11/Ex9_11.sce
 create mode 100644 3557/CH9/EX9.12/Ex9_12.sce
 create mode 100644 3557/CH9/EX9.3/Ex9_3.sce
 create mode 100644 3557/CH9/EX9.4/Ex9_4.sce
 create mode 100644 3557/CH9/EX9.5/Ex9_5.sce
 create mode 100644 3557/CH9/EX9.6/Ex9_6.sce
 create mode 100644 3557/CH9/EX9.7/Ex9_7.sce
 create mode 100644 3557/CH9/EX9.8/Ex9_8.sce
 create mode 100644 3557/CH9/EX9.9/Ex9_9.sce

(limited to '3557/CH9')

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)
-- 
cgit