summaryrefslogtreecommitdiff
path: root/3768/CH8
diff options
context:
space:
mode:
Diffstat (limited to '3768/CH8')
-rw-r--r--3768/CH8/EX8.1/Ex8_1.sce15
-rw-r--r--3768/CH8/EX8.10/Ex8_10.sce15
-rw-r--r--3768/CH8/EX8.2/Ex8_2.sce15
-rw-r--r--3768/CH8/EX8.3/Ex8_3.sce12
-rw-r--r--3768/CH8/EX8.4/Ex8_4.sce18
-rw-r--r--3768/CH8/EX8.5/Ex8_5.sce15
-rw-r--r--3768/CH8/EX8.6/Ex8_6.sce16
-rw-r--r--3768/CH8/EX8.7/Ex8_7.sce15
-rw-r--r--3768/CH8/EX8.8/Ex8_8.sce20
-rw-r--r--3768/CH8/EX8.9/Ex8_9.sce14
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)