1 files changed, 17 insertions, 0 deletions
diff --git a/3753/CH6/EX6.5/Ex6_5.sce b/3753/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..2a10d3b23
--- /dev/null
+++ b/3753/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,17 @@
+//Example number 6.5, Page number 6.47
+
+clc;clear;close
+
+
+// Variable declaration
+mew0=4*%pi*10**-7; // coefficient
+H=9.27*10**-24;      // bohr magneton(ampere m**2)
+Beta=10**6;      // field(ampere/m)
+k=1.38*10**-23;    // boltzmann constant
+T=303;    // temperature(K)
+
+// Calculation
+mm=mew0*H*Beta/(k*T);    // average magnetic moment(bohr magneton/spin)
+
+// Result
+printf("average magnetic moment is: %.2e bohr magneton/spin",(mm))