initial commit / add all books

6 files changed, 77 insertions, 0 deletions

diff --git a/1871/CH10/EX10.1/Ch010Ex1.sce b/1871/CH10/EX10.1/Ch010Ex1.sce
new file mode 100755
index 000000000..ea506792f
--- /dev/null
+++ b/1871/CH10/EX10.1/Ch010Ex1.sce
@@ -0,0 +1,11 @@
+// Scilab code Ex10.1 : Pg:405 (2008)

+clc;clear;

+E = 1000;    // Electric field applied to sodium chloride crystal, V/m

+P = 4.3e-008;    // Polarization, Coulomb per meter square

+epsilon_0 = 8.85e-012;    // Permittivity of free space, force per meter

+// Since P = epsilon_0*(epsilon_r-1)*E, solving for epsilon_r

+epsilon_r = 1 + P/(epsilon_0*E);    // Relative permittivity of sodium chloride

+printf("\nThe relative permittivity of sodium chloride = %4.2f ", epsilon_r);

+

+// Result 

+// The relative permittivity of sodium chloride = 5.86  
\ No newline at end of file
diff --git a/1871/CH10/EX10.2/Ch010Ex2.sce b/1871/CH10/EX10.2/Ch010Ex2.sce
new file mode 100755
index 000000000..e7fd16140
--- /dev/null
+++ b/1871/CH10/EX10.2/Ch010Ex2.sce
@@ -0,0 +1,11 @@
+// Scilab code Ex10.2: Pg:411 (2008)

+clc;clear;

+N = 2.7e+025;    // Number of molecules per unit volume

+epsilon_r = 1.0024;    // Dielectric constant due to electronic polarization

+epsilon_0 = 8.85e-012;    // Permittivity of free space, force per meter

+// P = epsilon_0*(epsilon_r-1)*E and P = N*alpha_e*E, solving for alpha_e 

+alpha_e = epsilon_0*(epsilon_r-1)/N;    // Electronic polarizability of an argon atom, farad Sq.m

+printf("\nThe electronic polarizability of an argon atom = %3.1e farad Sq.m", alpha_e);

+

+// Result 

+// The electronic polarizability of an argon atom = 7.9e-040 farad Sq.m  
\ No newline at end of file
diff --git a/1871/CH10/EX10.3/Ch010Ex3.sce b/1871/CH10/EX10.3/Ch010Ex3.sce
new file mode 100755
index 000000000..85bccd615
--- /dev/null
+++ b/1871/CH10/EX10.3/Ch010Ex3.sce
@@ -0,0 +1,13 @@
+// Scilab code Ex10.3  : Pg:414 (2008)

+clc;clear;

+N = 9.8e+026;    // Number of atoms in one cubic meter of hydrogen gas

+R = 0.53e-010;    // Radius of hydrogen atom, meter

+epsilon_0 = 8.85e-012;    // Permittivity of free space, force per meter

+alpha_e = 4*%pi*epsilon_0*R^3;    // Electronic polarizability of an argon atom, farad Sq.m

+epsilon_r = 1 + 4*%pi*N*R^3;    // Relative permittivity of one cubic meter of hydrogen gas

+printf("\nThe polarizability of one cubic meter of hydrogen gas = %4.2e farad Sq.m", alpha_e);

+printf("\nThe relative permittivity of one cubic meter of hydrogen gas = %6.4f", epsilon_r);

+

+// Result 

+// The polarizability of one cubic meter of hydrogen gas = 1.66e-041 farad Sq.m

+// The relative permittivity of one cubic meter of hydrogen gas = 1.0018
\ No newline at end of file
diff --git a/1871/CH10/EX10.4/Ch010Ex4.sce b/1871/CH10/EX10.4/Ch010Ex4.sce
new file mode 100755
index 000000000..ea7584eb7
--- /dev/null
+++ b/1871/CH10/EX10.4/Ch010Ex4.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex10.4: Pg:417 (2008)

+clc;clear;

+alpha_e = 3.28e-040;    // Electronic polarizability of sulphur atom, Force meter square

+eps_0 = 8.85e-012;    // Permittivity of free space, farad per metre

+N_A = 6.023e+026;    // Avagadro's number

+M = 32;    // Atomic weight of sulphur

+rho = 2.08e+003;    // Density of sulphur atom, kg per cubic meter

+// Since (eps_r - 1)/(eps_r + 2) = N*alphe_e/(3*eps_0), solvinf for  eps_r

+ep_r = poly(0, 'ep_r');

+ep_r = roots((ep_r - 1)*3*M*eps_0-(ep_r + 2)*N_A*rho*alpha_e);    // Relative permittivity of the medium

+printf("\nThe relative dielectric constant for sulphur = %3.1f", ep_r);

+

+// Result 

+// The relative dielectric constant for sulphur = 3.8
\ No newline at end of file
diff --git a/1871/CH10/EX10.5/Ch010Ex5.sce b/1871/CH10/EX10.5/Ch010Ex5.sce
new file mode 100755
index 000000000..c98fa4b25
--- /dev/null
+++ b/1871/CH10/EX10.5/Ch010Ex5.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex10.5: Pg:419 (2008)

+clc;clear;

+n = 1.5;    // Refractive index of glass

+E = 1;    // For simplicity assume electric field strength to be unity, N/C

+epsilon_0 = 8.85e-012;    // Permittivity of free space, farad per metre

+epsilon_r = 6.75;    // Relative permittivity of free space at optical frequencies

+mu = 1.5;    // Refractive index for glass

+P_e = epsilon_0*(n^2 - 1)*E;        // Electronic polarizability, farad Sq.m

+P_i = epsilon_0*(epsilon_r - n^2)*E;    // Ionic polarizability, farad Sq.m

+percent_P_i = P_i/(P_e+P_i)*100;    // Percentage ionic polarizability

+printf("\nPercent ionic polarizability for glass = %3.1f percent", percent_P_i);

+

+// Result 

+// Percent ionic polarizability for glass = 78.3 percent  
\ No newline at end of file
diff --git a/1871/CH10/EX10.6/Ch010Ex6.sce b/1871/CH10/EX10.6/Ch010Ex6.sce
new file mode 100755
index 000000000..ff8f65c14
--- /dev/null
+++ b/1871/CH10/EX10.6/Ch010Ex6.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex10.6: Pg:422 (2008)

+clc;clear;

+eps_r_prime = 1;    // For simplicity assume real part of dielectric constant to be unity

+eps_r_dprime = eps_r_prime;    // Imaginary part of dielectric constant is the same as that of real part

+tau = 18e-06;    // Relaxation time of ice, s

+f = 1/(2*%pi*tau*1e+003);    // Frequency when the real and imaginary parts of the complex dielectric constant will become equal, kHz

+delta = atand(eps_r_dprime/eps_r_prime);    // Loss angle, degree

+phi = 90 - delta;    // Phase difference between the current and voltage, degree

+printf("\nThe frequency when the real and imaginary parts of the complex dielectric constant will become equal = %3.1f kHz", f);

+printf("\nThe phase difference between the current and voltage = %2.0f degree", phi);

+

+// Result 

+// The frequency when the real and imaginary parts of the complex dielectric constant will become equal = 8.8 kHz

+// The phase difference between the current and voltage = 45 degree
\ No newline at end of file