22 files changed, 543 insertions, 0 deletions
diff --git a/1319/CH6/EX6.1/6_1.sce b/1319/CH6/EX6.1/6_1.sce
new file mode 100644
index 000000000..1347f514f
--- /dev/null
+++ b/1319/CH6/EX6.1/6_1.sce
@@ -0,0 +1,16 @@
+//To Determine the useful flux per pole
+
+clc;
+clear;
+
+E=600;
+N=1200;
+Z=250;
+A=2;
+P=6;
+
+// EMF Equation
+
+phi=E*A*60/(N*Z*P);// Flux developed
+
+printf('The useful flux per pole = %g Wb \n',phi)
diff --git a/1319/CH6/EX6.10/6_10.sce b/1319/CH6/EX6.10/6_10.sce
new file mode 100644
index 000000000..9f5a1982d
--- /dev/null
+++ b/1319/CH6/EX6.10/6_10.sce
@@ -0,0 +1,16 @@
+//Number of conductors of compensating winding
+
+clc;
+clear;
+
+P=8; // No of Poles
+Z=960; // No of conductors
+ep=70/100; // Effective pole pitch
+
+Zp=Z/P; // No os conductors per pole
+
+AZp= ep*Zp; // No of actice armature conductors
+
+Zpc=ceil(AZp/P); // Conductors in compensating winding
+
+printf('The number of conductors of compensating winding = %g conductor/pole \n',Zpc)
diff --git a/1319/CH6/EX6.11/6_11.sce b/1319/CH6/EX6.11/6_11.sce
new file mode 100644
index 000000000..2d8ae3b83
--- /dev/null
+++ b/1319/CH6/EX6.11/6_11.sce
@@ -0,0 +1,64 @@
+//Swinburne test on a dc shunt motor
+
+clc;
+clear;
+
+V=500;
+I=5;
+Rf=250;
+Ra=0.5;
+
+P=V*I;
+If=V/Rf;
+
+Ia=I-If;
+
+Pfc=(If^2)*Rf;// Field Copper Loss
+
+Pac=(Ia^2)*Ra; // Armature Copper Loss
+
+Pil=P-Pfc-Pac;// Iron loss
+
+// Generator
+
+Vg=500;
+Ig=100;
+
+Pog=Vg*Ig; // Power Output
+
+Iag=Ig+If; //Armature current
+
+Pgac=(Iag^2)*Ra; // Armature Copper loss
+
+slg=0.01*Pog;//stray loss
+
+Pgtl=Pgac+Pfc+slg+Pil; // Total losses
+
+effg=Pog*100/(Pog+Pgtl);
+
+// Motor
+
+Vm=500;
+Im=100;
+
+Pim=Vm*Im; // Power input to the motor
+
+Iam=Ig-If; // Armature current
+
+Pmac=(Iam^2)*Ra; // Armature Copper Loss
+
+Pom=Pim-Pmac-Pil-Pfc;// Ouput of the motor
+slm=0.01*Pom;// Stray loss
+
+Pmtl=Pmac+Pil+Pfc+slm; // Total loss of the motor
+
+effm=(Pom-slm)*100/(Pim);
+
+
+printf('i) The Efficiency of the machine as a generator delivering 100A at 500V = %g percent \n',effg)
+
+printf('ii) The Efficiency of the machine as a motor having a line current 100A at 500V = %g percent \n',effm)
+ 
+
+
+
diff --git a/1319/CH6/EX6.12/6_12.sce b/1319/CH6/EX6.12/6_12.sce
new file mode 100644
index 000000000..b89a2f789
--- /dev/null
+++ b/1319/CH6/EX6.12/6_12.sce
@@ -0,0 +1,26 @@
+//Speed of a belt driven shunt generator
+
+clc;
+clear;
+
+Pg=100*(10^3);// Power output of the generator
+Pm=10*(10^3); // Power input of the motor
+V=220; 
+Ng=300; // Running speed of the generator
+Ra=0.025; // Armature resistance
+Rf=60; // Field Resistance
+Vb=2;// Voltage drop due to brushes
+
+Im=Pm/V; // Current taken by the motor
+Ig=Pg/V; // Current delivered by the generator
+
+Eg=V+(Ig*Ra)+Vb; // Induced EMF of generator
+
+Eb=V-(Im*Ra)-Vb; // Back EMF of the motor
+
+Nm=Eb*Ng/Eg;
+
+printf('The Speed under motoring condition = %g rpm \n',Nm)
+
+
+
diff --git a/1319/CH6/EX6.13/6_13.sce b/1319/CH6/EX6.13/6_13.sce
new file mode 100644
index 000000000..704b3a0e4
--- /dev/null
+++ b/1319/CH6/EX6.13/6_13.sce
@@ -0,0 +1,22 @@
+//Voltage between feeder and bus bar in a series generator
+
+clc;
+clear;
+
+V=50;
+I=200;
+
+Rf=0.3; // Feeder resistance
+
+//Various Currents
+I1=160;
+I2=50;
+
+deff('y=vol(x)','y=(x*Rf)-(V*x/I)') // Function to calculate the voltages
+
+Va=vol(I1);
+Vb=vol(I2);
+
+printf('The voltage between the far end of the feeder and the bus bar at a current of \n')
+printf('a) 160A = %g V \n',Va)
+printf('b) 50A = %g V \n',Vb)
diff --git a/1319/CH6/EX6.14/6_14.sce b/1319/CH6/EX6.14/6_14.sce
new file mode 100644
index 000000000..2a68abb02
--- /dev/null
+++ b/1319/CH6/EX6.14/6_14.sce
@@ -0,0 +1,20 @@
+// Induced EMF and Armature current in a long shunt compound generator
+
+clc;
+clear;
+
+Il=50; // Load Current
+Vl=500; // Load Voltage
+Ra=0.05; // Armature Resistance
+Rfs=0.03; // Series Field Resistance
+Rfp=250; // Shunt Field Resistance
+Vb=2; // Contact drop 
+
+Ish=Vl/Rfp;
+
+Ia=Il+Ish;
+
+E=Vl+(Ia*(Ra+Rfs))+Vb; // Induced EMF
+
+printf('The Induced EMF and Armature Current is %g V and %g A respectively \n',E,Ia)
+
diff --git a/1319/CH6/EX6.15/6_15.sce b/1319/CH6/EX6.15/6_15.sce
new file mode 100644
index 000000000..f5473c9ef
--- /dev/null
+++ b/1319/CH6/EX6.15/6_15.sce
@@ -0,0 +1,29 @@
+//Speed at 50A considering armature reaction of a shunt motor
+
+clc;
+clear;
+
+N=1000; // Speed at No load
+I=5; // Current at no load
+V=250;
+Ra=0.2; // Armature Resistance
+Rf=250;// Field Resistance
+
+Ish=V/Rf; // Field Current
+
+Ia=I-Ish; //Armature Current at no load
+Eb=V-(Ia*Ra); // Back EMF at no load
+Il=50; // Curent taken when loaded
+
+Ebl=V-(Il-Ish)*Ra;// Back EMF when loaded
+
+Nl=Ebl*N/(0.97*Eb)
+
+printf('The Speed at 50A considering weakening of the field due to armature reaction = %g rpm \n',ceil(Nl) )
+
+
+
+
+
+
+
diff --git a/1319/CH6/EX6.16/6_16.sce b/1319/CH6/EX6.16/6_16.sce
new file mode 100644
index 000000000..f1cc43f34
--- /dev/null
+++ b/1319/CH6/EX6.16/6_16.sce
@@ -0,0 +1,37 @@
+// Speed of shunt motor taking 50kW input
+
+clc;
+clear;
+
+Pog=50*(10^3);// Power ouput of the generator
+Ng=400; // Speed of the generator
+Vg=250;
+Ra=0.02;
+Rf=50;
+
+Pim=50*(10^3); // Power Input of motor
+Vm=250;
+
+Vb=2;// Contact drop
+
+// Generator
+
+Ish=Vg/Rf; // Field Current
+Ilg=Pog/Vg; // Load Current
+Iag=Ish+Ilg; // Armature Current
+
+Eg=Vg+(Iag*Ra)+Vb;
+
+// Motor
+
+Ilm=Pim/Vm; // Input Current
+Ish=Vm/Rf; // Field Current
+Iam=Ilm-Ish; // Armature Current
+
+Eb=Vm-(Iam*Ra)-Vb; // Back EMF
+
+Nm=Eb*Ng/Eg;
+
+printf('The speed of shunt generator as a motor = %g rpm',ceil(Nm))
+
+
diff --git a/1319/CH6/EX6.17/6_17.sce b/1319/CH6/EX6.17/6_17.sce
new file mode 100644
index 000000000..2ebb1781a
--- /dev/null
+++ b/1319/CH6/EX6.17/6_17.sce
@@ -0,0 +1,17 @@
+//Useful torque and efficiency of a shunt motor
+
+clc;
+clear;
+
+Po=10.14*735; // 1 HP is 735 W, Power Developed
+N=600/60;// Speed in rotations per sec
+I=18;
+V=500;
+Pi=V*I; // Power input
+
+eff=Po*100/Pi;
+
+T=Po/(2*%pi*N);
+
+printf('The Efficiency and the useful torque of the shunt motor are %g percent and %g Nm respectively \n',eff,T)
+
diff --git a/1319/CH6/EX6.18/6_18.sce b/1319/CH6/EX6.18/6_18.sce
new file mode 100644
index 000000000..9fce20bec
--- /dev/null
+++ b/1319/CH6/EX6.18/6_18.sce
@@ -0,0 +1,17 @@
+//Total torque developed in a 4 pole shunt motor
+
+clc;
+clear;
+
+P=4;
+A=4;// Lap Winding
+Z=60*20; // Slots * no of comductors in each slot
+phi=23*(10^-3);
+Ia=50; // Armature current
+
+printf('The eqaution to find out torque is given by \n \n 2*pi*N*T = phi*Z*P*N/(60*A) * Ia \n\n')
+T=((phi*Z*P*Ia)/(60*A))/(2*%pi/60);
+
+printf('Total torque developed = %g Nm \n',T)
+
+
diff --git a/1319/CH6/EX6.19/6_19.sce b/1319/CH6/EX6.19/6_19.sce
new file mode 100644
index 000000000..40f868c89
--- /dev/null
+++ b/1319/CH6/EX6.19/6_19.sce
@@ -0,0 +1,28 @@
+//EMF and copper losses of a Shunt Motor
+
+clc;
+clear;
+
+V=250;
+I=200;
+Ra=0.02; // Armature Resistance
+Rf=50; // Field Resistance
+Pil=950; // Iron and frictional losses
+
+Ish=V/Rf; // Field Current
+Ia=Ish+I; // Armature Current
+
+Pac=(Ia^2)*Ra; // Armature copper loss
+Pfc=(Ish^2)*Rf;// Field copper loss
+
+Pc=Pac+Pfc;
+
+E=V+(Ia*Ra);
+
+Prime=(V*I)+Pil+Pc;// Ouput of prime mover is the input to the generator
+
+eff=(V*I*100)/Prime;
+
+printf('i) The EMF generated = %g V \n',E)
+printf('ii) Total Copper Loss = %g watts \n',Pc)
+printf('iii) Output of the prime mover is %g watts and the efficiency is %g percent \n',Prime,eff)
diff --git a/1319/CH6/EX6.2/6_2.sce b/1319/CH6/EX6.2/6_2.sce
new file mode 100644
index 000000000..f0451ba92
--- /dev/null
+++ b/1319/CH6/EX6.2/6_2.sce
@@ -0,0 +1,15 @@
+// Determine the EMF generated
+
+clc;
+clear;
+
+phi=40*(10^-3);
+A=8; //Lap Winding
+P=8;
+N=400;
+Z=960;
+
+E=P*N*Z*phi/(60*A); // EMF equation of a DC machine
+
+printf('The EMF generated = %g volts \n',E)
+
diff --git a/1319/CH6/EX6.20/6_20.sce b/1319/CH6/EX6.20/6_20.sce
new file mode 100644
index 000000000..ec966a582
--- /dev/null
+++ b/1319/CH6/EX6.20/6_20.sce
@@ -0,0 +1,17 @@
+//Current taken by a motor at 90 percent efficiency
+
+clc;
+clear;
+
+V=500;
+N=400/60;// Speed in rotations per sec
+eff=90/100;
+T=195 
+
+Pd=2*%pi*N*T; // Power developed by the motor
+
+Pi=Pd/eff; // Power input to the motor
+
+I=Pi/V;
+
+printf('The Current taken by the motor = %g A \n',I)
diff --git a/1319/CH6/EX6.21/6_21.sce b/1319/CH6/EX6.21/6_21.sce
new file mode 100644
index 000000000..b4cbf3bf7
--- /dev/null
+++ b/1319/CH6/EX6.21/6_21.sce
@@ -0,0 +1,37 @@
+//Rated torque calculation by resistance addition
+
+clc;
+clear;
+
+V=240;
+I=40;
+Ra=0.3;
+N1=1500/60;// speed in rotations per sec
+N2=1000/60;
+
+Pi=V*I;// Power input
+
+Pc=(I^2)*Ra; // Copper loss
+
+Po=Pi-Pc;
+
+T=Po/(2*%pi*N1);// Rated torque
+
+R1=V/I; // Back EMF is zero
+
+Rex1=R1-Ra;
+
+//Eb directly to N(speed)
+
+Eb1500=V-(I*Ra);
+Eb1000=N2*Eb1500/N1;
+
+R=poly([0 1],'R','c');
+
+x=(V-Eb1000)-(I*(R+Ra)); // Characteristic equation to find external resistance
+
+Rex2=roots(x);
+
+printf('The value of the resistance to be added to obtain rated torque \n')
+printf('a) At starting = %g ohms\n',Rex1)
+printf('b) At 1000 rpm = %g ohms\n',Rex2)
diff --git a/1319/CH6/EX6.22/6_22.sce b/1319/CH6/EX6.22/6_22.sce
new file mode 100644
index 000000000..015a386b8
--- /dev/null
+++ b/1319/CH6/EX6.22/6_22.sce
@@ -0,0 +1,28 @@
+//Efficiency at full load
+
+clc;
+clear;
+
+V=400;
+Inl=5; // No load current
+Ra=0.5; // Armature Resistance
+Rf=200; // Field Resistance
+Ifl=40; // Full load current
+
+Ish=V/Rf; //  Field Current
+
+Psc=(Ish^2)*Rf; // Field copper loss
+
+Prs=(V*Inl)-Psc; // Stray losses assuming no armature losses
+
+Ia=Ifl-Ish; // Armature Current
+
+Pc=(Ia^2)*Ra;// Armature copper loss
+
+Pi=Ifl*V; // Power input
+
+Po=Pi-Psc-Prs-Pc;
+
+eff=Po*100/Pi;
+
+printf('The efficiency at full load = %g percent \n',eff)
diff --git a/1319/CH6/EX6.3/6_3.sce b/1319/CH6/EX6.3/6_3.sce
new file mode 100644
index 000000000..bad52550a
--- /dev/null
+++ b/1319/CH6/EX6.3/6_3.sce
@@ -0,0 +1,15 @@
+// Determine the EMF generated in a wave winding
+
+clc;
+clear;
+
+phi=40*(10^-3);
+A=2; //Wave Winding
+P=8;
+E=400;
+Z=960;
+
+N=E*60*A/(phi*Z*P) // EMF equation of a DC machine
+
+printf('The speed generated = %g rpm \n',N)
+
diff --git a/1319/CH6/EX6.4/6_4.sce b/1319/CH6/EX6.4/6_4.sce
new file mode 100644
index 000000000..8fd66ac87
--- /dev/null
+++ b/1319/CH6/EX6.4/6_4.sce
@@ -0,0 +1,26 @@
+//Ratio of speeds of a generator and motor
+
+clc;
+clear;
+
+V=250;
+Il=80;
+Ra=0.12;
+Rf=100;// Field Resistance
+
+Ish=V/Rf;// Field Current
+
+Ia1=Il+Ish;// Machine Current genrated
+Ia2=Il-Ish;// Motor Current taken by the motor
+
+E=V+(Ia1*Ra);// Generator Induced EMF
+
+Eb=V-(Ia2*Ra);// Motor Operating EMF
+
+//Speeds are directly proportional to the EMFs
+
+Nr=E/Eb; // Ratio of speeds
+
+printf('The ratio of Generator speed to motor speed = %g \n',Nr)
+
+
diff --git a/1319/CH6/EX6.5/6_5.sce b/1319/CH6/EX6.5/6_5.sce
new file mode 100644
index 000000000..5ce90b45d
--- /dev/null
+++ b/1319/CH6/EX6.5/6_5.sce
@@ -0,0 +1,17 @@
+// Calculate Load Current in a shunt generator
+
+clc;
+clear;
+
+E=127;
+V=120;
+Ra=0.02;
+Rf=15;// Field Resistance
+
+Ish=V/Rf;
+
+Ia=(E-V)/Ra;
+
+Il=Ia-Ish;
+
+printf('The load current = %g A \n',Il)
diff --git a/1319/CH6/EX6.6/6_6.sce b/1319/CH6/EX6.6/6_6.sce
new file mode 100644
index 000000000..cfbc66093
--- /dev/null
+++ b/1319/CH6/EX6.6/6_6.sce
@@ -0,0 +1,21 @@
+//Useful Flux per pole on no load shunt motor
+
+clc;
+clear;
+V=250;
+Z=2*110;// One turn is two conductors
+Ia=13.3;
+N=908;
+Ra=0.2;
+A=2; //Wave Winding
+P=6;
+
+Eb=V-(Ia*Ra);// Back EMF
+
+phi=Eb*60*A/(N*Z*P);
+
+printf('The useful flux per pole on no load of a 250V, 6 pole shunt motor = %g mWb \n',phi*1000)
+
+
+
+
diff --git a/1319/CH6/EX6.7/6_7.sce b/1319/CH6/EX6.7/6_7.sce
new file mode 100644
index 000000000..4ae323c65
--- /dev/null
+++ b/1319/CH6/EX6.7/6_7.sce
@@ -0,0 +1,22 @@
+//To find efficiency and useful torque
+
+clc;
+clear;
+
+V=500;
+N=600/60;// Rotation per second
+I=18;
+Hp=735.5; // The Value of one horse power is 735.5 W
+Pd=10*Hp;// Power Output
+
+Pi=V*I; // Power input
+
+eff=Pd*100/Pi;// Efficiency
+
+//Power ouput electrical = Power mechanical = Po= 2*pi*N*T
+T=Pd/(2*%pi*N);
+
+printf('The efficiency of the shunt motor = %g percent \n',eff)
+printf('Useful torque = %g Nm \n',T)
+
+
diff --git a/1319/CH6/EX6.8/6_8.sce b/1319/CH6/EX6.8/6_8.sce
new file mode 100644
index 000000000..bdc2f0cf3
--- /dev/null
+++ b/1319/CH6/EX6.8/6_8.sce
@@ -0,0 +1,19 @@
+// Speed calculation of series motor
+
+clc;
+clear;
+
+N1=800;// Speed in Case 1
+Ra=1;
+I=15;
+V=200;
+Rs=5; // Series resistance
+
+Eb1=V-(I*Ra);// Back Emf in Case 1
+Eb2=V-(I*(Ra+Rs));// Back Emf in case 2
+
+//Speed directly proportional to EMF
+
+N2=Eb2*N1/Eb1;
+
+printf("The speed of the motor when connected in series to a resistance of 5 ohms = %g rpm \n",N2)
diff --git a/1319/CH6/EX6.9/6_9.sce b/1319/CH6/EX6.9/6_9.sce
new file mode 100644
index 000000000..31b028e7e
--- /dev/null
+++ b/1319/CH6/EX6.9/6_9.sce
@@ -0,0 +1,34 @@
+//Parameters calculated due to armature reaction
+
+clc;
+clear;
+
+P=8;
+Z=960;
+A=2;//Wave Winding
+
+Ia=100;
+
+cmti=Ia*Z/(2*A*P);// Total number of magnetising turns
+
+deff('y=dm(x)','y=cmti*2*x/180')// Function to find out demagnetising ampere turns
+
+// The demagnetising and cros magnetising ampere turns of the three cases respectively
+
+DM1=ceil(dm(0));
+CM1=cmti-DM1;
+
+
+DM2=ceil(dm(10)); // To avoid decimal error ceil is used
+CM2=cmti-DM2;
+
+
+DM3=ceil(dm(10*4)); // Mechanical degree * no of pair of poles = Electrical degree
+CM3=cmti-DM3;
+
+printf('i) Brushes along GNP. \n Demagnetising and cross magnetising ampere turns are %g AT/pole and %g AT/pole respectively \n\n',DM1,CM1)
+
+printf('ii) Brushes are shifted by 10 electrical degress. \n Demagnetising and cross magnetising ampere turns are %g AT/pole and %g AT/pole respectively \n\n',DM2,CM2)
+
+printf('iii) Brushes are shifted by 10 mechanical degress. \n Demagnetising and cross magnetising ampere turns are %g AT/pole and %g AT/pole respectively \n\n',DM3,CM3)
+