initial commit / add all books

21 files changed, 383 insertions, 0 deletions

diff --git a/2672/CH2/EX2.1/Ex2_1.sce b/2672/CH2/EX2.1/Ex2_1.sce
new file mode 100755
index 000000000..026474841
--- /dev/null
+++ b/2672/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,14 @@
+//Ex_2_1

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+LTsc=1.6;//H(Series cumulative)

+LTd=0.4;//H(differentially)

+L1=0.6;//H

+M=(LTsc-LTd)/4;//H(Mutual Inductance)

+L2=LTsc-2*M-L1;//H

+K=M/sqrt(L1*L2);//Coupling Coefficient

+disp(M,"Mutual Inductance(H)");

+disp(K,"Coupling Coefficient");

diff --git a/2672/CH2/EX2.10/Ex2_10.sce b/2672/CH2/EX2.10/Ex2_10.sce
new file mode 100755
index 000000000..f7d4ca13a
--- /dev/null
+++ b/2672/CH2/EX2.10/Ex2_10.sce
@@ -0,0 +1,15 @@
+//Ex_2_10

+clc;

+clear;

+format('v',6);

+close;

+//given data : 

+D=25/100;//m

+A=9/10000;//m^2

+N=100;//turns

+I=1.5;//A

+l=%pi*D;//m

+mur=2000;//relative permeability

+mu0=4*%pi*10^-7;//permeability

+fi=N*I/l*(mu0*mur*A);//Wb

+disp(fi*1000,"Flux produced(mWb)");

diff --git a/2672/CH2/EX2.11/Ex2_11.sce b/2672/CH2/EX2.11/Ex2_11.sce
new file mode 100755
index 000000000..e6361c0d1
--- /dev/null
+++ b/2672/CH2/EX2.11/Ex2_11.sce
@@ -0,0 +1,16 @@
+//Ex_2_11

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+lg=0.01/100;//m(airgap)

+li=39.99/100;//m(mean length)

+mur=2000;//relative permeability

+mu0=4*%pi*10^-7;//permeability

+N=1000;//turns

+A=9/10000;//m^2

+fi=1;//mWb

+S=li/(mu0*mur*A)+lg/(mu0*A);//AT/Wb

+I=fi*10^-3*S/N;//A

+disp(I,"Current required(A)");

diff --git a/2672/CH2/EX2.12/Ex2_12.sce b/2672/CH2/EX2.12/Ex2_12.sce
new file mode 100755
index 000000000..ebcc14c65
--- /dev/null
+++ b/2672/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,20 @@
+//Ex_2_12

+clc;

+clear;

+close;

+format('v',7);

+//given data : 

+Ac=10/10000;//m^2

+Ao=5/10000;//m^2(outer limbs)

+Lo=25;//cm(outer limbs)

+Lc=16;//cm

+N=1000;//turns

+fic=1.2;//mWb

+fio=1.2;//mWb

+B=1.2;//Wb/m^2

+mmf=750;//AT/m

+Bc=fic*10^-3/Ac;//Wb/m^2

+Bo=fio*10^-3/Ao;//Wb/m^2

+mmf_total=mmf*Lo/100+mmf*Lc/100;//AT/m

+I=mmf_total/N;//A

+disp(I,"Current required(A)");

diff --git a/2672/CH2/EX2.13/Ex2_13.sce b/2672/CH2/EX2.13/Ex2_13.sce
new file mode 100755
index 000000000..bf2d1ecd7
--- /dev/null
+++ b/2672/CH2/EX2.13/Ex2_13.sce
@@ -0,0 +1,20 @@
+//Ex_2_13

+clc;

+clear;

+close;

+format('v',4);

+//given data : 

+Ao=5/10000;//m^2(outer limbs)

+li=100/100;//m(iron path)

+A=10/10000;//m^2

+lg=1/1000;//m(airgap)

+I1=3;//A

+I2=2;//A

+N1=100;//turns

+N2=50;//turns

+mur=2000;//relative permeability

+mu0=4*%pi*10^-7;//permeability

+mmf=N1*I1-N2*I2;//AT

+S=1/(mu0*A)*[li/mur+lg];//AT/Wb

+fi=mmf/S*1000;//mWb

+disp(fi,"Flux available(mWb)");

diff --git a/2672/CH2/EX2.14/Ex2_14.sce b/2672/CH2/EX2.14/Ex2_14.sce
new file mode 100755
index 000000000..54b7cab52
--- /dev/null
+++ b/2672/CH2/EX2.14/Ex2_14.sce
@@ -0,0 +1,19 @@
+//Ex_2_14

+clc;

+clear;

+close;

+format('v',10);

+//given data : 

+N1=100;//turns

+N2=80;//turns

+I1=10;//A

+I2=1.5;//A

+li=40/100;//m

+lg=1/1000;//m(airgap)

