19 files changed, 409 insertions, 0 deletions
diff --git a/1319/CH13/EX13.1/ii_1.sce b/1319/CH13/EX13.1/ii_1.sce
new file mode 100644
index 000000000..08cdeeb8b
--- /dev/null
+++ b/1319/CH13/EX13.1/ii_1.sce
@@ -0,0 +1,22 @@
+// Computing Induced EMF
+clc;
+clear;
+
+l=0.5;
+v=50;
+b=1;
+
+// Angles
+x=90;
+y=30;
+z=0;
+
+// EMFs
+
+e1=b*l*v*(sind(x));
+e2=b*l*v*(sind(y));
+e3=b*l*v*(sind(z));
+
+disp('volts',e1,'i)  The Induced EMF perpendicular to the field')
+disp('volts',e2,'ii) The Induced EMF at an angle 30 degrees to the field')
+disp('volts',e3,'iii)The Induced EMF parallel to the field')
diff --git a/1319/CH13/EX13.10/ii_10.sce b/1319/CH13/EX13.10/ii_10.sce
new file mode 100644
index 000000000..bb2394805
--- /dev/null
+++ b/1319/CH13/EX13.10/ii_10.sce
@@ -0,0 +1,15 @@
+// Change in Inductance
+clc;
+clear;
+
+L=120*(10^-3);
+N=1000;
+mr=75;
+Nr=200;
+Nc=N-Nr;
+
+// Inductance directly proportional to the product of the square of turns and the relative permeability
+
+Lc= L*((Nc/N)^2)*75;
+
+disp('H',Lc,'The New value of inductance =')
diff --git a/1319/CH13/EX13.11/ii_11.sce b/1319/CH13/EX13.11/ii_11.sce
new file mode 100644
index 000000000..dbe2205d7
--- /dev/null
+++ b/1319/CH13/EX13.11/ii_11.sce
@@ -0,0 +1,16 @@
+// Compute Current
+clc;
+clear;
+
+i=3;
+L=10;
+t=20*(10^-3);
+V=20*(10^3);
+
+E=L*i*i/2;
+
+P=E/t;
+
+I=P/V;
+
+disp('amperes',I,'The Current in the spark plug =')
diff --git a/1319/CH13/EX13.12/ii_12.sce b/1319/CH13/EX13.12/ii_12.sce
new file mode 100644
index 000000000..2104364cb
--- /dev/null
+++ b/1319/CH13/EX13.12/ii_12.sce
@@ -0,0 +1,26 @@
+// To determine Mutual and Self Inductances
+
+clc;
+clear;
+
+K=0.8;
+I1=3;
+flux1=0.4*(10^-3);
+E2=85;
+t=3*(10^-3);
+N1=300;
+
+L1=N1*flux1/I1;
+
+M= E2*t/I1;
+
+L2=(((M/K)^2)/L1);
+
+flux2=K*flux1;
+
+N2=(M*I1/flux2);
+
+disp('H',L1,'The inductance of coil 1');
+disp('H',L2,'The inductance of coil 2');
+disp('H',M,'The inductance between the coils');
+disp('Turns',N2,'The number of turns of coil 2');
diff --git a/1319/CH13/EX13.13/ii_13.sce b/1319/CH13/EX13.13/ii_13.sce
new file mode 100644
index 000000000..ddef35f39
--- /dev/null
+++ b/1319/CH13/EX13.13/ii_13.sce
@@ -0,0 +1,26 @@
+//Computation of Mutual and self inducatances
+
+clc;
+clear;
+
+n1=600;
+i1=2.5;
+flux1=0.4*(10^-3);
+flux2=0.8*(10^-3);
+n2=2000;
+tflux=flux1+flux2;
+
+L1=n1*tflux/i1;
+
+K=flux2/tflux;
+
+M=n2*flux2/i1;
+
+L2=((M/K)^2)/L1;
+
+disp('H',L1,'The self inductance of coil 1= ')
+disp('H',L2,'The self inductance of coil 2= ')
+
+disp('(Note the accuracy of the answer.)')
+disp('H',M,'The Mutual inductance of both coils= ')
+disp(K,'The coupling co-efficient')
diff --git a/1319/CH13/EX13.14/ii_14.sce b/1319/CH13/EX13.14/ii_14.sce
new file mode 100644
index 000000000..a3b6a030c
--- /dev/null
+++ b/1319/CH13/EX13.14/ii_14.sce
@@ -0,0 +1,27 @@
+// EMF induced in coils parallel to each other
+
+clc;
+clear;
+
+Nx=1000;
+Ix=5;
+flux1=0.05*(10^-3);
+di=12;
+dt=10^-2;
+K=60/100;
+
+Lx= Nx*flux1/Ix;
+
+// Since two coils are identical, Both will have equal self inductances.
+
+Ly=Lx;
+
+M=K*sqrt(Lx*Ly);
+
+Ey=M*di/dt;
+
+disp('volts',Ey,'The EMF induced by the coil Y =')
+disp('H',Lx,'The Self Inductance of Coil X= ')
+disp('H',Ly,'The Self Inductance of Coil X= ')
+disp('H',M,'The Mutual Inductance of Coils')
+
diff --git a/1319/CH13/EX13.15/ii_15.sce b/1319/CH13/EX13.15/ii_15.sce
new file mode 100644
index 000000000..b9d85088a
--- /dev/null
+++ b/1319/CH13/EX13.15/ii_15.sce
@@ -0,0 +1,35 @@
+//To Compute the maximum flux set by an coil.
+
+clc;
+clear;
+
+L1=0.5;
+L2=1;
+K=0.8;
+
+N2=1500;
+
+M=K*sqrt(L1*L2);
+i1=20;
+
+theta=poly(0,'t');
+
+fact=derivat(theta);// Derivative of the time factor(Linear function of 't').
+
+omega=314;// The Angular Frequency Factor
+
+v2=M*fact*omega*i1;// Maximum Coil 2 Voltage
+
+disp('cos 314t V',v2,'The Voltage Across Coil 2= ')
+
+dflx=v2/N2;
+
+Mxflux=(dflx/omega)*(1/fact);
+
+
+disp('sin 314t Wb',Mxflux,'The flux setup by Coil 1= ')
+
+disp('Wb',Mxflux,'The Maximum Flux Setup by Coil 1= ')
+
+
+
diff --git a/1319/CH13/EX13.16/ii_16.sce b/1319/CH13/EX13.16/ii_16.sce
new file mode 100644
index 000000000..748f0f931
--- /dev/null
+++ b/1319/CH13/EX13.16/ii_16.sce
@@ -0,0 +1,23 @@
+//Compute Loss of energy
+
+clc;
+clear;
+
+w=10;
+f=50;// 50 cycles in a second.
+
+ls_vol=250;
+
+density=7.5;// Density in gm/cm^3
+
+d= density*(10^6)/(10^3);
+
+vol=w/d;
+
+ls_cycle= ls_vol*vol;
+
+ls_sec= ls_cycle*50;
+
+ls_hr= ls_sec*3600;
+
+disp('joules',ls_hr,'The Loss of energy per hour of an iron loop')
diff --git a/1319/CH13/EX13.17/ii_17.sce b/1319/CH13/EX13.17/ii_17.sce
new file mode 100644
index 000000000..35da213ba
--- /dev/null
+++ b/1319/CH13/EX13.17/ii_17.sce
@@ -0,0 +1,24 @@
+// Determining Hysteresis loss
+clc;
+clear;
+
+fluxmax=1.5;
+
+x=15/(10^-2);
+y=1;
+
+f=50;
+
+a=x*y;// loss for one centimetre square.
+
+area=0.6;// in centimetre square.
+
+hy_ls= area*a;
+
+vol=1500*(10^-6);
+
+hyls_cycle= vol*hy_ls;
+
+hyls_sec= hyls_cycle*f;
+
+disp('watts',hyls_sec,'The Hysteresis loss =')
diff --git a/1319/CH13/EX13.18/ii_18.sce b/1319/CH13/EX13.18/ii_18.sce
new file mode 100644
index 000000000..04c2d8efb
--- /dev/null
+++ b/1319/CH13/EX13.18/ii_18.sce
@@ -0,0 +1,25 @@
+//Compute the Loss per Kg at a particular frequency.
+clc;
+clear;
+
+hy_ls=4.9;
+f1=50;
+maxflux=1;
+
+density=7.5;
+
+d=density*(10^6)/(10^3);
+
+hy_ls_cycle= hy_ls*d/f1;
+
+n=hy_ls_cycle/((maxflux)^1.7);
+
+disp(n,'i) The value of the Co-Efficient= ' )
+
+mflux2=1.8;
+
+f2=25;
+
+hy_ls2=hy_ls*(f2/f1)*((1.8)^1.7);
+
+disp('watt/kg',hy_ls2,'ii) The Loss per kg at 25Hz and 1.8 Wb per square metre= ')
diff --git a/1319/CH13/EX13.19/ii_19.sce b/1319/CH13/EX13.19/ii_19.sce
new file mode 100644
index 000000000..bff987658
--- /dev/null
+++ b/1319/CH13/EX13.19/ii_19.sce
@@ -0,0 +1,18 @@
+// Theory Based Proof relation between self mutual inductances
+
+clc;
+clear;
+
+disp('L1=((N1)^2)*Mo*A/l')
+disp('L2=((N2)^2)*Mo*A/l')
+disp('R=l/(Mo*A)')
+
+disp('L1=((N1)^2)/R)')
+disp('L2=((N2)^2)/R)')
+
+disp('M=K*((L1*L2)^(1/2))')
+
+disp('(Substituting L1 and L2 in the above equation)')
+
+disp('M=K*N1*N2/R')
+disp('Hence Proved')
diff --git a/1319/CH13/EX13.2/ii_2.sce b/1319/CH13/EX13.2/ii_2.sce
new file mode 100644
index 000000000..15f6d8916
--- /dev/null
+++ b/1319/CH13/EX13.2/ii_2.sce
@@ -0,0 +1,30 @@
+// Computing InstantaneousInduced EMF
+clc;
+clear;
+
+l=0.2;
+n=1000;
+b=0.5;
+r=l/2;
+t=200;
+
+//Number of conductors
+c=2*t;
+
+//Velocity Equation.
+v=2*(%pi)*r*1000/60;
+
+// Angles
+x=90;
+y=30;
+z=0;
+
+// EMFs
+
+e1=c*b*l*v*(sind(90-x));
+e2=c*b*l*v*(sind(90-y));
+e3=c*b*l*v*(sind(90-z));
+
+disp('volts',e1,'i)  The Induced EMF perpendicular to the field')
+disp('volts',e2,'ii) The Induced EMF at an angle 30 degrees to the field')
+disp('volts',e3,'iii)The Induced EMF parallel to the field')
diff --git a/1319/CH13/EX13.3/ii_3.sce b/1319/CH13/EX13.3/ii_3.sce
new file mode 100644
index 000000000..2f9c1e8f1
--- /dev/null
+++ b/1319/CH13/EX13.3/ii_3.sce
@@ -0,0 +1,11 @@
+// EMF Induced between wing tips.
+clc;
+clear;
+
+l=6.1;
+vel=800;
+v=vel*1000/3600;
+b=(50)*(10^-6);
+e=b*l*v;
+
+disp('volts',e,'The EMF induced between the wing tips=')
diff --git a/1319/CH13/EX13.4/ii_4.sce b/1319/CH13/EX13.4/ii_4.sce
new file mode 100644
index 000000000..57072681a
--- /dev/null
+++ b/1319/CH13/EX13.4/ii_4.sce
@@ -0,0 +1,13 @@
+// EMF generated due to a bar magnet.
+clc;
+clear;
+
+b=(300)*(10^-6);
+N=500;
+t=(1/10);
+
+// Faraday's LAW.
+
+e=b*N/t;
+
+disp('volts',e,'The EMF generated between the coil ends =')
diff --git a/1319/CH13/EX13.5/ii_5.sce b/1319/CH13/EX13.5/ii_5.sce
new file mode 100644
index 000000000..cf98d1492
--- /dev/null
+++ b/1319/CH13/EX13.5/ii_5.sce
@@ -0,0 +1,29 @@
+//EMF induced between two coils in a circular iron core
+clc;
+clear;
+
+area= 5*(10^-4);
+l=0.5;
+
+na=200;
+nb=500;
+
+dI=15;
+dt=(1/10);
+
+mr=250;
+mo= 4*%pi*(10^-7);
+
+mfa=na*dI;
+
+H=mfa/l;
+
+B=mo*mr*H;
+
+// Flux Linked
+
+flux=B*area;
+
+eb=nb*flux/dt;
+
+disp('volts',eb,'The Induced EMF by coil B =')
diff --git a/1319/CH13/EX13.6/ii_6.sce b/1319/CH13/EX13.6/ii_6.sce
new file mode 100644
index 000000000..e518c8f7a
--- /dev/null
+++ b/1319/CH13/EX13.6/ii_6.sce
@@ -0,0 +1,11 @@
+// Force on the conductor due to a uniform magentic field
+clc;
+clear;
+
+l=0.5;
+B=0.12;
+I=15;
+
+F=B*I*l;
+
+disp('N',F,'The Force on the conductor =')
diff --git a/1319/CH13/EX13.7/ii_7.sce b/1319/CH13/EX13.7/ii_7.sce
new file mode 100644
index 000000000..9258ec20b
--- /dev/null
+++ b/1319/CH13/EX13.7/ii_7.sce
@@ -0,0 +1,26 @@
+// To determine force between single phase bus bars
+
+clc;
+clear;
+
+eload=10^7;
+voltage=15*(10^3);
+
+mo=4*%pi*(10^-7);
+
+l=1;
+r=0.3;
+
+//Normally
+
+I=eload/voltage;
+F=mo*I*I*l/(2*%pi*r);
+
+//Short Circuit
+
+Isc=10*I;
+Fsc=mo*Isc*Isc*l/(2*%pi*r);
+
+disp('N',F,'i) Force per metre under normal condition =')
+disp('N',Fsc,'ii) Force per metre under short circuit condition =')
+
diff --git a/1319/CH13/EX13.8/ii_8.sce b/1319/CH13/EX13.8/ii_8.sce
new file mode 100644
index 000000000..2f14f6b3f
--- /dev/null
+++ b/1319/CH13/EX13.8/ii_8.sce
@@ -0,0 +1,14 @@
+// To Compute the Maximum Induced EMF
+
+clc;
+clear;
+
+T=1/50;
+fluxmax=0.02;
+N=100;
+
+flux= fluxmax*(poly([1 -4/T],'t','c'));// Flux Equation under consideration.
+
+e=N*(-1)*derivat(flux);
+
+disp('volts',e,'The Maximum induced EMF= ')
diff --git a/1319/CH13/EX13.9/ii_9.sce b/1319/CH13/EX13.9/ii_9.sce
new file mode 100644
index 000000000..aa37a01dc
--- /dev/null
+++ b/1319/CH13/EX13.9/ii_9.sce
@@ -0,0 +1,18 @@
+// Compute Inductance and EMF induced
+clc;
+clear;
+
+d=0.25;
+l=%pi*d;
+n=1000;
+area=6.25*(10^-4);
+I=200;
+mo=4*%pi*(10^-7);
+
+L=mo*area*n*n/l;
+
+V=L*I;
+
+disp('H',L,'The Inductance of toriod')
+disp('volts',V,'The Induced EMF in the toriod')
+