1 files changed, 18 insertions, 0 deletions
diff --git a/3557/CH18/EX18.9/Ex18_9.sce b/3557/CH18/EX18.9/Ex18_9.sce
new file mode 100644
index 000000000..1ed60dd8c
--- /dev/null
+++ b/3557/CH18/EX18.9/Ex18_9.sce
@@ -0,0 +1,18 @@
+//Example 18.8//
+
+//(a)
+a=8;// magnetic moment/unit cell
+b=5;//moment of Mn2+
+m=a*b
+mprintf("m = %i ",m)
+
+//(b)
+c=16;//(number Fe3+/unit cell)
+d=5;//(moment of Fe3+)
+m1=-(a*b)+(c*d)
+mprintf("\nm1 = %i ",m1)
+
+//(c) A 50:50 mixture will give
+a1=0.5;//given
+m2=(a1*m1)+(a1*m1)
+mprintf("\nm2 = %i ",m2)