+A=10/10000;//m^2

+mur=2000;//relative permeability

+mu0=4*%pi*10^-7;//permeability

+mmf=N1*I1-N2*I2;//AT

+S=1/(mu0*A)*[li/mur+lg];//AT/Wb

+fi=mmf/S;//Wb

+disp(fi,"Flux produced(Wb)");

diff --git a/2672/CH2/EX2.15/Ex2_15.sce b/2672/CH2/EX2.15/Ex2_15.sce
new file mode 100755
index 000000000..4c4c832f5
--- /dev/null
+++ b/2672/CH2/EX2.15/Ex2_15.sce
@@ -0,0 +1,33 @@
+//Ex_2_15

+clc;

+clear;

+close;

+format('v',5);

+//given data : 

+N=2000;//turns

+lg=2/1000;//m(airgap)

+lc=20/100;//m(mean diameter)

+Ac=10/10000;//m^2(cross section central limb)

+Ao=5/10000;//m^2(cross section outer limb)

+B=[1 1.1 1.2 1.3 1.4];//Wb/m^2

+H=[550 650.750 820 870];//AT/m

+fi=1.1/1000;//Wb

+Bc=fi/Ac;//Wb/m^2(For central limb)

+Bo=fi/Ao;//Wb/m^2(For outer limb)

+for i=1:5

+    if Bc==B(i) then

+        H=H(i);//AT/m

+B=B(i);//Wb/m^2

+        break;

+    end;

+end;

+lo=%pi*lc/2;//m(outer limb, including airgap)

+//H=NI/l

+NIc=H*lc;//AT//NI for central limb

+NIo=H*(lo-lg);//AT//NI for outer limb

+mu0=4*%pi*10^-7;//permeability of air

+Hg=B/mu0;//AT/m

+NIag=Hg*lg;////AT//NI for airgap

+NI=NIc+NIo+NIag;//AT//Total AT required

+I=NI/N;//A

+disp(I,"Current I(A)");

diff --git a/2672/CH2/EX2.16/Ex2_16.sce b/2672/CH2/EX2.16/Ex2_16.sce
new file mode 100755
index 000000000..42a5392a0
--- /dev/null
+++ b/2672/CH2/EX2.16/Ex2_16.sce
@@ -0,0 +1,18 @@
+//Ex_2_16

+clc;

+clear;

+close;

+format('v',5);

+//given data :

+LA=75/100;///m

+LB=25/100;///m

+lg=2/100;//m(airgap)

+mu_r1=1000;///relative permeability

+mu_r2=1500;///relative permeability

+mu0=4*%pi*10^-7;//permeability of air

+A=10*10^-4;//m^2//Area of core

+N=1000;//turns

+I=5;//A

+S=LA/(mu0*mu_r1*A)+LB/(mu0*mu_r2*A)+lg/(mu0*A);//Wb/m^2

+fi=N*I/S*1000;//mWb

+disp(fi,"Flux produced in the air-gap(mWb)");

diff --git a/2672/CH2/EX2.17/Ex2_17.sce b/2672/CH2/EX2.17/Ex2_17.sce
new file mode 100755
index 000000000..d61240907
--- /dev/null
+++ b/2672/CH2/EX2.17/Ex2_17.sce
@@ -0,0 +1,25 @@
+//Ex_2_17

+clc;

+clear;

+close;

+format('v',5);

+//given data :

+CD=10/100;BE=10/100;AF=10/100;//m

+BC=8/100;ED=8/100;AB=8/100;EF=8/100;//m

+BCDE=BC+CD+ED;//m

+BAFE=AB+BE+EF;//m

+A=2*2*10^-4;//m^2

+mu_r=1200;///relative permeability

+N=800;//turns

+fi2=2*10^-3;//Wb

+mu0=4*%pi*10^-7;//permeability of air

+S2=BAFE/(mu0*mu_r*A);//Wb/m^2

+S1=BE/(mu0*mu_r*A);//Wb/m^2

+fi1=fi2*S2/S1;//Wb

+fi=fi1+fi2;//Wb

+AT2=fi*S2;//AT//for portion BAFE

+AT1=fi1*S1;//AT//for portion BCDE

+AT=AT1+AT2;//AT//Toal AT required

+NI=AT;//AT

+I=NI/N;//A

+disp(I,"Magnetizing current(A)");

diff --git a/2672/CH2/EX2.18/Ex2_18.sce b/2672/CH2/EX2.18/Ex2_18.sce
new file mode 100755
index 000000000..fdcd13ae6
--- /dev/null
+++ b/2672/CH2/EX2.18/Ex2_18.sce
@@ -0,0 +1,20 @@
+//Ex_2_18

+clc;

+clear;

+close;

+format('v',7);

+//given data :

+lg=1/1000;//m//air-gap

+li=20/100;//m//flux path

