9 files changed, 157 insertions, 0 deletions
diff --git a/3755/CH11/EX11.1/Ex11_1.sce b/3755/CH11/EX11.1/Ex11_1.sce
new file mode 100644
index 000000000..412916241
--- /dev/null
+++ b/3755/CH11/EX11.1/Ex11_1.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew0=4*%pi*10^-7;
+B=0.2;     //magnetic induction(web/m^2)
+H=500;        //magnetic field intensity(amp/m)
+
+//Calculation
+mewr=B/(mew0*H);      //relative permeability
+chi=mewr-1;       //susceptibility
+
+//Result
+printf("\n relative permeability is %0.1f ",mewr)
+printf("\n susceptibility is %0.1f ",chi)
+printf("\n answer in the book varies due to rounding off errors")
diff --git a/3755/CH11/EX11.2/Ex11_2.sce b/3755/CH11/EX11.2/Ex11_2.sce
new file mode 100644
index 000000000..868e959fb
--- /dev/null
+++ b/3755/CH11/EX11.2/Ex11_2.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew0=4*%pi*10^-7;
+chi=948*10^-11;       //susceptibility
+
+//Calculation
+mewr=1+chi;      //relative permeability
+mew=mewr*mew0;       //absolute permeability
+
+//Result
+printf("\n relative permeability is %0.3f ",mewr)
+printf("\n absolute permeability is %0.3f *10^-6",mew*10^6)
diff --git a/3755/CH11/EX11.3/Ex11_3.sce b/3755/CH11/EX11.3/Ex11_3.sce
new file mode 100644
index 000000000..9dbe87702
--- /dev/null
+++ b/3755/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+H=6.5*10^-4;      //magnetizing force(amp/m)
+M=1.4;       //magnetic field(T)
+
+//Calculation
+chi=M/H;    
+mewr=1+chi;       //relative permeability
+
+//Result
+printf("\n relative permeability is %0.3f ",mewr)
+printf("\n answer in the book is wrong")
diff --git a/3755/CH11/EX11.4/Ex11_4.sce b/3755/CH11/EX11.4/Ex11_4.sce
new file mode 100644
index 000000000..c6871e2c3
--- /dev/null
+++ b/3755/CH11/EX11.4/Ex11_4.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+H=220;      //magnetizing force(amp/m)
+M=3300;       //magnetic field(T)
+
+//Calculation
+chi=(M/H)+1;      //relative permeability
+
+//Result
+printf("\n relative permeability is %0.3f ",chi)
diff --git a/3755/CH11/EX11.5/Ex11_5.sce b/3755/CH11/EX11.5/Ex11_5.sce
new file mode 100644
index 000000000..7f0f4eefb
--- /dev/null
+++ b/3755/CH11/EX11.5/Ex11_5.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+H=1600;      //magnetizing force(amp/m)
+phi=4*10^-4;     //flux(weber)
+A=4*10^-4;     //area(m^2)
+
+//Calculation
+B=phi/A;
+mew=B/H;      //permeability of rod(weber/amp.m)
+
+//Result
+printf("\n permeability of rod is %0.3f *10^-3 weber/amp.m",mew*10^3)
diff --git a/3755/CH11/EX11.6/Ex11_6.sce b/3755/CH11/EX11.6/Ex11_6.sce
new file mode 100644
index 000000000..db642c40f
--- /dev/null
+++ b/3755/CH11/EX11.6/Ex11_6.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration
+H=10^6;      //magnetizing force(amp/m)
+mew0=4*%pi*10^-7;
+chi=1.5*10^-3;       //susceptibility
+
+//Calculation
+M=chi*H;      //magnetisation of material(A/m)
+B=mew0*(M+H);    //flux density(T)
+
+//Result
+printf("\n magnetisation of material is %0.3f *10^3 A/m",M/10^3)
+printf("\n flux density is %0.3f T",B)
+printf("\n answer in the book varies due to rounding off errors")
diff --git a/3755/CH11/EX11.7/Ex11_7.sce b/3755/CH11/EX11.7/Ex11_7.sce
new file mode 100644
index 000000000..e53522249
--- /dev/null
+++ b/3755/CH11/EX11.7/Ex11_7.sce
@@ -0,0 +1,28 @@
+clear
+//
+//
+//
+
+//Variable declaration
+mew0=4*%pi*10^-7;
+phi=2*10^-6;     //flux(weber)
+A=10^-4;     //area(m^2)
+N=300;      //number of turns
+l=30*10^-2;    //length(m)
+i=0.032;     //current(ampere)
+
+//Calculation
+B=phi/A;       //flux density(weber/metre^2)
+n=N/l;
+H=n*i;        //magnetic intensity(amp-turn/metre)
+mew=B/H;      //permeability of ring(weber/amp-metre)
+mewr=mew/mew0;      //relative permeability
+chi=mewr-1;      //magnetic susceptibility
+
+//Result
+printf("\n flux density is %0.3f *10^-2 weber/metre^2",B*10^2)
+printf("\n magnetic intensity is %0.0f amp-turn/metre",H)
+printf("\n permeability of ring is %0.3f *10^-7 weber/amp-metre",mew*10^7)
+printf("\n relative permeability is %0.1f ",mewr)
+printf("\n magnetic susceptibility is %0.3f ",chi)
+printf("\n answer in the book is wrong")
diff --git a/3755/CH11/EX11.8/Ex11_8.sce b/3755/CH11/EX11.8/Ex11_8.sce
new file mode 100644
index 000000000..bf4a535b8
--- /dev/null
+++ b/3755/CH11/EX11.8/Ex11_8.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration
+new=6.5*10^15;        //frequency(Hz)
+r=0.54*10^-10;        //radius(m)
+e=1.6*10^-19;     //charge(coulomb)
+
+//Calculation
+mew_m=e*new*%pi*r^2;      //magnetic moment(A-m^2)
+
+//Result
+printf("\n magnetic moment is %0.2f *10^-24 A-m^2",mew_m*10^24)
+printf("\n answer in the book varies due to rounding off errors")
diff --git a/3755/CH11/EX11.9/Ex11_9.sce b/3755/CH11/EX11.9/Ex11_9.sce
new file mode 100644
index 000000000..cb2b24348
--- /dev/null
+++ b/3755/CH11/EX11.9/Ex11_9.sce
@@ -0,0 +1,15 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10^-19;     //charge(coulomb)
+m=9.1*10^-31;       //mass(kg)
+h=6.64*10^-34;    //plank's constant(Js)
+
+//Calculation
+mewb=e*h/(4*%pi*m);      //bohr's magneton(J/T)
+
+//Result
+printf("\n bohrs magneton is %0.2f *10^-24 J/T",mewb*10^24)