From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1535/CH14/EX14.1/Ch14Ex1.sci | 12 ++++++++++++ 1535/CH14/EX14.2/Ch14Ex2.sci | 9 +++++++++ 1535/CH14/EX14.3/Ch14Ex3.sci | 9 +++++++++ 1535/CH14/EX14.4/Ch14Ex4.sci | 12 ++++++++++++ 1535/CH14/EX14.5/Ch14Ex5.sci | 14 ++++++++++++++ 1535/CH14/EX14.6/Ch14Ex6.sci | 13 +++++++++++++ 1535/CH14/EX14.7/Ch14Ex7.sci | 19 +++++++++++++++++++ 7 files changed, 88 insertions(+) create mode 100755 1535/CH14/EX14.1/Ch14Ex1.sci create mode 100755 1535/CH14/EX14.2/Ch14Ex2.sci create mode 100755 1535/CH14/EX14.3/Ch14Ex3.sci create mode 100755 1535/CH14/EX14.4/Ch14Ex4.sci create mode 100755 1535/CH14/EX14.5/Ch14Ex5.sci create mode 100755 1535/CH14/EX14.6/Ch14Ex6.sci create mode 100755 1535/CH14/EX14.7/Ch14Ex7.sci (limited to '1535/CH14') 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 -- cgit