1 files changed, 31 insertions, 0 deletions
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)