diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3717/CH13/EX13.5/Ex13_5.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3717/CH13/EX13.5/Ex13_5.sce')
| -rw-r--r-- | 3717/CH13/EX13.5/Ex13_5.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3717/CH13/EX13.5/Ex13_5.sce b/3717/CH13/EX13.5/Ex13_5.sce new file mode 100644 index 000000000..7aeeef9bd --- /dev/null +++ b/3717/CH13/EX13.5/Ex13_5.sce @@ -0,0 +1,19 @@ +// Ex13_5 Page:260 (2014)
+clc;clear;
+mu_0 = 4*3.14*1e-007; // Magnetic permeability, H/m
+mu = 9.27e-024; // Bohr magneton, A-Sq.m
+k = 1.38e-023; // Boltzmann constant, J/K
+T = 300; // Absolute temperature of the specimen, K
+H = 2e+005; // Magnetic field to which paramagnetic salt is subjected, A/m
+rho = 4370; // Density of paramagnetic salt, kg/metre-cube
+N_A = 6.021e+026; // Avogadro's number, per k-mol
+M = 168.5; // Molecular weight of paramagnetic salt, kg/k-mol
+N = rho*N_A/M; // Number of atoms per unit volume of the salt, per metre-cube
+chi_para = mu_0*N*(2*mu)^2/(3*k*T); // Susceptibility of paramagnetic salt
+M = chi_para*H; // Magnetization produced in paramagnetic salt, A/m
+printf("\nThe susceptibility of paramagnetic salt = %5.3e", chi_para);
+printf("\nThe magnetization produced in paramagnetic salt = %6.2f A/m", M);
+
+// Result
+// The susceptibility of paramagnetic salt = 5.428e-004
+// The magnetization produced in paramagnetic salt = 108.56 A/m
\ No newline at end of file |