10 files changed, 123 insertions, 0 deletions
diff --git a/3669/CH7/EX7.1/1.sce b/3669/CH7/EX7.1/1.sce
new file mode 100644
index 000000000..11bad9ea7
--- /dev/null
+++ b/3669/CH7/EX7.1/1.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+chi=-0.4*10**-5;      //magnetic susceptibility
+H=5*10**5;      //magnetic field(A/m)
+mew0=4*%pi*10**-7;    
+
+//Calculation
+B=mew0*H*(1+chi);     //flux density(Wb/m**2)
+M=chi*H;      //magnetic moment(A/m)
+
+//Result
+printf('flux density is %0.3f    Wb/m**2 \n',(B))
+printf('magnetic moment is %0.3f   A/m  \n',M)
+\ No newline at end of file
diff --git a/3669/CH7/EX7.10/10.sce b/3669/CH7/EX7.10/10.sce
new file mode 100644
index 000000000..1f8245529
--- /dev/null
+++ b/3669/CH7/EX7.10/10.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+B=1.4;     //flux density(Wb/m**2)
+B0=6.5*10**-4;    //magnetic field(Tesla)
+
+//Calculation
+mewr=B/B0;    //relative permeability
+
+//Result
+printf('relative permeability is %0.3f     \n',(mewr))
+\ No newline at end of file
diff --git a/3669/CH7/EX7.2/2.sce b/3669/CH7/EX7.2/2.sce
new file mode 100644
index 000000000..e2edb08f5
--- /dev/null
+++ b/3669/CH7/EX7.2/2.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+chi=-0.25*10**-5;      //magnetic susceptibility
+H=1000;      //magnetic field(A/m)
+mew0=4*%pi*10**-7;    
+
+//Calculation
+M=chi*H;      //magnetisation(A/m)
+B=mew0*(H+M);     //flux density(Wb/m**2)
+
+//Result
+printf('magnetisation is %0.3f  *10**-2 A/m   \n',M*10**2)
+printf('flux density is %0.3f  *10**-3 Wb/m**2   \n',(B*10**3))
+\ No newline at end of file
diff --git a/3669/CH7/EX7.3/3.sce b/3669/CH7/EX7.3/3.sce
new file mode 100644
index 000000000..f79ec732d
--- /dev/null
+++ b/3669/CH7/EX7.3/3.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+H=250;      //magnetic field(A/m)
+mewr=15;    //relative permeability
+mew0=4*%pi*10**-7;  
+
+//Calculation
+M=H*(mewr-1);      //magnetisation(A/m)
+B=mew0*(H+M);     //flux density(Wb/m**2)
+
+//Result
+printf('magnetisation is %0.3f   A/m  \n',M)
+printf('flux density is %0.3f    *10**-3 Wb/m**2 \n',(B*10**3))
diff --git a/3669/CH7/EX7.4/4.sce b/3669/CH7/EX7.4/4.sce
new file mode 100644
index 000000000..26664c423
--- /dev/null
+++ b/3669/CH7/EX7.4/4.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+chi=-0.42*10**-3;      //magnetic susceptibility
+H=1000;      //magnetic field(A/m)
+mew0=4*%pi*10**-7;    
+
+//Calculation
+M=chi*H;      //magnetisation(A/m)
+B=mew0*(H+M);     //flux density(Wb/m**2)
+
+//Result
+printf('magnetisation is %0.3f    A/m \n',M)
+printf('flux density is %0.3f   *10**-3 Wb/m**2 \n',(B*10**3))
+\ No newline at end of file
diff --git a/3669/CH7/EX7.5/5.sce b/3669/CH7/EX7.5/5.sce
new file mode 100644
index 000000000..956d31574
--- /dev/null
+++ b/3669/CH7/EX7.5/5.sce
@@ -0,0 +1,10 @@
+
+//Variable declaration
+r=10/2;     //radius(cm)
+i=500*10**-3;    //current(A)
+
+//Calculation
+mew=%pi*(r*10**-2)**2*i;    //magnetic moment(Am**2)
+
+//Result
+printf('magnetic moment is %0.3f  *10**-3 Am**2   \n',(mew*10**3))
+\ No newline at end of file
diff --git a/3669/CH7/EX7.6/6.sce b/3669/CH7/EX7.6/6.sce
new file mode 100644
index 000000000..0a4c65bec
--- /dev/null
+++ b/3669/CH7/EX7.6/6.sce
@@ -0,0 +1,14 @@
+
+//Variable declaration
+mew0=4*%pi*10**-7;    
+B=0.0044;     //flux density(Wb/m**2)
+M=3300;      //magnetic moment(A/m)
+
+//Calculation
+H=(B/mew0)-M;    //magnetizing force(A/m)
+mewr=1+(M/H);    //relative permeability
+
+//Result
+printf('magnetizing force is %0.3f   A/m  \n',int(H))
+printf('relative permeability is %0.3f     \n',(mewr))
+printf('answer varies due to approximating off errors\n')
+\ No newline at end of file
diff --git a/3669/CH7/EX7.7/7.sce b/3669/CH7/EX7.7/7.sce
new file mode 100644
index 000000000..33ad17389
--- /dev/null
+++ b/3669/CH7/EX7.7/7.sce
@@ -0,0 +1,13 @@
+
+//Variable declaration
+r=0.052*10**-9;     //radius(m)
+B=3;     //flux density(Wb/m**2)
+e=1.6*10**-19;  
+m=9.1*10**-31;    //mass(kg)
+
+//Calculation
+delta_mew=e**2*r**2*B/(4*m);     //change in magnetic moment(A m**2)
+
+//Result
+printf('change in magnetic moment is %0.3f   *10**-29 Am**2  \n',(delta_mew*10**29))
+printf('answer given in the book is wrong\n')
+\ No newline at end of file
diff --git a/3669/CH7/EX7.8/8.sce b/3669/CH7/EX7.8/8.sce
new file mode 100644
index 000000000..123c657ae
--- /dev/null
+++ b/3669/CH7/EX7.8/8.sce
@@ -0,0 +1,12 @@
+
+//Variable declaration
+r=5.29*10**-11;     //radius(m)
+B=2;     //flux density(Wb/m**2)
+e=1.6*10**-19;  
+m=9.1*10**-31;    //mass(kg)
+
+//Calculation
+d_mew=e**2*r**2*B/(4*m);     //change in magnetic moment(A m**2)
+
+//Result
+printf('change in magnetic moment is %0.3f *10**-29 Am**2    \n',(d_mew*10**29))
+\ No newline at end of file
diff --git a/3669/CH7/EX7.9/9.sce b/3669/CH7/EX7.9/9.sce
new file mode 100644
index 000000000..81090b7bc
--- /dev/null
+++ b/3669/CH7/EX7.9/9.sce
@@ -0,0 +1,12 @@
+
+//Variable declaration
+N=10**28;     //number of atoms(per m**3)
+chi1=2.8*10**-4;   //susceptibility
+T1=350;    //temperature(K)
+T2=300;    //temperature(K)
+
+//Calculation
+chi2=chi1*T1/T2;    //susceptibility
+
+//Result
+printf('susceptibility is %0.3f   *10**-4  \n',(chi2*10**4))
+\ No newline at end of file