1 files changed, 29 insertions, 0 deletions
diff --git a/539/CH20/EX20.1.b/Example_20_1_b.sce b/539/CH20/EX20.1.b/Example_20_1_b.sce
new file mode 100755
index 000000000..ccb7d8834
--- /dev/null
+++ b/539/CH20/EX20.1.b/Example_20_1_b.sce
@@ -0,0 +1,29 @@
+//Example 20.1 Calculation of saturation magnetisation and flux density for Nickel
+
+clear;
+clc;
+
+printf("Example 20.1\n");
+
+b_m=9.27*10^-24; //ampere*m^2  (Bohr Magneton)
+
+Na=6.023*10^23;  //atoms/mol  (Avogadro's No.)
+
+d=8.9*10^6;  //g/m^3   (density)
+
+uo=4*%pi*10^-7;  //Permitivity of free space
+
+A=58.71;  //g/mol  (Atomic weigth of Nickel)
+
+N=d*Na/A;  //No. of atoms per cubic meter
+
+// M is saturation magnetisation
+M=0.6*b_m*N;  //0.6= Bohr Magneton/atom
+
+
+//B = Saturation Flux Density
+B=uo*M;
+
+printf("\nSaturation Flux Density is : %f Tesla\n",B);
+
+// End
+\ No newline at end of file