diff options
Diffstat (limited to '1271/CH18')
42 files changed, 396 insertions, 0 deletions
diff --git a/1271/CH18/EX18.1/1.txt b/1271/CH18/EX18.1/1.txt new file mode 100755 index 000000000..3b3e7c66a --- /dev/null +++ b/1271/CH18/EX18.1/1.txt @@ -0,0 +1,6 @@ +# PROBLEM 1 #
+Standard formula used
+ M = I*a
+
+ Magnetic moment is 9.318919e-24 Am^2.
+ Bohr magneton is 9.262468e-24 J/T.
diff --git a/1271/CH18/EX18.1/example18_1.sce b/1271/CH18/EX18.1/example18_1.sce new file mode 100755 index 000000000..1e8feecb7 --- /dev/null +++ b/1271/CH18/EX18.1/example18_1.sce @@ -0,0 +1,14 @@ +clc +// Given that +r = 0.53e-10 // radius of orbit in m +f = 6.6e15 // frequency of revolution in Hz +h = 6.6e-34 // Planck constant in J sec +e = 1.6e-19 // charge on an electron in C +m = 9.1e-31 // mass of electron in kg +// Sample Problem 1 on page no. 18.21 +printf("\n # PROBLEM 1 # \n") +printf("Standard formula used \n ") +printf(" M = I*a \n") +M = e * f * %pi * r^2 +mu = (e * h) / (4 * %pi * m) +printf("\n Magnetic moment is %e Am^2.\n Bohr magneton is %e J/T.",M,mu) diff --git a/1271/CH18/EX18.10/10.txt b/1271/CH18/EX18.10/10.txt new file mode 100755 index 000000000..c61dac6d3 --- /dev/null +++ b/1271/CH18/EX18.10/10.txt @@ -0,0 +1,5 @@ + # PROBLEM 10 #
+Standard formula used
+ B = mu*N*I
+
+ Number of ampere turns is 200 A/m.
diff --git a/1271/CH18/EX18.10/example18_10.sce b/1271/CH18/EX18.10/example18_10.sce new file mode 100755 index 000000000..a1a7ba2f2 --- /dev/null +++ b/1271/CH18/EX18.10/example18_10.sce @@ -0,0 +1,13 @@ +clc +// Given that +l = 1 // length of iron rod in m +a = 4e-4 // area in m^2 +mu = 50e-4 // permeability of iron in H/m +Phi = 4e-4 // magnetic flux in Weber +// Sample Problem 10 on page no. 18.24 +printf("\n # PROBLEM 10 # \n") +printf("Standard formula used \n ") +printf("B = mu*N*I \n") +B = Phi / a +NI = B / mu +printf("\n Number of ampere turns is %d A/m. ",NI) diff --git a/1271/CH18/EX18.11/11.txt b/1271/CH18/EX18.11/11.txt new file mode 100755 index 000000000..c446d86f2 --- /dev/null +++ b/1271/CH18/EX18.11/11.txt @@ -0,0 +1,5 @@ + # PROBLEM 11 #
+Standard formula used
+ B = mu*N*I
+
+ Current through the winding is 3.846154 A.
diff --git a/1271/CH18/EX18.11/example18_11.sce b/1271/CH18/EX18.11/example18_11.sce new file mode 100755 index 000000000..c11af0162 --- /dev/null +++ b/1271/CH18/EX18.11/example18_11.sce @@ -0,0 +1,16 @@ +clc +// Given that +n = 200 // no. of turns +l = 0.5 // the mean length of iron wire in m +phi = 4e-4 // magnetic flux in Weber +a = 4e-4 // area of cross section in m^2 +mu = 6.5e-4 // permeability of iron in wb/Am +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 11 on page no. 18.25 +printf("\n # PROBLEM 11 # \n") +printf("Standard formula used \n ") +printf("B = mu*N*I \n") +B = phi / a +N = n / l +I = B / (mu * N) +printf("\n Current through the winding is %f A. ",I) diff --git a/1271/CH18/EX18.12/12.txt b/1271/CH18/EX18.12/12.txt new file mode 100755 index 000000000..5f6c06976 --- /dev/null +++ b/1271/CH18/EX18.12/12.txt @@ -0,0 +1,5 @@ + # PROBLEM 12 #
+Standard formula used
+ Chi = mu_0*Z*e^2 *N*R^2 /(6*m)
+
+ Radius of atom is 0.887689 A.
diff --git a/1271/CH18/EX18.12/example18_12.sce b/1271/CH18/EX18.12/example18_12.sce new file mode 100755 index 000000000..4af8139b3 --- /dev/null +++ b/1271/CH18/EX18.12/example18_12.sce @@ -0,0 +1,16 @@ +clc +// Given that +X = -5.6e-6 // magnetic susceptibility of material +a = 2.55e-10 // lattice constant in m +H = 1e4 // magnetic field in A/m +mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space +m = 9.1e-31 // mass of electron in kg +e = 1.6e-19 // charge in an electron in C +// Sample Problem 12 on page no. 18.25 +printf("\n # PROBLEM 12 # \n") +printf("Standard formula used \n ") +printf(" Chi = mu_0*Z*e^2 *N*R^2 /(6*m) \n") +N = 2 / a^3 +z = 1 +R = ((-X * 6 * m) / (mu_ * z * e^2 * N))^(1/2) +printf("\n Radius of atom is %f A.",R * 1e10) diff --git a/1271/CH18/EX18.13/13.txt b/1271/CH18/EX18.13/13.txt new file mode 100755 index 000000000..e4757a78d --- /dev/null +++ b/1271/CH18/EX18.13/13.txt @@ -0,0 +1,5 @@ +# PROBLEM 13 #
+Standard formula used
+ Chi = mu_0*N*M^2 /(3*k*t)
+
+ Susceptibility is 5.642285e-07
diff --git a/1271/CH18/EX18.13/example18_13.sce b/1271/CH18/EX18.13/example18_13.sce new file mode 100755 index 000000000..eb8a2cabf --- /dev/null +++ b/1271/CH18/EX18.13/example18_13.sce @@ -0,0 +1,16 @@ +clc +// Given that +N = 6.5e25 // no. of atom per m^3 +T = 300 // room temperature in K +mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space +k = 1.38e-23 // Boltzmann's constant in J/K +m = 9.1e-31 // mass of electron in kg +e = 1.6e-19 // charge in an electron in C +h = 6.62e-34 // Planck constant in J sec +// Sample Problem 13 on page no. 18.25 +printf("\n # PROBLEM 13 # \n") +printf("Standard formula used \n ") +printf(" Chi = mu_0*N*M^2 /(3*k*t) \n") +M = (e * h) / (4 * %pi * m) +X = (mu_ * N * M^2) / (3 * k * T) +printf("\n Susceptibility is %e",X) diff --git a/1271/CH18/EX18.14/14.txt b/1271/CH18/EX18.14/14.txt new file mode 100755 index 000000000..c5c870453 --- /dev/null +++ b/1271/CH18/EX18.14/14.txt @@ -0,0 +1,5 @@ + # PROBLEM 14 #
+Standard formula used
+ Chi = mu_0*N*M^2 /(3*k*t)
+
+ Magnetisation is 107.894727 A/m
diff --git a/1271/CH18/EX18.14/example18_14.sce b/1271/CH18/EX18.14/example18_14.sce new file mode 100755 index 000000000..069460d0b --- /dev/null +++ b/1271/CH18/EX18.14/example18_14.sce @@ -0,0 +1,18 @@ +clc +// Given that +w = 168.5 // molecular weight +d = 4370 // density of material in kg/m^3 +H = 2e5 // magnetic field in A/m +T = 300 // room temperature in K +mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space] +NA = 6.02e26 // Avogadro no. in per kg +mu_b = 9.24e-24 // Bohr magnetons in Am^2 +k = 1.38e-23 // Boltzmann's constant in J/K +// Sample Problem 14 on page no. 18.26 +printf("\n # PROBLEM 14 # \n") +printf("Standard formula used \n ") +printf(" Chi = mu_0*N*M^2 /(3*k*t) \n") +N = d * NA / w +X = (mu_ * N * (2 * mu_b)^2) / (3 * k * T) +I = X * H +printf("\n Magnetisation is %f A/m",I) diff --git a/1271/CH18/EX18.15/15.txt b/1271/CH18/EX18.15/15.txt new file mode 100755 index 000000000..6c4026622 --- /dev/null +++ b/1271/CH18/EX18.15/15.txt @@ -0,0 +1,5 @@ +# PROBLEM 15 #
+Standard formula used
+ M = V*d
+
+ Total loss of energy per hour is 6.000000e+11 ergs.
diff --git a/1271/CH18/EX18.15/example18_15.sce b/1271/CH18/EX18.15/example18_15.sce new file mode 100755 index 000000000..8cf07e0ca --- /dev/null +++ b/1271/CH18/EX18.15/example18_15.sce @@ -0,0 +1,14 @@ +clc +// Given that +A = 2500 // area of hysteresis loop +m = 10000 // weight in kg +d = 7.5 // density of material in g/cm^3 +f = 50 // frequency in Hz +// Sample Problem 15 on page no. 18.26 +printf("\n # PROBLEM 15 # \n") +printf("Standard formula used \n ") +printf(" M = V*d \n") +E = f * A * 3600 +V = m / d +L = E * V +printf("\n Total loss of energy per hour is %e ergs.",L) diff --git a/1271/CH18/EX18.16/16.txt b/1271/CH18/EX18.16/16.txt new file mode 100755 index 000000000..377e68aeb --- /dev/null +++ b/1271/CH18/EX18.16/16.txt @@ -0,0 +1,5 @@ + # PROBLEM 16 #
+Standard formula used
+ H=N*i
+
+ Current in solenoid should be 10 A.
diff --git a/1271/CH18/EX18.16/example18_16.sce b/1271/CH18/EX18.16/example18_16.sce new file mode 100755 index 000000000..cb246d9ab --- /dev/null +++ b/1271/CH18/EX18.16/example18_16.sce @@ -0,0 +1,12 @@ +clc +// Given that +H = 5e3 // coercivity in A/m +l = 0.10 // length of solenoid in m +n = 50 // no. of turns +// Sample Problem 16 on page no. 18.27 +printf("\n # PROBLEM 16 # \n") +printf("Standard formula used \n ") +printf(" H=N*i \n") +N = n / l +i = H / N +printf("\n Current in solenoid should be %d A.",i) diff --git a/1271/CH18/EX18.17/17.txt b/1271/CH18/EX18.17/17.txt new file mode 100755 index 000000000..50d63e2c5 --- /dev/null +++ b/1271/CH18/EX18.17/17.txt @@ -0,0 +1,5 @@ + # PROBLEM 17 #
+Standard formula used
+ N =H*l
+
+ Number of turns are 7.692308
diff --git a/1271/CH18/EX18.17/example18_17.sce b/1271/CH18/EX18.17/example18_17.sce new file mode 100755 index 000000000..1aacdf8d8 --- /dev/null +++ b/1271/CH18/EX18.17/example18_17.sce @@ -0,0 +1,14 @@ +clc +// Given that +l = 0.50 // length of iron rod in m +a = 4e-4 // area of cross section of rod in m^2 +mu = 65e-4 // permeability of iron in H/m +fi = 4e-5 // flux in weber +// Sample Problem 17 on page no. 18.27 +printf("\n # PROBLEM 17 # \n") +printf("Standard formula used \n ") +printf(" N =H*l \n") +B = fi / a +H = B / mu +N = H * l +printf("\n Number of turns are %f",N) diff --git a/1271/CH18/EX18.18/18.txt b/1271/CH18/EX18.18/18.txt new file mode 100755 index 000000000..e24948eaf --- /dev/null +++ b/1271/CH18/EX18.18/18.txt @@ -0,0 +1,6 @@ + # PROBLEM 18 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Permeability is 0.002000 N/A^2.
+ Susceptibility is 1590.
diff --git a/1271/CH18/EX18.18/example18_18.sce b/1271/CH18/EX18.18/example18_18.sce new file mode 100755 index 000000000..c049b1bcc --- /dev/null +++ b/1271/CH18/EX18.18/example18_18.sce @@ -0,0 +1,14 @@ +clc +// Given that +H = 600 // magnetic flux in A/m +a = 0.2e-4 // area of cross section of rod in m^2 +phi = 2.4e-5 // flux in weber +mu_ = 4*%pi * 1e-7 // permeability of space in N/A^2 +// Sample Problem 18 on page no. 18.27 +printf("\n # PROBLEM 18 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +B = phi / a +mu = B / H +X = mu / mu_ - 1 +printf("\n Permeability is %f N/A^2.\n Susceptibility is %f.",mu,X) diff --git a/1271/CH18/EX18.19/19.txt b/1271/CH18/EX18.19/19.txt new file mode 100755 index 000000000..98c7ac60b --- /dev/null +++ b/1271/CH18/EX18.19/19.txt @@ -0,0 +1,5 @@ + # PROBLEM 19 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Relative permeability is 1 + 9.500000e-09
diff --git a/1271/CH18/EX18.19/example18_19.sce b/1271/CH18/EX18.19/example18_19.sce new file mode 100755 index 000000000..e86aa5fe3 --- /dev/null +++ b/1271/CH18/EX18.19/example18_19.sce @@ -0,0 +1,11 @@ +clc +// Given that +X = 9.5e-9 // susceptibility of medium +mu_ = 4*%pi * 1e-7 // permeability of space in N/A^2 +// Sample Problem 19 on page no. 18.28 +printf("\n # PROBLEM 19 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +mu = mu_ * (1 + X) +mu_r = mu / mu_ +printf("\n Relative permeability is 1 + %e",mu_r -1) diff --git a/1271/CH18/EX18.2/2.txt b/1271/CH18/EX18.2/2.txt new file mode 100755 index 000000000..377049fc8 --- /dev/null +++ b/1271/CH18/EX18.2/2.txt @@ -0,0 +1,7 @@ + # PROBLEM 2 #
+Standard formula used
+ I = cai*H
+
+ Magnetisation is -0.499800 A/m.
+ Flux density is 0.149539 T.
+ Relative permeability is 0.999996 .
diff --git a/1271/CH18/EX18.2/example18_2.sce b/1271/CH18/EX18.2/example18_2.sce new file mode 100755 index 000000000..d5042b2f3 --- /dev/null +++ b/1271/CH18/EX18.2/example18_2.sce @@ -0,0 +1,13 @@ +clc +// Given that +X = -4.2e-6 // magnetic susceptibility +H = 1.19e5 // magnetic field in A/m +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 2 on page no. 18.21 +printf("\n # PROBLEM 2 # \n") +printf("Standard formula used \n ") +printf(" I = cai*H \n") +I = X * H +B = mu_ * (H + I) +mur = (1 + I/H) +printf("\n Magnetisation is %f A/m.\n Flux density is %f T.\n Relative permeability is %f .",I,B,mur) diff --git a/1271/CH18/EX18.20/20.txt b/1271/CH18/EX18.20/20.txt new file mode 100755 index 000000000..50d2f411c --- /dev/null +++ b/1271/CH18/EX18.20/20.txt @@ -0,0 +1,5 @@ + # PROBLEM 20 #
+Standard formula used
+ M = V*d
+
+ Energy loss per hour is 6.000000e+05 J.
diff --git a/1271/CH18/EX18.20/example18_20.sce b/1271/CH18/EX18.20/example18_20.sce new file mode 100755 index 000000000..1949b9739 --- /dev/null +++ b/1271/CH18/EX18.20/example18_20.sce @@ -0,0 +1,14 @@ +clc +// Given that +a = 250 // area of the B-H loop in J/m^3 +f = 50 // frequency in Hz +d = 7.5e3 // density of iron in kg/m^3 +m = 100 // mass of core in kg +// Sample Problem 20 on page no. 18.28 +printf("\n # PROBLEM 20 # \n") +printf("Standard formula used \n ") +printf(" M = V*d \n") +V = m / d +n = 3600 * f +A = a * V * n +printf("\n Energy loss per hour is %e J.",A) diff --git a/1271/CH18/EX18.21/21.txt b/1271/CH18/EX18.21/21.txt new file mode 100755 index 000000000..bc8bced73 --- /dev/null +++ b/1271/CH18/EX18.21/21.txt @@ -0,0 +1,5 @@ + # PROBLEM 21 #
+Standard formula used
+ K = a * k * k_.
+
+ Hysteresis loss per sec is 25.650000 W
diff --git a/1271/CH18/EX18.21/example18_21.sce b/1271/CH18/EX18.21/example18_21.sce new file mode 100755 index 000000000..c2e9a42e2 --- /dev/null +++ b/1271/CH18/EX18.21/example18_21.sce @@ -0,0 +1,15 @@ +clc +// Given that +B_max = 1.375 // maximum value of B in Wb/m^2 +a = 0.513 // area of the loop in cm^2 +k = 1000 // value of 1 cm on x axis in A/m +k_ = 1 // value of 1 cm on y axis in Wb/m^2 +B = 1.375 // alternating magnetic flux density in Wb/m^2 +v = 1e-3 // volume of specimen in m^3 +f = 50 // frequency in Hz +// Sample Problem 21 on page no. 18.28 +printf("\n # PROBLEM 21 # \n") +printf("Standard formula used \n K = a * k * k_.\n") +K = a * k * k_ +L = K * v * f +printf("\n Hysteresis loss per sec is %f W",L) diff --git a/1271/CH18/EX18.3/3.txt b/1271/CH18/EX18.3/3.txt new file mode 100755 index 000000000..b04f60881 --- /dev/null +++ b/1271/CH18/EX18.3/3.txt @@ -0,0 +1,5 @@ + # PROBLEM 3 #
+Standard formula used
+ B = mu_0*H
+
+ Percentage increase in magnetic induction is 0.001200 percent.
diff --git a/1271/CH18/EX18.3/example18_3.sce b/1271/CH18/EX18.3/example18_3.sce new file mode 100755 index 000000000..504b30070 --- /dev/null +++ b/1271/CH18/EX18.3/example18_3.sce @@ -0,0 +1,9 @@ +clc +// Given that +X = 1.2e-5 // magnetic susceptibility of magnesium +// Sample Problem 3 on page no. 18.22 +printf("\n # PROBLEM 3 # \n") +printf("Standard formula used \n ") +printf(" B = mu_0*H \n") +p = 100 * X +printf("\n Percentage increase in magnetic induction is %f percent.",p) diff --git a/1271/CH18/EX18.4/4.txt b/1271/CH18/EX18.4/4.txt new file mode 100755 index 000000000..e48fa07ad --- /dev/null +++ b/1271/CH18/EX18.4/4.txt @@ -0,0 +1,6 @@ + # PROBLEM 4 #
+Standard formula used
+ I = Chi *H
+
+ Magnetisation is -0.040000 A/m.
+ Magnetic flux density is 0.012566 T.
diff --git a/1271/CH18/EX18.4/example18_4.sce b/1271/CH18/EX18.4/example18_4.sce new file mode 100755 index 000000000..7a5e8ecb7 --- /dev/null +++ b/1271/CH18/EX18.4/example18_4.sce @@ -0,0 +1,12 @@ +clc +// Given that +X = -0.4e-5 // magnetic susceptibility of material +H = 1e4 // magnetic field in A/m +mu_ = 4 * %pi * 1e-7 // magnetic permittivity of space +// Sample Problem 4 on page no. 18.22 +printf("\n # PROBLEM 4 # \n") +printf("Standard formula used \n ") +printf(" I = Chi *H \n") +I = X * H +B = mu_ * (H + I) +printf("\n Magnetisation is %f A/m.\n Magnetic flux density is %f T.",I,B) diff --git a/1271/CH18/EX18.5/5.txt b/1271/CH18/EX18.5/5.txt new file mode 100755 index 000000000..fa4eb87fe --- /dev/null +++ b/1271/CH18/EX18.5/5.txt @@ -0,0 +1,5 @@ + # PROBLEM 5 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Permeability of aluminium is 1.256666e-06 N/A^2.
diff --git a/1271/CH18/EX18.5/example18_5.sce b/1271/CH18/EX18.5/example18_5.sce new file mode 100755 index 000000000..cf11d0fa0 --- /dev/null +++ b/1271/CH18/EX18.5/example18_5.sce @@ -0,0 +1,11 @@ +clc +// Given that +X = 2.3e-5 // magnetic susceptibility of aluminium +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 5 on page no. 18.23 +printf("\n # PROBLEM 5 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +mur = 1 + X +mu = mu_ * mur +printf("\n Permeability of aluminium is %e N/A^2.",mu) diff --git a/1271/CH18/EX18.6/6.txt b/1271/CH18/EX18.6/6.txt new file mode 100755 index 000000000..f58eba87c --- /dev/null +++ b/1271/CH18/EX18.6/6.txt @@ -0,0 +1,6 @@ + # PROBLEM 6 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Absolute permeability is 1.268449e-06 N/A^2.
+ Relative permeability is 1.009400.
diff --git a/1271/CH18/EX18.6/example18_6.sce b/1271/CH18/EX18.6/example18_6.sce new file mode 100755 index 000000000..01f940a71 --- /dev/null +++ b/1271/CH18/EX18.6/example18_6.sce @@ -0,0 +1,11 @@ +clc +// Given that +X = 9.4e-2 // magnetic susceptibility +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 6 on page no. 18.23 +printf("\n # PROBLEM 6 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +mu_r = 1 + X +mu = mu_ * mu_r +printf("\n Absolute permeability is %e N/A^2.\n Relative permeability is %f.",mu,mu_r) diff --git a/1271/CH18/EX18.7/7.txt b/1271/CH18/EX18.7/7.txt new file mode 100755 index 000000000..cd1945db6 --- /dev/null +++ b/1271/CH18/EX18.7/7.txt @@ -0,0 +1,6 @@ + # PROBLEM 7 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Magnetic susceptibility is 100266.614148 .
+ Relative permeability is 1.002676e+05
diff --git a/1271/CH18/EX18.7/example18_7.sce b/1271/CH18/EX18.7/example18_7.sce new file mode 100755 index 000000000..d62574daa --- /dev/null +++ b/1271/CH18/EX18.7/example18_7.sce @@ -0,0 +1,11 @@ +clc +// Given that +mu = 0.126 // maximum value of the permeability in N/A^2 +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 7 on page no. 18.23 +printf("\n # PROBLEM 7 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +mu_r = mu / mu_ +X = mu_r - 1 +printf("\n Magnetic susceptibility is %f .\n Relative permeability is %e",X,mu_r) diff --git a/1271/CH18/EX18.8/8.txt b/1271/CH18/EX18.8/8.txt new file mode 100755 index 000000000..4066c5368 --- /dev/null +++ b/1271/CH18/EX18.8/8.txt @@ -0,0 +1,6 @@ +
+ # PROBLEM 8 #
+Standard formula used
+ Chi = mu_0*Z*e^2 *N*R^2 /(6*m)
+
+ Diamagnetic susceptibility is -1.187812e-07 .
\ No newline at end of file diff --git a/1271/CH18/EX18.8/example18_8.sce b/1271/CH18/EX18.8/example18_8.sce new file mode 100755 index 000000000..3eb1ba3dc --- /dev/null +++ b/1271/CH18/EX18.8/example18_8.sce @@ -0,0 +1,14 @@ +clc +// Given that +r = 0.6e-10 // radius of the atom +N = 28e26 // no. of electron in per m^3 +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +Z = 2 // atomic no. of helium +m = 9.1e-31 // mass of an electron in kg +e = 1.6e-19 // charge on an electron in C +// Sample Problem 8 on page no. 18.24 +printf("\n # PROBLEM 8 # \n") +printf("Standard formula used \n ") +printf(" Chi = mu_0*Z*e^2 *N*R^2 /(6*m) \n") +Chi = -(mu_ * Z * N * r^2 * e^2) / (6 * m) +printf("\n Diamagnetic susceptibility is %e .",Chi) diff --git a/1271/CH18/EX18.9/9.txt b/1271/CH18/EX18.9/9.txt new file mode 100755 index 000000000..3942b4f52 --- /dev/null +++ b/1271/CH18/EX18.9/9.txt @@ -0,0 +1,6 @@ + # PROBLEM 9 #
+Standard formula used
+ mu_r = 1 + Chi
+
+ Permeability is 1.000000e-03 N/A^2.
+ Susceptibility is 794.774715 .
diff --git a/1271/CH18/EX18.9/example18_9.sce b/1271/CH18/EX18.9/example18_9.sce new file mode 100755 index 000000000..49b818231 --- /dev/null +++ b/1271/CH18/EX18.9/example18_9.sce @@ -0,0 +1,14 @@ +clc +// Given that +H = 1e3 // magnetisation field in A/m +phi = 2e-5 // magnetic flux in Weber +a = 0.2e-4 // area of cross section in m^2 +mu_ = 4 * %pi * 1e-7 // magnetic permeability of space +// Sample Problem 9 on page no. 18.24 +printf("\n # PROBLEM 9 # \n") +printf("Standard formula used \n ") +printf(" mu_r = 1 + Chi \n") +B = phi / a +mu = B / H +X = mu / mu_ - 1 +printf("\n Permeability is %e N/A^2.\n Susceptibility is %f .",mu,X) |