11 files changed, 120 insertions, 0 deletions
diff --git a/3020/CH20/EX20.1/ex20_1.sce b/3020/CH20/EX20.1/ex20_1.sce
new file mode 100755
index 000000000..c29437d99
--- /dev/null
+++ b/3020/CH20/EX20.1/ex20_1.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+M=2300;//magnetization in A/m
+B=0.00314;//flux density in Wb/m^2
+u0=4*%pi*1e-7;//permiability of vacume
+H=(B/u0)-M;//magnetic force
+ur=(M/H)+1;//relative permiability
+disp('A/m',H,'magnetic force is:')
+disp('',ur,'relative permiability is:')
+
diff --git a/3020/CH20/EX20.10/ex20_10.sce b/3020/CH20/EX20.10/ex20_10.sce
new file mode 100755
index 000000000..1c53c0a0c
--- /dev/null
+++ b/3020/CH20/EX20.10/ex20_10.sce
@@ -0,0 +1,14 @@
+clc;
+clear all;
+rho=8900;//density of Ni
+m=58.71;//atomic weight of Ni
+Na=6.022e26;//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=9.27e-24;
+x=0.6*um;//bohr megneton per atom
+y=N*x;//magnetic moment per 1 gm atom
+disp('A/m^2',y,'magnetic moment per 1 gm atom is:')
+Bs=u0*y;//saturation magnetisation
+disp('Wb/m^2',Bs,'saturation magnetisation is:')
diff --git a/3020/CH20/EX20.11/ex20_11.sce b/3020/CH20/EX20.11/ex20_11.sce
new file mode 100755
index 000000000..2cb6a02ff
--- /dev/null
+++ b/3020/CH20/EX20.11/ex20_11.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+rho=7860;//density of gadolinium
+m=157.25;//atomic weight of gadolinium
+n=64;//atomic number
+Na=6.022e26;//avagadra's number
+u0=4*%pi*1e-7;//permiability of vacume
+b=9.27e-24;
+N=rho*Na*8*b/m;//saturation magnetization
+disp('A/m',N,'saturation magnetization is:')
diff --git a/3020/CH20/EX20.2/ex20_2.sce b/3020/CH20/EX20.2/ex20_2.sce
new file mode 100755
index 000000000..ef6b60b96
--- /dev/null
+++ b/3020/CH20/EX20.2/ex20_2.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+H=1E4;//magnetic field intensity in A/m
+X=3.7E-3;//susceptibility
+u0 = 4e-7*%pi;
+M=X*H;//magnetization in A/m
+B=u0*(M+H);//flux density in Wb/m^2;
+disp('A/m',M,'magnetization is:')
+disp('Wb/m^2',B,'flux density is:')
diff --git a/3020/CH20/EX20.3/ex20_3.sce b/3020/CH20/EX20.3/ex20_3.sce
new file mode 100755
index 000000000..42a59986f
--- /dev/null
+++ b/3020/CH20/EX20.3/ex20_3.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+H=1E6;//magnetic field intensity in A/m
+X=-0.8e-5;//susceptibility
+u0 = 4e-7*%pi;
+M=X*H;//magnetization in A/m
+B=u0*(M+H);//flux density in Wb/m^2;
+disp('A/m',M,'magnetization is:')
+disp('Wb/m^2',B,'flux density is:')
diff --git a/3020/CH20/EX20.4/ex20_4.sce b/3020/CH20/EX20.4/ex20_4.sce
new file mode 100755
index 000000000..714bbcb55
--- /dev/null
+++ b/3020/CH20/EX20.4/ex20_4.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+H=1800;//magnetizing field intensity in A/m
+phy=3e-5;//magnetic flux in Wb
+A=0.2e-4;//cross section area
+B=phy/A;//flux density
+u=B/H;//permiability
+disp('Wb/m^2',B,'flux density is')
+disp('H/m',u,'permiability is:')
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:')
+
diff --git a/3020/CH20/EX20.6/ex20_6.sce b/3020/CH20/EX20.6/ex20_6.sce
new file mode 100755
index 000000000..2aaa7f90e
--- /dev/null
+++ b/3020/CH20/EX20.6/ex20_6.sce
@@ -0,0 +1,15 @@
+clc;
+clear all;
+a=2.5e-10;//interatomic spacing in m
+M=1.8e6;//magnetisation in A/m
+x=2;//no of atoms per unit cell
+N=x/(a^3);//no of atoms per unit volume
+disp('m^-3',N,'no of atoms per unit volume is:')
+um=M/N;//magnetisation produced per atom
+disp('A*m^2',um,'magnetisation produced per atom is:')
+e=1.6e-19;
+h=6.626e-34;
+m=9.1e-31;
+b=e*h/(4*%pi*m);
+Um=um/b;//conversion of unit
+disp('Bohr megneton',Um,'magnetisation produced per atom is:')
diff --git a/3020/CH20/EX20.7/ex20_7.sce b/3020/CH20/EX20.7/ex20_7.sce
new file mode 100755
index 000000000..943e68ed6
--- /dev/null
+++ b/3020/CH20/EX20.7/ex20_7.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+k=1.38e-23;//boltzman constant
+u=9.4e-24;
+H=2;//megnetic field in Wb/m^2
+T=2*u*H/(log(2)*k);//temperature of the system
+disp('K',T,'temperature of the system is:')
diff --git a/3020/CH20/EX20.8/ex20_8.sce b/3020/CH20/EX20.8/ex20_8.sce
new file mode 100755
index 000000000..1258dc361
--- /dev/null
+++ b/3020/CH20/EX20.8/ex20_8.sce
@@ -0,0 +1,16 @@
+clc;
+clear all;
+rho=7.8e3;//density of Gd
+m=1.8e6;//atomic weight of Gd
+M=157.26;//atomic no of Gd
+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=9.27e-24;
+x=7.1*um;//bohr megneton per atom
+y=N*x;//magnetic moment per 1 gm atom
+disp('A/m^2',y,'magnetic moment per 1 gm atom is:')
+Bs=N*u0*um;//saturation magnetisation
+disp('Wb/m^2',Bs,'saturation magnetisation is:')
+// Wrong answer printed in textbook... Checked in textbook
diff --git a/3020/CH20/EX20.9/ex20_9.sce b/3020/CH20/EX20.9/ex20_9.sce
new file mode 100755
index 000000000..21df149d3
--- /dev/null
+++ b/3020/CH20/EX20.9/ex20_9.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+l=0.839e-9;//cell edge length
+b=9.27e-24;
+Ms=32*b/(l^3);//saturation magnetisation
+disp('A/m',Ms,'saturation magnetisation is:')
+// Wrong answer printed in textbook... checked in calculator