1 files changed, 11 insertions, 0 deletions
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:')