+mu0=4*%pi*10^-7;//permeability of air

+mu_r=500;///relative permeability

+A=0.5*10^-4;//m^2//Area

+I=50/1000;//A

+N=8000;//turns

+S=li/mu0/mu_r/A+2*lg/mu0/A;//AT/Wb

+fi=N*I/S;//Wb

+B=fi/A;//Wb/m^2

+disp(B,"Flux Density(Wb/m^2)");

+format('v',5);

+F=B*A/2/mu0;//N

+disp(F,"Magnetic Pull(N)");

diff --git a/2672/CH2/EX2.19/Ex2_19.sce b/2672/CH2/EX2.19/Ex2_19.sce
new file mode 100755
index 000000000..19b27deaa
--- /dev/null
+++ b/2672/CH2/EX2.19/Ex2_19.sce
@@ -0,0 +1,11 @@
+//Ex_2_19

+clc;

+clear;

+close;

+format('v',7);

+//given data :

+I=100;//A

+r=1;//m

+mu0=4*%pi*10^-7;//permeability of air

+B=mu0*I/2/%pi/r;//Wb/m^2

+disp(B,"Magnetic field produced(Wb/m^2)");

diff --git a/2672/CH2/EX2.2/Ex2_2.sce b/2672/CH2/EX2.2/Ex2_2.sce
new file mode 100755
index 000000000..63a86c6e9
--- /dev/null
+++ b/2672/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,14 @@
+//Ex_2_2

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+l=0.5;//m

+B=0.5;//Wb/m^2

+I=50;//A

+v=20;//m/s

+F=B*l*I;//N

+disp(F,"Force expereinced by the conductor(N)");

+e=B*l*v;//V

+disp(e,"emf induced(V)");

diff --git a/2672/CH2/EX2.20/Ex2_20.sce b/2672/CH2/EX2.20/Ex2_20.sce
new file mode 100755
index 000000000..9f9de5c9e
--- /dev/null
+++ b/2672/CH2/EX2.20/Ex2_20.sce
@@ -0,0 +1,19 @@
+//Ex_2_20

+clc;

+clear;

+close;

+format('e',9);

+//given data :

+I1=100;//A

+I2=10;//A

+l=20/100;//m

+r1=1/100;//m

+r2=11/100;//m

+mu0=4*%pi*10^-7;//permeability of air

+//Force of attraction between Conductor & AB

+F1=mu0*I1*I2*l/2/%pi/r1;//N

+//Force of repulsion between Conductor & CD

+F2=mu0*I1*I2*l/2/%pi/r2;//N

+//Net Force

+F=F1-F2;//N

+disp(F,"Resultant force developed(N)");

diff --git a/2672/CH2/EX2.21/Ex2_21.sce b/2672/CH2/EX2.21/Ex2_21.sce
new file mode 100755
index 000000000..fb5adc7fb
--- /dev/null
+++ b/2672/CH2/EX2.21/Ex2_21.sce
@@ -0,0 +1,19 @@
+//Ex_2_21

+clc;

+clear;

+close;

+format('v',4);

+//given data :

+N=500;//turns

+A=0.01;//m^2(Area of cross section of poles)

+l=0.5;//m(mean length)

+mu0=4*%pi*10^-7;//permeability of air

+mu_r=1000;///relative permeability

+g=9.8;//gravitational acceleration

+W=200;//kg

+F=W/2;//kg

+F=F*g;//N

+B=sqrt(F*2*mu0/A);//Wb/m^2

+H=B/mu0/mu_r;//Wb/m^2

+I=H*l/N;//A

+disp(I,"Exciting current(A)");

diff --git a/2672/CH2/EX2.3/Ex2_3.sce b/2672/CH2/EX2.3/Ex2_3.sce
new file mode 100755
index 000000000..8c0d401ee
--- /dev/null
+++ b/2672/CH2/EX2.3/Ex2_3.sce
@@ -0,0 +1,17 @@
+//Ex_2_3

+clc;

+clear;

+close;

+format('v',6);  

+//given data : 

+N=100;//turns

+l=0.5;//m

+A=10/10000;//m^2

+mur=2000;//relative permeability of iron

+mu0=4*%pi*10^-7;//permeability

+I=5;//A

+t=10;//ms

+L=mur*mu0*N^2*A/l*1000;//mH

+disp(L,"Inductance of the coil(mH)");

+E=L*2*I/t;//V

+disp(E,"Induced emf in the coil(V)");

diff --git a/2672/CH2/EX2.4/Ex2_4.sce b/2672/CH2/EX2.4/Ex2_4.sce
new file mode 100755
index 000000000..4e5375168
--- /dev/null
+++ b/2672/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,16 @@
+//Ex_2_4

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+N1=500;//turns

+N2=2000;//turns

+K=50/100;//coefficient for 50% flux linked

