summaryrefslogtreecommitdiff
path: root/3557/CH9/EX9.5/Ex9_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '3557/CH9/EX9.5/Ex9_5.sce')
-rw-r--r--3557/CH9/EX9.5/Ex9_5.sce9
1 files changed, 9 insertions, 0 deletions
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)