5 files changed, 44 insertions, 0 deletions
diff --git a/1952/CH8/EX8.1/Ex8_1.sce b/1952/CH8/EX8.1/Ex8_1.sce
new file mode 100755
index 000000000..b9ffe9e23
--- /dev/null
+++ b/1952/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,7 @@
+// chapter 8 , Example 8.1 , pg 238
+I=12 // current(in A)
+A=7.5*10^-4 //area(in m^2)
+M=I*A    //magnetic moment associated  with  the loop
+printf("Magnetic moment associated with  the loop(in   A m^2)=")
+disp(M)
+printf("M is directed away from  the observer  and is perpendicular  to the plane  of the loop")
diff --git a/1952/CH8/EX8.2/Ex8_2.sce b/1952/CH8/EX8.2/Ex8_2.sce
new file mode 100755
index 000000000..615a9880d
--- /dev/null
+++ b/1952/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,9 @@
+// chapter 8 , Example 8.2 , pg 238
+r=0.5*10^-10   //radius of orbit   (in m)
+e= 1.6*10^-19   //charge on electron  (in C)
+n=10^16    //frequency of revolution of electron  (in  rps)
+I=e*n      //current   (in A)
+A=%pi *r^2   //area   (in  m^2)
+M=I*A  //magnetic moment associated with  motion of electron 
+printf("Magnetic moment associated with  motion of electron (in  A m^2)")
+disp(M)
diff --git a/1952/CH8/EX8.3/Ex8_3.sce b/1952/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..cb0310a1a
--- /dev/null
+++ b/1952/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,5 @@
+// chapter 8 , Example 8.3 , pg 239
+ur=5000   //relative permeability
+xm=ur-1   //magnetic susceptibility
+printf("Magnetic susceptibility=")
+disp(xm)
diff --git a/1952/CH8/EX8.4/Ex8_4.sce b/1952/CH8/EX8.4/Ex8_4.sce
new file mode 100755
index 000000000..07657fc4b
--- /dev/null
+++ b/1952/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,8 @@
+// chapter 8 , Example 8.4 , pg 239
+H=1800  //magnetizing field  (in  A/m)
+phi=3*10^-5   //magnetic  flux   (in Wb)
+A=0.2 *10^-4  //area  (in m^2)
+B=phi/A    //magnetic flux density   (in Wb/m^2)
+u=B/H    //permeability    (in H/m)
+printf("permeability (in  H/m )=")
+disp(u)
diff --git a/1952/CH8/EX8.5/Ex8_5.sce b/1952/CH8/EX8.5/Ex8_5.sce
new file mode 100755
index 000000000..25f83e044
--- /dev/null
+++ b/1952/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,15 @@
+// chapter 8 , Example 8.5 , pg 239
+B=0.65     //magnetic induction   (in T)
+d=8906     //density    (in Kg/m^3)
+M=58.7    //atomic weight
+e=1.6*10^-19     //charge of electron    (in C)
+h=6.625*10^-34    //plancks constant    (in m^2*Kg*S^-1)
+m=9.11*10^-31     //mass of electron   (in Kg)
+Uo=4*%pi*10^-7     //vacuum permeability
+Na=6.023*10^26    //Avogadro constant
+Ub=(e*h)/(4*%pi*m)      //Bhor magneton   (in A*m^2)
+N=(d*Na)/M     //number of atoms per unit volume
+Ur=B/(N*Uo)     //relative permeability    (in A/m^2)
+M=Ur/(Ub)      //magnetic moment
+printf("Magnetic moment")
+printf("M=%.2f   A*m^2",M)