initial commit / add all books

21 files changed, 396 insertions, 0 deletions

diff --git a/2384/CH10/EX10.1/ex10_1.sce b/2384/CH10/EX10.1/ex10_1.sce
new file mode 100755
index 000000000..fc7c489ff
--- /dev/null
+++ b/2384/CH10/EX10.1/ex10_1.sce
@@ -0,0 +1,15 @@
+// Exa 10.1

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+A = 2;// in wavewound

+N = 1200;// in rpm

+phi = 0.02;// in Wb

+n = 65;// no of slots

+P = 4;

+Z = n*12;// total number of conductor

+// Emf equation

+Eg = (N*P*phi*Z)/(60*A);// in V

+disp(Eg,"The emf generated in V is");

diff --git a/2384/CH10/EX10.10/ex10_10.sce b/2384/CH10/EX10.10/ex10_10.sce
new file mode 100755
index 000000000..32fcebb8c
--- /dev/null
+++ b/2384/CH10/EX10.10/ex10_10.sce
@@ -0,0 +1,16 @@
+// Exa 10.10

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+V = 250;// in V

+I_L = 20;// in A

+Ra = 0.3;// in ohm

+Rsh = 200;// in ohm

+Ish = V/Rsh;// in A

+// I_L = Ia+Ish;

+Ia = I_L-Ish;// inA

+disp(Ia,"The armature current in A is");

+Eb = V-(Ia*Ra);// in V

+disp(Eb,"The back emf in V is");

diff --git a/2384/CH10/EX10.11/ex10_11.sce b/2384/CH10/EX10.11/ex10_11.sce
new file mode 100755
index 000000000..082eef373
--- /dev/null
+++ b/2384/CH10/EX10.11/ex10_11.sce
@@ -0,0 +1,21 @@
+// Exa 10.11

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 4;

+A = 2;//(wave connected)

+Z = 200;

+V=250;// in V

+phi = 25;// in mWb

+phi = phi * 10^-3;// in Wb

+Ia = 60;// in A

+I_L = 60;// in A

+Ra = 0.15;// in ohm

+Rse = 0.2;// in ohm

+//V = Eb + (Ia*Ra) + (Ia*Rse);

+Eb = V - (Ia*Ra) - (Ia*Rse);// in V

+// Eb = (phi*P*N*Z)/(60*A);

+N = (Eb*60*A)/(phi*P*Z);// in rpm

+disp(N,"The speed in rpm is");

diff --git a/2384/CH10/EX10.12/ex10_12.sce b/2384/CH10/EX10.12/ex10_12.sce
new file mode 100755
index 000000000..bd302c8ee
--- /dev/null
+++ b/2384/CH10/EX10.12/ex10_12.sce
@@ -0,0 +1,17 @@
+// Exa 10.12

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+Eb = 227;// in V

+Rsh = 160;// in ohm

+Ish = 1.5;// in A

+I_L = 39.5;// in A

+V = Ish*Rsh;// in V

+Ia = I_L-Ish;// in A

+//V = Eb + (Ia*Ra);

+Ra = (V-Eb)/Ia;// in ohm

+disp(Ra,"The armature resistance in ohm is");

+Ia = V/Ra;// in A

+disp(Ia,"The armature current in A is");

diff --git a/2384/CH10/EX10.13/ex10_13.sce b/2384/CH10/EX10.13/ex10_13.sce
new file mode 100755
index 000000000..e750effb6
--- /dev/null
+++ b/2384/CH10/EX10.13/ex10_13.sce
@@ -0,0 +1,18 @@
+// Exa 10.13

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+V = 230;// in V

+Ra = 0.115;// in ohm

+Rsh = 115;// in ohm

+I_L = 100;// inA

+Ish =V/Rsh;// in A

+Ia = I_L + Ish;// in A

+Eg = V + (Ia*Ra);// in V

+Ia = I_L-Ish;// in A

+Eb = V - (Ia*Ra);// in V

+// The ratio of speed as a generator to speed as a motor 

+NgBYNm = Eg/Eb;

+disp(NgBYNm,"The ratio of speed as a generator to speed as a motor is");

diff --git a/2384/CH10/EX10.14/ex10_14.sce b/2384/CH10/EX10.14/ex10_14.sce
new file mode 100755
index 000000000..e7186d6d0
--- /dev/null
+++ b/2384/CH10/EX10.14/ex10_14.sce
@@ -0,0 +1,18 @@
+// Exa 10.14

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+P = 4;

+slots = 144;

+phi = 20;// in mWb

+phi = phi * 10^-3;// in Wb

+N = 720;// in rpm

+A = 4;

+P =4;

+n1 = 2;// in coil/slot

+n2 = 2;// in turns/coil

