initial commit / add all books

16 files changed, 182 insertions, 0 deletions

diff --git a/2258/CH4/EX4.1/4_1.sce b/2258/CH4/EX4.1/4_1.sce
new file mode 100755
index 000000000..06d5da32e
--- /dev/null
+++ b/2258/CH4/EX4.1/4_1.sce
@@ -0,0 +1,10 @@
+clc();

+clear;

+// To calculate the relative permeability of iron

+H=6.5*10^-4;    //magnetic field in T

+M=1.4;     //field with iron

+chi=M/H;

+mew_r=1+chi;

+printf("relative permeability of iron is %f",mew_r);

+

+//answer given in the book is wrong

diff --git a/2258/CH4/EX4.10/4_10.sce b/2258/CH4/EX4.10/4_10.sce
new file mode 100755
index 000000000..7c4f63429
--- /dev/null
+++ b/2258/CH4/EX4.10/4_10.sce
@@ -0,0 +1,14 @@
+clc();

+clear;

+// To calculate the flux density at centre and dipole moment

+r=6.1*10^-11;     //radius of H atom in m

+new=8.8*10^15;    //frequency in rev/sec

+e=1.6*10^-19;

+mew0=4*%pi*10^-7;

+i=e*new;

+B=(mew0*i)/(2*r);

+mew=i*%pi*(r^2);

+printf("current is %f amp",i);

+printf("magnetic induction is %f weber/m^2",B);

+printf("dipole moment in amp m^2 is");

+disp(mew);

diff --git a/2258/CH4/EX4.11/4_11.sce b/2258/CH4/EX4.11/4_11.sce
new file mode 100755
index 000000000..ec90592a7
--- /dev/null
+++ b/2258/CH4/EX4.11/4_11.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the average number of Bohr magnetons

+Is=1.96*10^6;     //saturation magnetisation in amp/m

+a=3;     //cube edge of iron in armstrong

+a=a*10^-10;    //cube edge of iron in m

+mew_b=9.27*10^-24;     //bohr magneton in amp/m^2

+n=2;    //number of atoms per unit cell

+N=n/(a^3);

+mewbar=Is/N;

+mew_ab=mewbar/mew_b;

+printf("average number of Bohr magnetons is %f bohr magneton per atom",mew_ab);

diff --git a/2258/CH4/EX4.12/4_12.sce b/2258/CH4/EX4.12/4_12.sce
new file mode 100755
index 000000000..b5ee8bca1
--- /dev/null
+++ b/2258/CH4/EX4.12/4_12.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the magnetic force and relative permeability

+I=3000;    //magnetisation in amp/m

+B=0.005;    //flux density in weber/m^2

+mew0=4*%pi*10^-7;

+H=(B/mew0)-I;

+mew_r=(I/H)+1;

+printf("magnetic force is %f amp/m",H);

+printf("relative permeability is %f",mew_r);

+

+//answer given in the book is wrong

diff --git a/2258/CH4/EX4.13/4_13.sce b/2258/CH4/EX4.13/4_13.sce
new file mode 100755
index 000000000..6cc160f62
--- /dev/null
+++ b/2258/CH4/EX4.13/4_13.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the permeability

+H=1800;     //magnetising field in amp/m

+phi=3*10^-5;    //magnetic flux in weber

+A=0.2;    //cross sectional area in cm^2

+A=A*10^-4;     //cross sectional area in m^2

+B=phi/A;

+mew=B/H;

+printf("the permeability is %f Henry/m",mew);

+

+//answer given in the book is wrong

diff --git a/2258/CH4/EX4.14/4_14.sce b/2258/CH4/EX4.14/4_14.sce
new file mode 100755
index 000000000..cbe6f2324
--- /dev/null
+++ b/2258/CH4/EX4.14/4_14.sce
@@ -0,0 +1,13 @@
+clc();

+clear;

+// To calculate the magnetic dipole moment and torque

+r=0.04;    //radius of circular loop in m

+i=1000;    //current in mA

+i=i*10^-3;    //current in amp

+B=10^-3;    //magnetic flux density in Wb/m^2

+theta=45;    //angle in degrees

+A=%pi*(r^2);

+mew=i*A;

+tow=i*B*cosd(theta);

+printf("the magnetic dipole moment is %f amp m^2",mew);

+printf("the torque is %f Nm",tow);

diff --git a/2258/CH4/EX4.15/4_15.sce b/2258/CH4/EX4.15/4_15.sce
new file mode 100755
index 000000000..5214cefd4
--- /dev/null
+++ b/2258/CH4/EX4.15/4_15.sce
@@ -0,0 +1,9 @@
+clc();

+clear;

+// To calculate the hysterisis loss per cycle

+A=100;   //area of hysteris loop in m^2

+B=0.01;    //flux density in wb/m^2

+H=40;    //magnetic field in amp/m

+M=7650;    //atomic weight in kg/m^3

+hl=A*B*H;

+printf("the hysterisis loss per cycle is %f J/m^3",hl);

diff --git a/2258/CH4/EX4.16/4_16.sce b/2258/CH4/EX4.16/4_16.sce
new file mode 100755
index 000000000..201642853
--- /dev/null
+++ b/2258/CH4/EX4.16/4_16.sce
@@ -0,0 +1,10 @@
+clc();

+clear;

+// To calculate the hysterisis power loss and power loss

+hl=200;   //hysterisis loss per cycle in J/m^3

+M=7650;    //atomic weight in kg/m^3