+diBYdt=10;//A/s

+L1=200;//mH

+fi1BYI1=L1/N1;

+M=N2*fi1BYI1;//mH

+e2=M*10^-3*diBYdt;//V

+disp(M/1000,"Mutual Inductance of two coil(H)");

+disp(e2,"Induced emf in the coil having 1000 turns(V)");

diff --git a/2672/CH2/EX2.5/Ex2_5.sce b/2672/CH2/EX2.5/Ex2_5.sce
new file mode 100755
index 000000000..c9db33d19
--- /dev/null
+++ b/2672/CH2/EX2.5/Ex2_5.sce
@@ -0,0 +1,20 @@
+//Ex_2_5

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+I1=5;//A

+N1=500;//turns

+fi1=1;//mWb

+dt=10;//ms

+e2=50;//V

+K=60/100;//coefficient of coupling

+di1=2*(I1);//A(as current changes from +5A to -5A)

+M=e2*dt*10^-3/di1;//H

+L1=N1*fi1/1000/I1;//H

+L2=L1*M^2/K^2;//H

+disp(M,"Mutual Inductance of two coil(H)");

+disp(L1,"Self inductance of coil 1(H)");

+disp(L2,"Self inductance of coil 2(H)");

+//Answer is wrong in the book.

diff --git a/2672/CH2/EX2.6/Ex2_6.sce b/2672/CH2/EX2.6/Ex2_6.sce
new file mode 100755
index 000000000..63542883c
--- /dev/null
+++ b/2672/CH2/EX2.6/Ex2_6.sce
@@ -0,0 +1,21 @@
+//Ex_2_6

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+N1=1000;//turns

+N2=400;//turns

+K1=75/100;//coefficient of coupling

+I1=6;//A

+I2=6;//A

+fi1=0.8;//mWb

+fi2=0.5;//mWb

+L1=N1*fi1*10^-3/I1;//H

+L2=N2*fi2*10^-3/I2;//H

+M=N2*K1*fi1*10^-3/I1;//H

+K=M/sqrt(L1*L2);

+disp(L1,"Self inductance of coil 1(H)");

+disp(L2,"Self inductance of coil 2(H)");

+disp(M,"Mutual Inductance of two coil(H)");

+disp(K,"Coefficient of coupling");

diff --git a/2672/CH2/EX2.7/Ex2_7.sce b/2672/CH2/EX2.7/Ex2_7.sce
new file mode 100755
index 000000000..fe64d82ea
--- /dev/null
+++ b/2672/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,15 @@
+//Ex_2_7

+clc;

+clear;

+close;

+format('v',7);

+//given data : 

+r=10;//cm

+I=100;//A

+d=5;//cm

+mu0=4*%pi*10^-7;//permeability

+Bc=mu0*I/2/(r/100);//Wb/m^2 or T

+B=mu0*I*(r/100)^2/(2*((r/100)^2+(d/100)^2)^(3/2));//Wb/m^2

+disp(Bc,"Flux density at the centre(Wb/m^2)");

+disp(B,"Flux density in the plane(Wb/m^2)");

+//Answer is wrong in the book.

diff --git a/2672/CH2/EX2.8/Ex2_8.sce b/2672/CH2/EX2.8/Ex2_8.sce
new file mode 100755
index 000000000..55b033437
--- /dev/null
+++ b/2672/CH2/EX2.8/Ex2_8.sce
@@ -0,0 +1,19 @@
+//Ex_2_8

+clc;

+clear;

+close;

+format('v',6);

+//given data : 

+D=0.5;//m(mean diameter)

+A=0.01;//m^2

+fi=10/1000;//Wb

+N=100;//turns

+mmf1=10;//A-turn//(for Ni alloy)

+mmf2=50;//A-turn//(for Si-steel alloy)

+l=%pi*D;//m(total length)

+lni=l/2;//m(length of Ni alloy)

+lsi=l/2;//m(length of Si-steel)

+mmf=mmf1*lni+mmf2*lsi;//A-turn///total mmf

+disp(mmf,"mmf required(A-turn)");

+I=mmf/N;//A

+disp(I,"Current(A)");

diff --git a/2672/CH2/EX2.9/Ex2_9.sce b/2672/CH2/EX2.9/Ex2_9.sce
new file mode 100755
index 000000000..561067086
--- /dev/null
+++ b/2672/CH2/EX2.9/Ex2_9.sce
@@ -0,0 +1,12 @@
+//Ex_2_9

+clc;

+clear;

+close;

+format('e',9);

+//given data : 

+l=20/100;//m

+A=1.5/10000;//m^2

+mur=2000;//relative permeability

+mu0=4*%pi*10^-7;//permeability

+S=l/(mu0*mur*A);//AT/Wb

+disp(S,"Reluctance of silicon steel(AT/Wb)");