10 files changed, 155 insertions, 0 deletions
diff --git a/3768/CH8/EX8.1/Ex8_1.sce b/3768/CH8/EX8.1/Ex8_1.sce
new file mode 100644
index 000000000..ecfd14a52
--- /dev/null
+++ b/3768/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,15 @@
+//Example number 8.1, Page number 170
+
+clc;clear;
+close;
+
+//Variable declaration
+r=0.05*10**-9;     //radius(m)
+B=1;     //magnetic induction(web/m**2)
+e=1.6*10**-19;    //charge(c)
+m=9.1*10**-31;    //mass(kg)
+//Calculation
+d_mew=e**2*r**2*B/(4*m);       //change in magnetic moment(Am**2)
+//Result
+printf("change in magnetic moment is %.2e Am^2",d_mew)
+//answer in the book is wrong
diff --git a/3768/CH8/EX8.10/Ex8_10.sce b/3768/CH8/EX8.10/Ex8_10.sce
new file mode 100644
index 000000000..29cde7622
--- /dev/null
+++ b/3768/CH8/EX8.10/Ex8_10.sce
@@ -0,0 +1,15 @@
+//Example number 8.10, Page number 173
+
+clc;clear;
+close;
+
+//Variable declaration
+h=200;     //hysteresis loss per cycle(J/m**3)
+M=7650;    //atomic weight(kg/m**3)
+n=100;     //magnetisation cycles per second
+//Calculation
+hpl=h*n;     //hysteresis power loss per second(watt/m**3)
+pl=hpl/M;    //power loss(watt/kg)
+//Result
+printf("hysteresis power loss per second is %.f W/m^3",hpl)
+printf("\n power loss is %.3f W/kg",pl)
diff --git a/3768/CH8/EX8.2/Ex8_2.sce b/3768/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..ee3465952
--- /dev/null
+++ b/3768/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,15 @@
+//Example number 8.2, Page number 170
+
+clc;clear;
+close;
+
+//Variable declaration
+chi=-0.5*10**-5;       //magnetic susceptibility
+H=9.9*10**4;        //magnetic field intensity(amp/m)
+mew0=4*%pi*10**-7;
+//Calculation
+I=chi*H;      //intensity of magnetisation(amp/m)
+B=mew0*H*(1+chi);       //magnetic flux density(wb/m**2)
+//Result
+printf("intensity of magnetisation is %.3f amp/m",I)
+printf("\n magnetic flux density is %.3f Wb/m^2",B)
diff --git a/3768/CH8/EX8.3/Ex8_3.sce b/3768/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..f5f44ebfd
--- /dev/null
+++ b/3768/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,12 @@
+//Example number 8.3, Page number 170
+
+clc;clear;
+close;
+
+//Variable declaration
+H=220;        //magnetic field intensity(amp/m)
+I=3300;      //magnetisation(amp/m)
+//Calculation
+mewr=1+(I/H);      //relative permeability
+//Result
+printf("relative permeability is %d",mewr)
diff --git a/3768/CH8/EX8.4/Ex8_4.sce b/3768/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..ac200e1c0
--- /dev/null
+++ b/3768/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,18 @@
+//Example number 8.4, Page number 171
+
+clc;clear;
+close;
+
+//Variable declaration
+r=6.1*10**-11;     //radius of atom(m)
+new=8.8*10**15;    //frequency(revolution/sec)
+mew0=4*%pi*10**-7;
+e=1.6*10**-19;    //charge(c)
+//Calculation
+i=e*new;      //current(amp)
+B=mew0*i/(2*r);     //magnetic induction(web/m**2)
+mew=i*%pi*r**2;     //dipole moment(amp m**2)
+//Result
+printf("magnetic induction is %.3f Wb/m^2",B)
+printf("\n dipole moment is %.3e Amp-m^2",mew)
+//answers in the book are wrong
diff --git a/3768/CH8/EX8.5/Ex8_5.sce b/3768/CH8/EX8.5/Ex8_5.sce
new file mode 100644
index 000000000..33337343a
--- /dev/null
+++ b/3768/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,15 @@
+//Example number 8.5, Page number 171
+
+clc;clear;
+close;
+
+//Variable declaration
+Is=1.96*10**6;        //saturation magnetisation(amp/m)
+a=3*10**-10;        //cube edge(m)
+mewB=9.27*10**-24;   //bohr magneton(amp/m**2)
+n=2;       //number of atoms
+//Calculation
+N=n/(a**3);      
+mew_bar=Is/(N*mewB);     //average number of bohr magnetons(bohr magneton/atom)
+//Result
+printf("average number of bohr magnetons is %.3f bohr magneton/atom",mew_bar)
diff --git a/3768/CH8/EX8.6/Ex8_6.sce b/3768/CH8/EX8.6/Ex8_6.sce
new file mode 100644
index 000000000..eca43b8ab
--- /dev/null
+++ b/3768/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,16 @@
+//Example number 8.6, Page number 172
+
+clc;clear;
+close;
+
+//Variable declaration
+I=3000;      //magnetisation(amp/m)
+mew0=4*%pi*10**-7;
+B=0.005;     //flux density(weber/m**2)
+//Calculation
+H=(B/mew0)-I;      //magnetizing force(amp/m)
+mewr=(I/H)+1;      //relative permeability
+//Result
+printf("magnetizing force is %.3f Amp/m",H)
+printf("\n relative permeability is %.3f",mewr)
+//answer in the book varies due to rounding off errors
diff --git a/3768/CH8/EX8.7/Ex8_7.sce b/3768/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..ea05d9cb9
--- /dev/null
+++ b/3768/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,15 @@
+//Example number 8.7, Page number 172
+
+clc;clear;
+close;
+
+//Variable declaration
+H=1800;      //magnetizing force(amp/m)
+chi=3*10**-5;    //magnetic flux(wb)
+A=0.2*10**-4;    //area(m**2)
+//Calculation
+B=chi/A;
+mew=B/H;     //permeability(henry/m)
+//Result
+printf("permeability is %.3e H/m^2",mew)
+//answer in the book is wrong
diff --git a/3768/CH8/EX8.8/Ex8_8.sce b/3768/CH8/EX8.8/Ex8_8.sce
new file mode 100644
index 000000000..6850d331e
--- /dev/null
+++ b/3768/CH8/EX8.8/Ex8_8.sce
@@ -0,0 +1,20 @@
+//Example number 8.8, Page number 172
+
+clc;clear;
+close;
+
+//Variable declaration
+r=0.04;    //radius(m)
+i=1000*10**-3;    //current(mA)
+B=10**-3;   //magnetic flux density(wb/m**2)
+theta=45;   //angle(degrees)
+//Calculation
+A=%pi*r**2;     //area(m**2)
+mew=i*A;        //magnetic dipole moment(amp m**2)
+theta=theta*%pi/180;
+tow=i*B*cos(theta);    //torque(Nm)
+//Result
+printf("magnetic dipole moment is %.4e Amp-m^2",mew)
+printf("\n torque is %.4e Nm",tow)
+
+//answer in the book varies due to rounding off errors
diff --git a/3768/CH8/EX8.9/Ex8_9.sce b/3768/CH8/EX8.9/Ex8_9.sce
new file mode 100644
index 000000000..50c7d40f8
--- /dev/null
+++ b/3768/CH8/EX8.9/Ex8_9.sce
@@ -0,0 +1,14 @@
+//Example number 8.9, Page number 173
+
+clc;clear;
+close;
+
+//Variable declaration
+A=100;     //area(m**2)
+B=0.01;    //flux density(wb/m**2)
+H=40;      //magnetic field(amp/m)
+M=7650;    //atomic weight(kg/m**3)
+//Calculation
+h=A*B*H;    //hysteresis loss per cycle(J/m**3)
+//Result
+printf("hysteresis loss per cycle is %.f J/m^3",h)