1 files changed, 12 insertions, 0 deletions
diff --git a/3651/CH5/EX5.8/8.sce b/3651/CH5/EX5.8/8.sce
new file mode 100644
index 000000000..d8e02205e
--- /dev/null
+++ b/3651/CH5/EX5.8/8.sce
@@ -0,0 +1,12 @@
+//Variable declaration
+B=9.27*10**-24;      //bohr magneton(ampere m**2)
+a=2.86*10**-10;      //edge(m)
+Is=1.76*10**6;       //saturation value of magnetisation(ampere/m)
+
+//Calculation
+N=2/a**3;
+mew_bar=Is/N;      //number of Bohr magnetons(ampere m**2)
+mew_bar=mew_bar/B;      //number of Bohr magnetons(bohr magneon/atom)
+
+//Result
+printf('number of Bohr magnetons is %0.3f bohr magneon/atom\n',(mew_bar))
+\ No newline at end of file