initial commit / add all books

7 files changed, 88 insertions, 0 deletions

diff --git a/1535/CH14/EX14.1/Ch14Ex1.sci b/1535/CH14/EX14.1/Ch14Ex1.sci
new file mode 100755
index 000000000..d9821a1aa
--- /dev/null
+++ b/1535/CH14/EX14.1/Ch14Ex1.sci
@@ -0,0 +1,12 @@
+// Scilab Code Ex14.1: Spontaneous magnetisation of the substance: Page-306 (2010)

+N = 6.023e+023;    // Avogadro's number. per mole

+A = 56;    // Atomic weight of the substance, g/mole

+d = 7.9;    // Density of the substance, gram per cm cube

+m_B = 9.27e-024;    // Bohr's Magneton, joule per tesla

+m = 2.2*m_B;    // Magnetic moment of substance, joule per tesla

+n = d*N/A*1e+006;    // Number of atoms per unit volume of the substance, per metre cube

+M = n*m;    // Spontaneous magnetisation of the substance, ampere per metre

+printf("\nThe spontaneous magnetisation of the substance = %4.2e ampere per metre", M);

+

+// Result

+// The spontaneous magnetisation of the substance = 1.73e+006 ampere per metre 
\ No newline at end of file
diff --git a/1535/CH14/EX14.2/Ch14Ex2.sci b/1535/CH14/EX14.2/Ch14Ex2.sci
new file mode 100755
index 000000000..bd157a368
--- /dev/null
+++ b/1535/CH14/EX14.2/Ch14Ex2.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex14.2: Relative permeability of ferromagnetic material : Page-307 (2010)

+H = 200;    // Field strength to which the ferromagnetic material is subjected, ampere per metre

+M = 3100;    // Magnetisation of the ferromagnetic material, ampere per metre

+chi = M/H;    // Magnetic susceptibility

+mu_r = 1 + chi;    // Relative permeability of ferromagnetic material

+printf("\nThe relative permeability of ferromagnetic material = %4.1f", mu_r);

+

+// Result

+// The relative permeability of ferromagnetic material = 16.5 
\ No newline at end of file
diff --git a/1535/CH14/EX14.3/Ch14Ex3.sci b/1535/CH14/EX14.3/Ch14Ex3.sci
new file mode 100755
index 000000000..f30adeeaa
--- /dev/null
+++ b/1535/CH14/EX14.3/Ch14Ex3.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex14.3: Relative permeability from magnetisation : Page-307 (2010)

+H = 300;    // Field strength to which the ferromagnetic material is subjected, ampere per metre

+M = 4400;    // Magnetisation of the ferromagnetic material, ampere per metre

+chi = M/H;    // Magnetic susceptibility

+mu_r = 1 + chi;    // Relative permeability of ferromagnetic material

+printf("\nThe relative permeability of ferromagnetic material = %5.2f", mu_r);

+

+// Result

+// The relative permeability of ferromagnetic material = 15.67 
\ No newline at end of file
diff --git a/1535/CH14/EX14.4/Ch14Ex4.sci b/1535/CH14/EX14.4/Ch14Ex4.sci
new file mode 100755
index 000000000..a64eae75d
--- /dev/null
+++ b/1535/CH14/EX14.4/Ch14Ex4.sci
@@ -0,0 +1,12 @@
+// Scilab Code Ex14.4: Magnetic flux density and magnetisation of diamagnetic material : Page-307 (2010)

+mu_0 = 4*%pi*1e-07;    // Magnetic permeability of free space, tesla metre per ampere

+H = 10000;    // Field strength to which the diamagnetic material is subjected, ampere per metre

+chi = -0.4e-005;    // Magnetic susceptibility

+M = chi*H;    // Magnetisation of the diamagnetic material, ampere per metre

+B = mu_0*(H + M);    // Magnetic flux density of diamagnetic material, T

+printf("\nThe magnetisation of diamagnetic material = %4.2f ampere per metre", M);

+printf("\nThe magnetic flux density of diamagnetic material = %6.4f T", B);

+

+// Result

+// The magnetisation of diamagnetic material = -0.04 ampere per metre

+// The Magnetic flux density of diamagnetic material = 0.0126 T 
\ No newline at end of file
diff --git a/1535/CH14/EX14.5/Ch14Ex5.sci b/1535/CH14/EX14.5/Ch14Ex5.sci
new file mode 100755
index 000000000..2e5356536
--- /dev/null
+++ b/1535/CH14/EX14.5/Ch14Ex5.sci
@@ -0,0 +1,14 @@
+// Scilab Code Ex14.5: Magnetisation-Magnetic flux density-relative permeability of diamagnetic material : Page-307 (2010)

