1 files changed, 14 insertions, 0 deletions
diff --git a/3020/CH20/EX20.5/ex20_5.sce b/3020/CH20/EX20.5/ex20_5.sce
new file mode 100755
index 000000000..feb156e65
--- /dev/null
+++ b/3020/CH20/EX20.5/ex20_5.sce
@@ -0,0 +1,14 @@
+clc;
+clear all;
+B=0.65//magnetic flux in Wb/m^2
+rho=8906;//density of nickel
+m=58.7;//atomic weight
+Na=6.023e26;//avagadra's number
+u0=4*%pi*1e-7;//permiability of vacume
+N=rho*Na/m;//no of atoms per unit volume
+disp('atoms/m^3',N,'no of atoms per unit volume is:')
+um=B/(N*u0);//magnetization produced per atom
+disp('A/m^2',um,'magnetization produced per atom is:')
+Um=um/9.27e-24;//coversion of unit
+disp('Bohr megneton',Um,'magnetization produced per atom is:')
+