+m=100;   //magnetisation cycles per second

+hpl=hl*m;

+pl=hpl/M;

+printf("hysterisis power loss per second is %f watt/m^3",hpl);

+printf("the power loss is %f watt/kg",pl); 

diff --git a/2258/CH4/EX4.2/4_2.sce b/2258/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..52272ed5e
--- /dev/null
+++ b/2258/CH4/EX4.2/4_2.sce
@@ -0,0 +1,9 @@
+clc();

+clear;

+// To calculate the relative permeability of ferromagnetic material

+H=220;     //field in amp/m

+M=3300;    //magnetisation in amp/m

+chi=M/H;

+mew_r=1+chi;

+printf("relative permeability is %f",mew_r);

+

diff --git a/2258/CH4/EX4.3/4_3.sce b/2258/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..e5295f20f
--- /dev/null
+++ b/2258/CH4/EX4.3/4_3.sce
@@ -0,0 +1,10 @@
+clc();

+clear;

+// To calculate the change in magnetic moment

+r=5.29*10^-11;     //radius of orbit in m

+B=2;    //applied field in Tesla

+e=1.602*10^-19;   //charge of electron in coulomb

+m=9.108*10^-31;    //mass of electron in kg

+mew=(e^2)*(r^2)*B/(4*m);

+printf("magnetic moment in Am^2 is");

+disp(mew);

diff --git a/2258/CH4/EX4.4/4_4.sce b/2258/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..7183d8010
--- /dev/null
+++ b/2258/CH4/EX4.4/4_4.sce
@@ -0,0 +1,11 @@
+clc();

+clear;

+// To calculate the intensity of magnetisation and flux density

+chi=0.5*10^-5;    //susceptibility 

+H=10^6;      //field strength in amp/m

+mew_0=4*%pi*10^-7;

+I=chi*H;

+B=mew_0*(I+H);

+printf("intensity of magnetisation is %f Amp/m",I);

+printf("flux density is %f Weber/m^2",B);

+

diff --git a/2258/CH4/EX4.5/4_5.sce b/2258/CH4/EX4.5/4_5.sce
new file mode 100755
index 000000000..0318a2e04
--- /dev/null
+++ b/2258/CH4/EX4.5/4_5.sce
@@ -0,0 +1,11 @@
+clc();

+clear;

+// To calculate the average number of bohr magnetons

+e=2.86;    //edge in armstrong

+e=e*10^-10;        //edge in m

+Is=1.76*10^6;    //magnetisation in amp/m

+mewB=9.27*10^-24;   //1 bohr magneton in amp m^2

+N=2/(e^3);    //density per m^3

+mewbar=Is/N;

+mew_bar=mewbar/mewB;

+printf("average dipole moment is %f mewB",mew_bar);

diff --git a/2258/CH4/EX4.6/4_6.sce b/2258/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..1d796d045
--- /dev/null
+++ b/2258/CH4/EX4.6/4_6.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the magnetisation and flux density

+H=10^6;    //magnetic field in amp/m

+chi=1.5*10^-3;     //susceptibility

+mew_0=4*%pi*10^-7;

+M=chi*H;

+B=mew_0*(M+H);

+printf("magnetisation is %f Amp/m",M);

+printf("flux density is %f Tesla",B);

+

+//answer for flux density given in the book is wrong

diff --git a/2258/CH4/EX4.7/4_7.sce b/2258/CH4/EX4.7/4_7.sce
new file mode 100755
index 000000000..5c6101cdd
--- /dev/null
+++ b/2258/CH4/EX4.7/4_7.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the magnetisation and flux density

+chi=3.7*10^-3;    //susceptibility 

+H=10^4;      //field strength in amp/m

+mew_0=4*%pi*10^-7;

+M=chi*H;

+B=mew_0*(M+H);

+printf("magnetisation is %f Amp/m",M);

+printf("flux density is %f Weber/m^2",B);

+

+//answer for flux density given in the book is wrong

diff --git a/2258/CH4/EX4.8/4_8.sce b/2258/CH4/EX4.8/4_8.sce
new file mode 100755
index 000000000..8f4bf2f8e
--- /dev/null
+++ b/2258/CH4/EX4.8/4_8.sce
@@ -0,0 +1,12 @@
+clc();

+clear;

+// To calculate the change in magnetic moment

+r=0.052*10^-9;     //radius of orbit in m

+B=1;    //magnetic field in Wb/m^2

+e=1.6*10^-19;   //charge of electron in coulomb

+m=9.1*10^-31;    //mass of electron in kg

+dmew=(e^2)*(r^2)*B/(4*m);

+printf("magnetic moment in Am^2 is");

+disp(dmew);

+

+//answer given in the book is wrong

diff --git a/2258/CH4/EX4.9/4_9.sce b/2258/CH4/EX4.9/4_9.sce
new file mode 100755
index 000000000..240e5c517
--- /dev/null
+++ b/2258/CH4/EX4.9/4_9.sce
@@ -0,0 +1,13 @@
+clc();

+clear;

+// To calculate the intensity of magnetisation and flux density

+chi=-0.5*10^-5;    //susceptibility 

+H=9.9*10^4;      //field strength in amp/m

+mew_0=4*%pi*10^-7;

+I=chi*H;

+B=mew_0*H*(1+chi);

+printf("intensity of magnetisation is %f Amp/m",I);

+printf("flux density in Weber/m^2 is");

+disp(B);

+

+//answer for flux density given in the book is wrong