+Z = slots*n1*n2;// total number of conductor

+Eg = (N*P*phi*Z)/(60*A);// in V

+disp(Eg,"The induced voltage in V is");

diff --git a/2384/CH10/EX10.15/ex10_15.sce b/2384/CH10/EX10.15/ex10_15.sce
new file mode 100755
index 000000000..3515949c1
--- /dev/null
+++ b/2384/CH10/EX10.15/ex10_15.sce
@@ -0,0 +1,16 @@
+// Exa 10.15

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 8;

+phi = 0.1;// in Wb

+Z = 400;

+N =300;// in rpm

+Eg = (N*phi*Z)/(60);// in V (A = p)

+disp(Eg,"The emf when lap is connected in V is");

+// For A=2, connected armature

+A = 2;

+Eg = (N*phi*P*Z)/(60*A);// in V

+disp(Eg,"The emf when wave is connected in V is");

diff --git a/2384/CH10/EX10.16/ex10_16.sce b/2384/CH10/EX10.16/ex10_16.sce
new file mode 100755
index 000000000..ad6380bbe
--- /dev/null
+++ b/2384/CH10/EX10.16/ex10_16.sce
@@ -0,0 +1,19 @@
+// Exa 10.16

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P_L = 20;// in kW

+P_L = P_L * 10^3;// in W

+V = 200;// in V

+Ra = 0.05;// in ohm

+Rsh = 200;// in ohm

+// P_L = V*I_L;

+I_L = P_L/V;// in A

+Ish = V/Rsh;// in A

+Ia = I_L+Ish;// in A

+Eg = V + (Ia*Ra);// in V

+Pa = Eg*Ia;// in W

+Pa = Pa * 10^-3;// in kW

+disp(Pa,"The power developed in armature in kW is");

diff --git a/2384/CH10/EX10.17/ex10_17.sce b/2384/CH10/EX10.17/ex10_17.sce
new file mode 100755
index 000000000..b0d87b2d4
--- /dev/null
+++ b/2384/CH10/EX10.17/ex10_17.sce
@@ -0,0 +1,19 @@
+// Exa 10.17

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+N1 = 600;// inrpm

+I_L1 = 60;// in A

+V = 230;// in V

+Rsh = 115;// in ohm

+Ra= 0.2;// in ohm

+Ia2 = 30;// in A

+Ish = V/Rsh;// in A

+Ia1 = I_L1 - Ish;// in A

+Eb1 = V-(Ia1*Ra);// in V

+Eb2 = V - (Ia2*Ra);// in V

+// N1/N2 = Eb1/Eb2;

+N2 = (N1*Eb2)/Eb1;// in rpm

+disp(N2,"The speed when 30 A current through the armature in rpm is");

diff --git a/2384/CH10/EX10.18/ex10_18.sce b/2384/CH10/EX10.18/ex10_18.sce
new file mode 100755
index 000000000..b471b6bed
--- /dev/null
+++ b/2384/CH10/EX10.18/ex10_18.sce
@@ -0,0 +1,20 @@
+// Exa 10.18

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 6;

+A = 6;

+Z = 500;

+Ra = 0.05;// in ohm

+Rsh =25;// in ohm

+V = 100;// in V

+I_L = 120;// in A

+phi = 2*10^-2;// in Wb

+Ish = V/Rsh;// in A

+Ia = I_L-Ish;// in A

+Eb = V - (Ia*Ra);// in V

+// Eb = (N*P*phi*Z)/(60*A);

+N = (Eb*60*A)/(P*phi*Z);// in rpm

+disp(N,"The speed of the motor in rpm is");

diff --git a/2384/CH10/EX10.19/ex10_19.sce b/2384/CH10/EX10.19/ex10_19.sce
new file mode 100755
index 000000000..735e90d64
--- /dev/null
+++ b/2384/CH10/EX10.19/ex10_19.sce
@@ -0,0 +1,16 @@
+// Exa 10.19

+clc;

+clear;

+close;

+format('v',6)

+// Given ata

+N1 = 1;

+N2 = 1.2*N1;

+phi1 = 1;

+phi2 = 0.8*phi1;

+Eg1BYEg2 = (N1/N2) * (phi1/phi2);

+Eg1 = 1;// assumed

+// The change in emf 

+Eg2 = (Eg1*phi2*N2)/(phi1*N1);

+Eg2 = Eg2 * 100;// in %

+disp(Eg2,"The change in emf in % is");

diff --git a/2384/CH10/EX10.2/ex10_2.sce b/2384/CH10/EX10.2/ex10_2.sce
new file mode 100755
index 000000000..5245aee3e
--- /dev/null
+++ b/2384/CH10/EX10.2/ex10_2.sce
@@ -0,0 +1,19 @@
+// Exa 10.2

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 8;

