diff options
Diffstat (limited to '3768/CH8')
-rw-r--r-- | 3768/CH8/EX8.1/Ex8_1.sce | 15 | ||||
-rw-r--r-- | 3768/CH8/EX8.10/Ex8_10.sce | 15 | ||||
-rw-r--r-- | 3768/CH8/EX8.2/Ex8_2.sce | 15 | ||||
-rw-r--r-- | 3768/CH8/EX8.3/Ex8_3.sce | 12 | ||||
-rw-r--r-- | 3768/CH8/EX8.4/Ex8_4.sce | 18 | ||||
-rw-r--r-- | 3768/CH8/EX8.5/Ex8_5.sce | 15 | ||||
-rw-r--r-- | 3768/CH8/EX8.6/Ex8_6.sce | 16 | ||||
-rw-r--r-- | 3768/CH8/EX8.7/Ex8_7.sce | 15 | ||||
-rw-r--r-- | 3768/CH8/EX8.8/Ex8_8.sce | 20 | ||||
-rw-r--r-- | 3768/CH8/EX8.9/Ex8_9.sce | 14 |
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) |