initial commit / add all books

9 files changed, 97 insertions, 0 deletions

diff --git a/2453/CH6/EX6.1/6_1.sce b/2453/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..d4fcdff95
--- /dev/null
+++ b/2453/CH6/EX6.1/6_1.sce
@@ -0,0 +1,11 @@
+//To calculate the energy stored in the condensor and polarizing the dielectric

+C = 2;     //capacitance, micro-farad

+C = C*10^-6;      //capacitance, farad

+V = 1000;    //voltage applied, V

+epsilon_r = 100;     //permitivity

+W = (C*V^2)/2;      //energy stored in capacitor, J

+printf("energy stored in capacitor is %d J",W);

+C0 = C/epsilon_r;   //capacitance removing the dielectric

+W0 = C0*V^2/2;      //energy stored without dielectric, J

+E = 1-W0;       //energy stored in dielectric, J

+printf("energy stored in the dielectric is %5.2f J",E);

diff --git a/2453/CH6/EX6.2/6_2.sce b/2453/CH6/EX6.2/6_2.sce
new file mode 100755
index 000000000..2fb975416
--- /dev/null
+++ b/2453/CH6/EX6.2/6_2.sce
@@ -0,0 +1,14 @@
+//To calculate the ratio between electronic and ionic polarizability

+epsilon_r = 4.94;

+n_2 = 2.69;     //square of index of refraction

+alpha_i = 0;    //at optical frequencies

+//(epsilon_r-1)/(epsilon_r+2) = N*(alpha_e+alpha_i)/(3*epsilon0)

+X = (epsilon_r-1)/(epsilon_r+2);

+//epsilon_r = n^2. therefore (n^2-1)/(n^2+2) = N*alpha_e/(3*epsilon0)

+Y = (n_2-1)/(n_2+2);

+//N*(alpha_e+alpha_i)/N*alpha_e = X/Y

+//let alpha = alpha_i/alpha_e

+alphai_e = (X/Y)-1;     //ratio between electronic ionic and electronic polarizability

+printf("ratio between electronic ionic and electronic polarizability is %5.4f",alphai_e);

+alphae_i = 1/alphai_e;      //ratio between electronic and ionic polarizability

+printf("ratio between electronic and ionic polarizability is %5.3f",alphae_i);

diff --git a/2453/CH6/EX6.3/6_3.sce b/2453/CH6/EX6.3/6_3.sce
new file mode 100755
index 000000000..f7ebf5703
--- /dev/null
+++ b/2453/CH6/EX6.3/6_3.sce
@@ -0,0 +1,17 @@
+//To calculate the difference in magnetic potential energy

+epsilon_r = 2.56;

+tan_delta = 0.7*10^-4;

+f = 1;     //frequency, MHz

+A = 8;     //area, cm^2

+A = A*10^-4;      //area, m^2

+d = 0.08;     //diameter, mm

+d = d*10^-3;     //diameter, m

+epsilon_rdash = epsilon_r*tan_delta;

+epsilon0 = 8.85*10^-12;

+omega = 2*%pi*10^6;

+Rp = d/(omega*epsilon0*epsilon_rdash*A);      //parallel loss resistance, ohm

+Rp = Rp*10^-6;      //parallel loss resistance, Mega ohm

+Cp = A*epsilon0*epsilon_r/d;     //capacitance, farad

+printf("parallel loss resistance is %5.3f ohm",Rp);

+printf("capacitance in Farad is");

+disp(Cp);

diff --git a/2453/CH6/EX6.4/6_4.sce b/2453/CH6/EX6.4/6_4.sce
new file mode 100755
index 000000000..488063c6e
--- /dev/null
+++ b/2453/CH6/EX6.4/6_4.sce
@@ -0,0 +1,6 @@
+//To calculate the dielectric constant of material

+N = 3*10^28;     //density, atoms/m^3

+alpha_e = 10^-40;    //electronic polarizability, Farad-m^2

+epsilon0 = 8.854*10^-12;