+N = 1200;// in rpm

+phi = 25;// in mWb

+phi = phi * 10^-3;// in Wb

+Eg = 440;// in V

+A = P;

+// Eg = (N*P*phi*Z)/(60*A);

+Z = (Eg*60*A)/(phi*N*P);// in conductors

+disp(Z,"The numbers of conductors when armature is lap wound");

+A = 2;

+// Eg = (N*P*phi*Z)/(60*A);

+Z = (Eg*60*A)/(phi*N*P);// in conductors

+disp(Z,"The numbers of conductors when armature is wave wound ");

diff --git a/2384/CH10/EX10.20/ex10_20.sce b/2384/CH10/EX10.20/ex10_20.sce
new file mode 100755
index 000000000..a6ec10caf
--- /dev/null
+++ b/2384/CH10/EX10.20/ex10_20.sce
@@ -0,0 +1,26 @@
+// Exa 10.20

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+Pout = 25;// in kW

+Pout = Pout*10^3;// in W

+Vt = 250;// in V

+Ra = 0.06;// in ohm

+Rsh = 100;// in ohm

+// Pout = Vt*I_L;

+I_L = Pout/Vt;// in A

+Ish = Vt/Rsh;// in A

+Ia = I_L+Ish;// in A

+Eg = Vt + (Ia*Ra);// in V

+// Total armature power developed when working as a generator 

+Pdeveloped = Eg*Ia;// in W

+Pdeveloped = Pdeveloped * 10^-3;// in kW

+disp(Pdeveloped,"Total armature power developed in kW is");

+Ia = I_L-Ish;// in A

+Eb = Vt - (Ia*Ra);// in V

+// Total armature power developed when working as a motor 

+Pdeveloped = Eb*Ia;// in W

+Pdeveloped = Pdeveloped * 10^-3;// in kW

+disp(Pdeveloped,"Total armature power developed when working as a motor in kW is");

diff --git a/2384/CH10/EX10.21/ex10_21.sce b/2384/CH10/EX10.21/ex10_21.sce
new file mode 100755
index 000000000..ecce69c28
--- /dev/null
+++ b/2384/CH10/EX10.21/ex10_21.sce
@@ -0,0 +1,20 @@
+// Exa 10.21

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 4;

+A = 4;

+Turns = 100;

+N = 600;// in rpm

+Eg = 220;// in V

+n = 2;// no of total conductors

+Z = n*Turns;

+// Eg = (N*P*phi*Z)/(60*A);

+phi = (Eg*60*A)/(N*P*Z);// in Wb

+disp(phi,"The useful flux per mole when armature is LAP connected in Wb is");

+A = 2;

+// Eg = (N*P*phi*Z)/(60*A);

+phi = (Eg*60*A)/(N*P*Z);// in Wb

+disp(phi,"The useful flux per mole when armature is WAVE connected in Wb is");

diff --git a/2384/CH10/EX10.3/ex10_3.sce b/2384/CH10/EX10.3/ex10_3.sce
new file mode 100755
index 000000000..9094e51db
--- /dev/null
+++ b/2384/CH10/EX10.3/ex10_3.sce
@@ -0,0 +1,19 @@
+// Exa 10.3

+clc;

+clear;

+close;

+format('v',7)

+// Given data

+P = 4;

+phi = 20;// in mWb

+phi = phi * 10^-3;// in Wb

+A = 4;

+P = A;

+N =720;// in rpm

+n = 144;// no of slots in slots

+n1 = 2;// no of coils 

+n2 = 2;// no of turns in turns

+Z = n*n1*n2;// total number of conductor

+// Generated emf

+E = (N*P*phi*Z)/(60*A);// in V

+disp(E,"The induced voltage in V is");

diff --git a/2384/CH10/EX10.4/ex10_4.sce b/2384/CH10/EX10.4/ex10_4.sce
new file mode 100755
index 000000000..a5e915b26
--- /dev/null
+++ b/2384/CH10/EX10.4/ex10_4.sce
@@ -0,0 +1,20 @@
+// Exa 10.4

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+Eg1 = 100;// in V

+phi1 = 20;// in mWb

+phi1 = phi1 * 10^-3;// in Wb

+N1 = 800;// in rpm

+N2 = 1000;// in rpm

+// Eg1/Eg2 = (phi1/phi2) * (N1/N2) but phi1 = phi2

+Eg2 = (Eg1*N2)/N1;// in V

+disp(Eg2,"Part (i) : The generated emf in V is");

+phi2 = 24;// in mWb

+phi2 = phi2 * 10^-3;// in Wb

+N2 = 900;// in rpm

+// Eg1/Eg2 = (phi1/phi2) * (N1/N2) ;

