13 files changed, 118 insertions, 0 deletions
diff --git a/3020/CH21/EX21.1/ex21_1.sce b/3020/CH21/EX21.1/ex21_1.sce
new file mode 100755
index 000000000..6dd23b579
--- /dev/null
+++ b/3020/CH21/EX21.1/ex21_1.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+Lt=0.629e-9;//lettice parameter of KCL
+xk=1.264*1e-40;//electronic polarisability of K+ in F m^2
+xcl=3.408*1e-40;//electronic polarisability of Cl- in F m^2
+xKCL=xk+xcl;//electronic polarisability of KCl in F m^2
+n=4;//no of atoms
+N=n/(Lt^3);//no of dipoles per m^3
+e0=8.854e-12;
+er=(N*xKCL/e0)+1;//dielectric constant of KCL
+disp('',er,'dielectric constant of KCL is:')
diff --git a/3020/CH21/EX21.10/ex21_10.sce b/3020/CH21/EX21.10/ex21_10.sce
new file mode 100755
index 000000000..24d0eb30b
--- /dev/null
+++ b/3020/CH21/EX21.10/ex21_10.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+er=1.0024;//relative permittivity
+N=2.7e25;//no of atoms
+e0=8.85e-12;//permittivity of vacume
+xe=e0*(er-1)/N;//polarisability of argon atom 
+disp('F m^2',xe,'polarisability of argon atom is:')
diff --git a/3020/CH21/EX21.11/ex21_11.sce b/3020/CH21/EX21.11/ex21_11.sce
new file mode 100755
index 000000000..8c8006349
--- /dev/null
+++ b/3020/CH21/EX21.11/ex21_11.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+er=1.0000684;//dielectric constant of He gas at NTP
+N=2.7e25;//no of atoms
+e0=8.85e-12;//permittivity of vacume
+xe=e0*(er-1)/N;//polarisability of He atom 
+disp('F m^2',xe,'polarisability of He atom is:')
diff --git a/3020/CH21/EX21.12/ex21_12.sce b/3020/CH21/EX21.12/ex21_12.sce
new file mode 100755
index 000000000..8fdf66223
--- /dev/null
+++ b/3020/CH21/EX21.12/ex21_12.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+er=12;//relative dielectric constant of material
+N=5e28;//no of atoms
+e0=8.85e-12;//permittivity of vacume
+xe=e0*(er-1)/N;//polarisability of element
+disp('F m^2',xe,'polarisability of element is:')
diff --git a/3020/CH21/EX21.13/ex21_13.sce b/3020/CH21/EX21.13/ex21_13.sce
new file mode 100755
index 000000000..1b834cec1
--- /dev/null
+++ b/3020/CH21/EX21.13/ex21_13.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+C=2e-6;//capacitance of plate condensor
+V=1000;//applied voltage
+er=100;//the dielectric permittivity
+E=C*V^2/2;//energy stored in capacitor
+C0=C/er;
+Ewd=C0*V^2/2;//energy stored without the dielectric
+Ed=E-Ewd;//energy stored in the dielectric
+disp('J',Ed,'energy stored in the dielectric:')
diff --git a/3020/CH21/EX21.2/ex21_2.sce b/3020/CH21/EX21.2/ex21_2.sce
new file mode 100755
index 000000000..49339f40a
--- /dev/null
+++ b/3020/CH21/EX21.2/ex21_2.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+r=0.12e-9;//atomic radius of Se
+e0=8.854e-12;
+x=4*%pi*e0*(r^3);//the electronic polarisability of Se
+disp('F m^2',x,'the electronic polarisability of Se is:')
diff --git a/3020/CH21/EX21.3/ex21_3.sce b/3020/CH21/EX21.3/ex21_3.sce
new file mode 100755
index 000000000..e5d98da59
--- /dev/null
+++ b/3020/CH21/EX21.3/ex21_3.sce
@@ -0,0 +1,10 @@
+
+clc;
+clear all;
+er=4.94;//relative permittivity
+n2=2.69;//square of refractive index
+//let x=Xi/Xe
+a=(er-1)*(n2+2);//temporary variable
+b=(er+2)*(n2-1);//temporary variable
+x=(a/b)-1;//ratio of the electronic to ionic polarisability
+disp('',1/x,'ratio of the electronic to ionic polarisability Xe/Xi is')
diff --git a/3020/CH21/EX21.4/ex21_4.sce b/3020/CH21/EX21.4/ex21_4.sce
new file mode 100755
index 000000000..a96f72f96
--- /dev/null
+++ b/3020/CH21/EX21.4/ex21_4.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+xe=0.35e-40;//electronic polarisability in F m^2
+N=2.7e25;//no of atoms
+e0=8.854e-12;
+//x=N*xe/(3*e0)
+//er=1+2x/(1-x)
+x=N*xe/(3*e0);//temporary variable
+er=(1+2*x)/(1-x);//dielectric constant of Ne gas
+disp('',er,'dielectric constant of Ne gas is:')
+
diff --git a/3020/CH21/EX21.5/ex21_5.sce b/3020/CH21/EX21.5/ex21_5.sce
new file mode 100755
index 000000000..4d2d310a0
--- /dev/null
+++ b/3020/CH21/EX21.5/ex21_5.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+A=5e-4;//area of capacitor plate
+d=1.5e-3;//distance between the plates
+er=6;//relative permittivity of the dielectric
+V=100;//applied voltage
+e0=8.85e-12;//permittivity of vacume
+// capacitance C=e0*er*A/d and Q=C*V SO..
+Q=e0*er*A*V/d;//charge on capacitor 
+disp('C',Q,'charge on capacitor is:')
diff --git a/3020/CH21/EX21.6/ex21_6.sce b/3020/CH21/EX21.6/ex21_6.sce
new file mode 100755
index 000000000..b06e18926
--- /dev/null
+++ b/3020/CH21/EX21.6/ex21_6.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+N = 2.7e25;//no of atoms
+e0 = 8.854e-12;//permittivity of vacume
+r = 0.384e-9;//radius of Ar atom
+xe = 4*%pi*e0*(r^3);//electronic polarisability of Ar
+x = (N*xe)/(3*e0);//temporary variable
+er = (1+2*x)/(1-x);//dielectric constant of Ar atom
+disp('',er,'dielectric constant of Ar atom is:')
+//Wrong answer printed in textbook... Checked in calculator
diff --git a/3020/CH21/EX21.7/ex21_7.sce b/3020/CH21/EX21.7/ex21_7.sce
new file mode 100755
index 000000000..f743ac681
--- /dev/null
+++ b/3020/CH21/EX21.7/ex21_7.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+er=80;//relative permittivity
+C=2e-6;//the capacitance
+V=1000;//applied voltage
+E1=C*V^2/2;//energy stored in the capacitor
+C0=C/er;//capacitance of the capacitor when the dielectric is removed
+E2=C0*V^2/2;//energy stored in capacitor with vacume as dielectric
+c=E1-E2;//'energy stored in polarissing the capacitor
+disp('J',E1,'energy stored in the capacitor')
+disp('J',c,'energy stored in polarissing the capacitor:')
diff --git a/3020/CH21/EX21.8/ex21_8.sce b/3020/CH21/EX21.8/ex21_8.sce
new file mode 100755
index 000000000..fc4f5a2f5
--- /dev/null
+++ b/3020/CH21/EX21.8/ex21_8.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+e0=8.854e-12; //permittivity of vacume
+N=5e28; //no of atoms present per m^3 N
+xe=2e-40; //polarisability
+//P=N*xe*Ei and Ei=E+(P/(3*e0)) so..
+//Ei=E+(N*xe*Ei/(3*e0)) so...
+//Ei/E=1/(1-(N*xe/(3*e0))) so..lets take rt=Ei/E
+m=(N*xe)/(3*e0)
+rt=1/(1-m);//ratio of internal field to applied field
+disp('',rt,'ratio of internal field to applied field is:')
diff --git a/3020/CH21/EX21.9/ex21_9.sce b/3020/CH21/EX21.9/ex21_9.sce
new file mode 100755
index 000000000..045466567
--- /dev/null
+++ b/3020/CH21/EX21.9/ex21_9.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+E=1000;//applied electrical field
+P=4.3E-8;//polarisation
+e0=8.854e-12;//permittivity of vacume
+er=1+(P/(E*e0));//relative permittivity of NACl
+disp('',er,'relative permittivity of NACl is:')