+epsilon_r = 1+(N*alpha_e/epsilon0);       //dielectric constant of material

+printf("dielectric constant of material is %5.3f",epsilon_r); 

diff --git a/2453/CH6/EX6.5/6_5.sce b/2453/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..7aeaf0c44
--- /dev/null
+++ b/2453/CH6/EX6.5/6_5.sce
@@ -0,0 +1,7 @@
+//To calculate the electronic polarizability

+epsilon0 = 8.854*10^-12;

+epsilon_r = 1.0000684;      //dielectric constant

+N = 2.7*10^25;     //density, atoms/m^3

+alpha_e = epsilon0*(epsilon_r-1)/N;        //electronic polarizability, Fm^2

+printf("electronic polarizability in Fm^2 is");

+disp(alpha_e);

diff --git a/2453/CH6/EX6.6/6_6.sce b/2453/CH6/EX6.6/6_6.sce
new file mode 100755
index 000000000..f0496519b
--- /dev/null
+++ b/2453/CH6/EX6.6/6_6.sce
@@ -0,0 +1,13 @@
+//To calculate the capacitance and charge on plates

+epsilon0 = 8.85*10^-12;

+V = 100;     //potential, V

+A = 100;     //area, cm^2

+A = A*10^-4;      //area, m^2

+d = 1;    //plate seperation, cm

+d = d*10^-2;    //plate seperation, m

+C = epsilon0*A/d;     //capacitance, farad

+printf("capacitance of capacitor in F is");

+disp(C);

+Q = C*V;     //charge on plates

+printf("charge on plates in coulomb is");

+disp(Q);

diff --git a/2453/CH6/EX6.7/6_7.sce b/2453/CH6/EX6.7/6_7.sce
new file mode 100755
index 000000000..22fd1fc36
--- /dev/null
+++ b/2453/CH6/EX6.7/6_7.sce
@@ -0,0 +1,10 @@
+//To calculate the electronic polarizability

+N = 6.02*10^26;     //avagadro number

+d = 2050;      //density, kg/m^3

+AW = 32;       //atomic weight of sulphur

+n = N*d/AW;    //number of atoms/m^3

+epsilon_r = 3.75;    //relative dielectric constant

+epsilon0 = 8.55*10^-12;

+alpha_e = ((epsilon_r-1)/(epsilon_r+2))*3*epsilon0/n;     //electronic polarizability, Fm^2 

+printf("electronic polarizability in Fm^2 is");

+disp(alpha_e);

diff --git a/2453/CH6/EX6.8/6_8.sce b/2453/CH6/EX6.8/6_8.sce
new file mode 100755
index 000000000..f929ddf52
--- /dev/null
+++ b/2453/CH6/EX6.8/6_8.sce
@@ -0,0 +1,10 @@
+//To calculate the resultant voltage across capacitors

+Q = 2*10^-10;       //charge, coulomb

+d = 4;     //plate seperation, mm

+d = d*10^-3;      //plate seperation, m

+epsilon_r = 3.5;    //dielectric constant

+A = 650;     //area, mm^2

+A = A*10^-6;     //area, m^2

+epsilon0 = 8.85*10^-12;

+V = Q*d/(epsilon0*epsilon_r*A);       //voltage across capacitors, V

+printf("resultant voltage across capacitors is %5.2f V",V);

diff --git a/2453/CH6/EX6.9/6_9.sce b/2453/CH6/EX6.9/6_9.sce
new file mode 100755
index 000000000..981c946a2
--- /dev/null
+++ b/2453/CH6/EX6.9/6_9.sce
@@ -0,0 +1,9 @@
+//To calculate the dielectric displacement

+V = 10;      //potential, V

+d = 2*10^-3;      //plate seperation, m

+E = V/d;     //electric field, V/m

+epsilon_r = 6;

+epsilon0 = 8.85*10^-12;

+D = epsilon0*epsilon_r*E;       //dielectric displacement, C/m^2

+printf("dielectric displacement in C/m^2 is");

+disp(D);