+Eg2 = (Eg1*N2*phi2)/(N1*phi1);// in V

+disp(Eg2,"Part (ii) : The generated emf in V is");

diff --git a/2384/CH10/EX10.5/ex10_5.sce b/2384/CH10/EX10.5/ex10_5.sce
new file mode 100755
index 000000000..2fdd632c0
--- /dev/null
+++ b/2384/CH10/EX10.5/ex10_5.sce
@@ -0,0 +1,20 @@
+// Exa 10.5

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+P = 30;// in kW

+P = P * 10^3;// in W

+V = 300;// in V

+Ra = 0.05;// in ohm

+Rsh = 100;// in ohm

+// p = V*I_L;

+I_L = P/V;// in A

+Ish = V/Rsh;// in A

+Ia = I_L+Ish;// in A

+Eg = V + (Ia*Ra);// in V

+// power developed by armature 

+power = (Eg*Ia);// in W

+power = power * 10^-3;// in kW

+disp(power,"The total power developed by the armature in kW is");

diff --git a/2384/CH10/EX10.6/ex10_6.sce b/2384/CH10/EX10.6/ex10_6.sce
new file mode 100755
index 000000000..8a4cf9458
--- /dev/null
+++ b/2384/CH10/EX10.6/ex10_6.sce
@@ -0,0 +1,20 @@
+// Exa 10.6

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+V = 200;// in V

+Ra = 0.5;// in ohm

+Rsh = 200;// in ohm

+P = 20;// in kW

+P = P * 10^3;// in W

+// P = V*I_L;

+I_L =P/V;// in A

+Ish = V/Rsh;// in A

+Ia = I_L+Ish;// in A

+Eg = V + (Ia*Ra);// in V

+// power developed in the armature 

+power = Eg*Ia;// in W

+power = power * 10^-3;// in kW

+disp(power,"The power developed in the armature in kW is");

diff --git a/2384/CH10/EX10.7/ex10_7.sce b/2384/CH10/EX10.7/ex10_7.sce
new file mode 100755
index 000000000..e10dc44c7
--- /dev/null
+++ b/2384/CH10/EX10.7/ex10_7.sce
@@ -0,0 +1,21 @@
+// Exa 10.7

+clc;

+clear;

+close;

+format('v',8)

+// Given data

+P = 60;

+A =P;

+Vbrush = 2;// in V/brush

+Vt = 100;// in V

+Ra = 0.1;// in ohm

+Rsh = 80;// in ohm

+Ish = Vt/Rsh;// in A

+Ilamp = P/Vt;// in A

+I_L = 50*Ilamp;// in A

+// Armature current

+Ia = I_L+Ish;// in A

+disp(Ia,"The total armature current in A is");

+// Evaluation of generated emf

+Eg = Vt + (Ia*Ra) + Vbrush;// in V

+disp(Eg,"The generated emf in V is");

diff --git a/2384/CH10/EX10.8/ex10_8.sce b/2384/CH10/EX10.8/ex10_8.sce
new file mode 100755
index 000000000..cf3b5c360
--- /dev/null
+++ b/2384/CH10/EX10.8/ex10_8.sce
@@ -0,0 +1,21 @@
+// Exa 10.8

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+V = 440;// in V

+I_L =40;// in A

+Rse = 1;// in ohm

+Rsh = 200;// in ohm

+Ra = 0.5;// in ohm

+Ish = V/Rsh;// in A

+Ia = I_L+Ish;// in A

+Eg = V + (Ia*(Ra+Rse));// in V

+disp(Eg,"The generated voltage for long shunt in V is");

+//Voltage across shunt field, Vsh = V + Ise*Rse = V + (I_L*Rse);

+Vsh = V+(I_L*Rse);// in V

+Ish = Vsh/Rsh;// in A

+Ia =I_L+Ia;// in A

+Eg = V + (I_L*Rse) + (Ia*Ra);// in V

+disp(Eg,"The generated voltage for short shunt in V is");

diff --git a/2384/CH10/EX10.9/ex10_9.sce b/2384/CH10/EX10.9/ex10_9.sce
new file mode 100755
index 000000000..b96479924
--- /dev/null
+++ b/2384/CH10/EX10.9/ex10_9.sce
@@ -0,0 +1,15 @@
+// Exa 10.9

+clc;

+clear;

+close;

+format('v',6)

+// Given data

+V = 440;// in V

+I = 80;// in A

+Rse = 0.025;// in ohm

+Ra = 0.1;// in ohm

+Bd = 2;// brush drop in V

+Ia = I;// in A

+Ise = I;// in A

+Eb = V - (Ia*(Ra+Rse)) - Bd;// in V

+disp(Eb,"The back emf in V is");