+mu_0 = 4*%pi*1e-07;    // Magnetic permeability of free space, tesla metre per ampere

+H = 1.2e+005;    // Field strength to which the diamagnetic material is subjected, ampere per metre

+chi = -4.2e-006;    // Magnetic susceptibility

+M = chi*H;    // Magnetisation of the diamagnetic material, ampere per metre

+B = mu_0*(H + M);    // Magnetic flux density of diamagnetic material, T

+mu_r = M/H + 1;    // The relative permeability of diamagnetic material

+printf("\nThe magnetisation of diamagnetic material = %5.3f ampere per metre", M);

+printf("\nThe magnetic flux density of diamagnetic material = %5.3f T", B);

+printf("\nThe relative permeability of diamagnetic material = %f T", mu_r);

+// Result

+// The magnetisation of diamagnetic material = -0.504 ampere per metre

+// The magnetic flux density of diamagnetic material = 0.151 T 

+// The relative permeability of diamagnetic material = 0.999996 T 
\ No newline at end of file
diff --git a/1535/CH14/EX14.6/Ch14Ex6.sci b/1535/CH14/EX14.6/Ch14Ex6.sci
new file mode 100755
index 000000000..f476831bf
--- /dev/null
+++ b/1535/CH14/EX14.6/Ch14Ex6.sci
@@ -0,0 +1,13 @@
+// Scilab Code Ex14.6: Mean radius of body centered cubic structure: Page-308 (2010)

+chi = 5.6e-006;    // Magnetic susceptibility of diamagnetic material

+m = 9.1e-031;    // Mass of an electron, kg

+mu_0 = 4*%pi*1e-07;    // Magnetic permeability of free space, tesla metre per ampere

+Z = 1;    /// Atomic number

+e = 1.6e-019;    // Electronic charge, C

+a = 2.53e-010;    // Lattice parameter of bcc structure, m

+N = 2/a^3;    // The number of electrons per unit volume, per metre cube

+r = sqrt(chi*6*m/(mu_0*Z*e^2*N));    // Mean radius of body centered cubic structure as per Langevin relation for Diamagnetic susceptibility, m

+printf("\nThe mean radius of body centered cubic structure = %5.3e angstrom", r/1e-010);

+

+// Result

+// The mean radius of body centered cubic structure = 8.773e-001 angstrom
\ No newline at end of file
diff --git a/1535/CH14/EX14.7/Ch14Ex7.sci b/1535/CH14/EX14.7/Ch14Ex7.sci
new file mode 100755
index 000000000..cf71549e4
--- /dev/null
+++ b/1535/CH14/EX14.7/Ch14Ex7.sci
@@ -0,0 +1,19 @@
+// Scilab Code Ex14.7: Susceptibility and magnetisation of paramagnetic salt: Page-308 (2010)

+mu_0 = 4*%pi*1e-07;    // Magnetic permeability of free space, tesla metre per ampere

+N_A = 6.02e+026;    // Avogadro's number, per kmol

+rho = 4370;    // Density of paramegnetic salt, kg per metre cube

+M = 168.5;    // Molecular weight of paramagnetic salt, g/mol

+T = 27+273;    // Temperature of paramagnetic salt, K

+H = 2e+005;    // Field strength to which the  paramagnetic salt is subjected, ampere per metre

+mu_B = 9.27e-024;    // Bohr's magneton, ampere metre square

+p = 2;    // Number of Bohr magnetons per molecule

+k = 1.38e-023;    // Boltzmann constant, J/K

+N = rho*N_A/M;    // Total density of atoms in the paramagnetic salt, per metr cube

+chi = mu_0*N*p^2*mu_B^2/(3*k*T);    // Magnetic susceptibility of paramagnetic salt

+M = chi*H;    // Magnetisation of paramagnetic salt, ampere per metre

+printf("\nThe magnetic susceptibility of paramagnetic salt = %4.2e per metre", chi);

+printf("\nThe magnetisation of paramagnetic salt = %4.2e ampere per metre", M);

+

+// Result

+// The magnetic susceptibility of paramagnetic salt = 5.43e-004 per metre

+// The magnetisation of paramagnetic salt = 1.09e+002 ampere per metre