#given data
slots=24;#no. of slotes
NoOfPhase=3;#no of phase
MotorSpeed=1450;#in rpm
N=1500;#Synchonous Speed in rpm
f=50;#in Hz
#Calculations&Results
print "As the winding is in single layer, each slot contains one coil slide only.";
CoilSlidePerSlot=1;#coil slide per slot
CoilSlidePerCoil=2;#coil slide per Coil
TotalCoils=slots*CoilSlidePerSlot/CoilSlidePerCoil;#no. of coils
print "Total no. of Coils : ",TotalCoils;
P=120*f/N;#no. of poles
print "No. of poles : ",P;
PolesPitch=slots/P;#unitless
print "Poles Pitch = ",PolesPitch;
print "In case of single layer winding, the pole ppitch is generally taken in odd numbers only"
print "let pole pitch = 5(for short pitch winding)";
PolesPitch=5;#for short pitch winding
print "Coil Span or coil through = 1-6";
CoilsPerPolePerPhase=TotalCoils/(P*NoOfPhase);#No. of Coils/Pole/Phase
print "No. of Coils/Pole/Phase = ",CoilsPerPolePerPhase;
pair_of_poles=2;#no. of pair of poles
TotalElectricalDegree=360*pair_of_poles;#in degree
ElectricalDegreesPerSlot=TotalElectricalDegree/slots;#in degree electrical
print "Electrical Degrees/Slot = ",ElectricalDegreesPerSlot;
Slots_required=120/ElectricalDegreesPerSlot;#No. of slotes required for proper phase displacement
print "No. of slotes required for proper phase displacement = ",Slots_required;
print "Winding Table is as follows :";
print "Coil No. Connection Lead from Coil Span Phase and Group No.";
print " 1 A1 1-6 A1";
print " 2 3-8 C4";
print " 3 B1 5-10 B1";
print " 4 7-12 A2";
print " 5 C1 9-14 C1";
print " 6 11-16 B2";
print " 7 13-18 A3";
print " 8 15-20 C2";
print " 9 17-22 B3";
print " 10 19-24 A4";
print " 11 21-2 C3";
print " 12 23-4 B4";
#given data
slots=24;#no. of slotes
P=4;#no. of poles
CoilPitch=5;#unitless
NoOfPhase=3;#no of phase
#Calculations&Results
print "As the winding is in double layer, each slot contains 2 coils per slide.";
CoilSlidePerSlot=2;#coil slide per slot
CoilSlidePerCoil=2;#coil slide per Coil
TotalCoils=slots*CoilSlidePerSlot/CoilSlidePerCoil;#no. of coils
print "Total no. of Coils : ",TotalCoils;
PolesPitch=slots/P;#unitless
print "Pole Pitch = ",PolesPitch;
CoilsPerPolePerPhase=TotalCoils/(P*NoOfPhase);#No. of Coils/Pole/Phase
print "No. of Coils/Pole/Phase = ",CoilsPerPolePerPhase;
pair_of_poles=2;#no. of pair of poles
TotalElectricalDegree=360*pair_of_poles;#in degree
ElectricalDegreesPerSlot=TotalElectricalDegree/slots;#in degree electrical
print "Electrical Degrees/Slot = ",ElectricalDegreesPerSlot;
Slots_required=120/ElectricalDegreesPerSlot;#No. of slotes required for proper phase displacement
print "No. of slots required for proper phase displacement = ",Slots_required;
print "ie. Phase A1 is brought out from slot no. = 1";
print "Phase B1 at slot no. = 1+4 = 5";
print "Phase C1 at slot no. = 5+4 = 9";
print "Col Connection - end to start to start";
print "Winding Table is as follows :";
print "Coil No. Connection Lead from Coil Span Phase and Group No.";
print " 1 A1 1-6 A1";
print " 2 2-7 ";
print " 3 3-8 C4";
print " 4 4-9 ";
print " 5 B1 5-10 B1";
print " 6 6-11 ";
print " 7 7-12 A2";
print " 8 8-13 ";
print " 9 C1 9-14 C1";
print " 10 10-15 ";
print " 11 11-16 B2";
print " 12 12-17 ";
print " 13 13-18 A3";
print " 14 14-19 ";
print " 15 15-20 C2";
print " 16 16-21 ";
print " 17 17-22 B3";
print " 18 18-23 ";
print " 19 19-24 A4";
print " 20 20-1 ";
print " 21 21-2 C3";
print " 22 22-3 ";
print " 23 23-4 ";
print " 24 24-5 B4";
from math import pi, sqrt, sin, cos
#given data
StatorSlots=36;#No. of stator slots
Poles=4;#No. of poles
#coilSpan=1:8;#unitless
#Calculations&Results
SlotsPerPole=StatorSlots/Poles;# no. of slots per pole
print "Slots/Pole = ",SlotsPerPole;
print "Here the coil span falls short by, ",((2./9)*180)," Degree";
alfa=40*pi/180;#short pitch angle in degree
Kp=cos(alfa/2);#Coil span Factor
print "Pitch Factor or coil span factor : ",round(Kp,1);
from math import pi, sqrt, sin, cos
#given data
NoOfPhase=3;#no of phase
P=16;#No. of pole alternator
Slots=144;#No. of slots
Conductors=10;#per slot
fi=0.03;#in Weber
N=375;#machine speed in rpm
#Calculations
f=P*N/120;#in Hz
SlotsPerPole=Slots/P;#unitless
m=Slots/(P*NoOfPhase);#unitless
Beta=180/(SlotsPerPole);#in Degree
Kd=sin(m*Beta/2*pi/180)/(m*sin(Beta/2*pi/180));#unitless
TotalConductors=Conductors*Slots;#no. of conductors
TotalConductorsPerPhase=Conductors*Slots/NoOfPhase;#no. of conductors/phase
TurnsPerPhase=TotalConductorsPerPhase/2;#No. of turns per phase
EMFPerPhase=4.44*Kd*fi*f*TurnsPerPhase;#in Volt
LineVoltage=sqrt(3)*EMFPerPhase;#in Volt
#Results
print "Frequency in Hz : ",f;
print "Phase Electromotive force in Volt : ",round(EMFPerPhase,1);
print "Line Electromotive force in Volt : ",round(LineVoltage,3);
from math import pi, sqrt, sin, cos
#given data
NoOfPhase=3;#no of phase
SlotsPerPhase=3;#o. of slots
#Calculations&Results
m=SlotsPerPhase;#no. of slots
SlotsPerPolePerPhase=SlotsPerPhase*NoOfPhase;#unitless
Beta=180./SlotsPerPolePerPhase;#in degree
print "The phase difference between the induced emf in two coils lying in adjacent slots = ",(Beta)," degree";
Kb=sin((m*Beta*pi)/(2*180))/(m*sin((Beta*pi)/(2*180)));#unitless
print "The breadth factor : ",round(Kb,3);
from math import pi, sqrt, sin, cos
#given data
StatorSlots=24#No. of stator slots
Poles=4;#No. of poles
SlotsPerPole=StatorSlots/Poles;# no. of slots per pole
#coilSpan=1:6;#unitless
#Calculations&Results
print "If the sides of the coil are placed in slots 1 and 7, then it is full pitched, \nIf the coil slides are placed" \
+ " in 1 and 6 then it is short pitched and the distance equal to 5/6th of pole-pitch.";
print "Since it falls short by 1/6th of the pole-pitch, hence it is short by :"
theta=180/SlotsPerPole;#in Degree
print (theta)," Degree."
Kp=cos(theta/2*pi/180);#unitless
print "Pitch-factor Kp : ",round(Kp,4);
from math import pi, sqrt, sin, cos
#given data
NoOfPhase=3;#no of phase
Eph=3300/sqrt(3);#in Volts
f=50;#in Hz
Poles=12;#No. of poles
StatorSlots=144#No. of stator slots
#Calculations
SlotsPerPhase=StatorSlots/NoOfPhase;#no. of slots/phase
Conductors=5;#per slot
ConductorsPerphase=SlotsPerPhase*Conductors;#Conductors/Phase
S=ConductorsPerphase;#Conductors/phase
SlotsPerPolePerPhase=SlotsPerPhase/Poles;#no. of slots/phase
Kf=1.11;#Form Factor
Kb=0.96;#Breadth Factor
Kp=1;#For concentric winding
fi=Eph/(2*Kf*Kb*Kp*S*f);#in weber
#Result
print "The Flux per pole in weber : ",round(fi,4);
from math import pi, sqrt, sin, cos
#given data
Phase=3;#no. of phase
f=50;#in Hz
P=16;#No. of pole alternator
Slots=144.;#No. of slots
conductors=10;#conductors per slot
#Calculations&Results
fi=2.48*10**-2;#in weber
n=Slots/P;#No. of slots/pole
Zr=Slots*conductors/Phase;#No. of conductors/Phase
T=Zr/2;#N. of turns/phase
Beta=180/n;#Angular displacement between slots in degree
m=n/Phase;#No. of slots/pole/Phase
Kd=sin(m*Beta/2*pi/180)/(m*sin(Beta/2*pi/180));#Distribution factor :unitless
print "The coil span falls short of 2 slots i.e. ",(2*180/9)," degree.";
alfa=40;#short pitch angle in degree
Kp=(cos(alfa/2*pi/180));#Unitless
#Formula : f=P*N/120;#in Hz
N=120*f/P;#in rpm
Ep=4.44*Kd*Kp*fi*f*T;#in Volts
LineVoltage=sqrt(3)*Ep;#in Volts
print "The speed is ",(N)," in rpm";
print "The line emf is ",round(LineVoltage,2)," Volts";
#Note : Answer in the book is not accurate for last part due to rounding off errors
from math import pi, sqrt, sin, cos
#given data
RatedPower=100;#in KVA
RatedPower=100*1000;#in VA
VL=1040;#in Volt
Phase=3;#Machine phase
If=40;#in Ampere
Isc=200;#in Ampere
EL=1040;#in Volt
#Calculations&Results
Eph=EL/sqrt(3);#in Volt
Zs=Eph/Isc;#in Ohm
Rs=0.2;#in Ohm
Xs=sqrt(Zs**2-Rs**2);#in Ohm
IL=19.25;#in Ampere
V=3000/sqrt(3);#in Volt
#At 0.8 power factor lagging
IRa=IL*0.2;#in Volt
IXs=IL*Xs;#in Volt
Vsin_fi=V*0.6;#in Volt
Vcos_fi=V*0.8;#in Volt
Eo=sqrt((Vcos_fi+IRa)**2+(Vsin_fi+IXs)**2);#in Volts
Regulation=((Eo-V)/V)*100;#in %
print "Full load percentage regulation at a power factor of 0.8 lagging : ",round(Regulation,1);
#At 0.8 power factor leading
Eo=sqrt((Vcos_fi+IRa)**2+(Vsin_fi-IXs)**2);#in Volts
Regulation=((Eo-V)/V)*100;#in %
print "Full load percentage regulation at a power factor of 0.8 leading : ",round(Regulation,2);
print "Negative regulation due to leading power factor.";
from math import pi, sqrt, sin, cos
#given data
RatedPower=50;#in KVA
RatedPower=50*1000;#in VA
VL=173;#in Volts
Ra=0.1;#in Ohm
#Calculations&Results
VP=VL/sqrt(3);#in Volts
print "Some exciting curent on short circuit produces a current of 100 A.";
OC_PhaseVoltage=100;#in Volt
SC_Current=100;#in Ampere
Zs=OC_PhaseVoltage/SC_Current;#n ohm
Xs=sqrt(Zs**2-Ra**2);#in Ohm
print "Impedence of the alternator in Ohm : ",round(Xs,2);
V=400;#in Volts
I_FL=RatedPower/(sqrt(3)*V);#in Ampere
V=400/sqrt(3);#in Volts
Eo=sqrt((V+I_FL*Ra)**2+(I_FL*Xs)**2);#in Volts
Regulation=(Eo-V)*100/V;#in %
print "Regulation at U.P.F. in % :",round(Regulation,2);
from math import pi, sqrt, cos, sin
#given data
OutputPower=500;#in KVA
OutputPower=500*1000;#in VA
VL=3300;#in Volts
Ra=0.3;#in Ohm
Xs=4;#in Ohm
PF=0.8;#Lagging Power factor
#Calculations&Results
#Formula : outputPower=sqrt(3)*VL*IL
IL=OutputPower/(sqrt(3)*VL);#in Ampere
print "For a star connected alternator, line current is equal to phase current. Therefore Ia=IL";
Ia=IL;#in Ampere
#PF=cosd(fi)=0.8 and sind(fi)=0.6
cos_fi=0.8;#Power factor
sin_fi=0.6;#Unitless
VPerPhase=VL/sqrt(3);#in Volts
E=sqrt((VPerPhase*cos_fi+Ia*Ra)**2+(VPerPhase*sin_fi+Ia*Xs)**2);#in Volts/Phase
Regulation=(E-VPerPhase)*100/VPerPhase;#in %
print "Voltage Regulation at Full Load in % :",round(Regulation,2);
from math import pi, sqrt, sin, cos
#given data
V=2000;#in Volt
Ia=100;#in Ampere
OC_Voltage=500;#in Volt
SC_Current=100;#in Ampere
#Calculations&Results
Zs=OC_Voltage/SC_Current;#in ohm
Ra=0.8;#in Ohm
Xs=sqrt(Zs**2-Ra**2);#in Ohm
#formula : Induced EMF, E=sqrt((V*cos_fi+Ia*Ra)^2+(V*sin_fi+Ia*Xs)^2)
#Part (a) : at unity pf
cos_fi=1;#Unitless
sin_fi=0;#Unitless
E=sqrt((V*cos_fi+Ia*Ra)**2+(V*sin_fi+Ia*Xs)**2)
Regulation=(E-V)*100/V;#in %
print "Regulation at U.P.F. in % :",round(Regulation,2);
#Part (b) : at 0.71 pf lagging
cos_fi=0.71;#Unitless
sin_fi=0.704;#Unitless
E=sqrt((V*cos_fi+Ia*Ra)**2+(V*sin_fi+Ia*Xs)**2)
Regulation=(E-V)*100/V;#in %
print "Regulation at 0.71 pf lagging in % :",round(Regulation,2);
#Part (c) : at 0.8 pf leading
cos_fi=0.8;#Unitless
sin_fi=0.6;#Unitless
E=sqrt((V*cos_fi+Ia*Ra)**2+(V*sin_fi-Ia*Xs)**2)
Regulation=(E-V)*100/V;#in %
print "Regulation at 0.8 pf leading in % :",round(Regulation,2);
#given data
Ia=60;#in Ampere
#Calculations&Results
print "The value of synchronous impedence at this excitation :" ;
OC_Voltage=900;#in Volt
SC_Current=150;#in Ampere
Zs=OC_Voltage/SC_Current;#in ohm
print "Zs equals to ",(Zs)," Ohm";
print "Internal Voltage drop when tthe load current is 60A=Ia*Zs=",(Ia*Zs)," Volts";
from math import pi, sqrt, sin, cos
#given data
V=6600;#in Volts
OutputPower=2000;#in KVA
#Calculations
OutputPower=2000*1000;#in VA
#Formula : outputPower=sqrt(3)*VL*IL
IL=OutputPower/(sqrt(3)*V);#in Ampere
Ia=IL;#in Ampere
Ra=0.4;#in Ohm
Xs=4.5;#in Ohm
#PF=cosd(fi)=0.8 and sind(fi)=0.6
cos_fi=0.8;#Power factor
sin_fi=0.6;#Unitless
VPerPhase=V/sqrt(3);#in Volts
E=sqrt((VPerPhase*cos_fi+Ia*Ra)**2+(VPerPhase*sin_fi+Ia*Xs)**2);#in Volts/Phase
Regulation=(E-VPerPhase)*100/VPerPhase;#in %
#Result
print "Percentage Change in Terminal Voltage :",round(Regulation,1);
from math import pi, sqrt, sin, cos
#given data
OutputPower=1200;#in KVA
OutputPower=1200*1000;#in VA
V=3300;#in Volt
Ra=0.25;#in Ohm
#Calculations&Results
#Formula : outputPower=sqrt(3)*VL*IL
IL=OutputPower/(sqrt(3)*V);#in Ampere
Ia=IL;#in Ampere
VPerPhase=V/sqrt(3);#in Volts
OC_Voltage=1100;#in Volt
SC_Current=200;#in Ampere
Zs=OC_Voltage/(sqrt(3)*SC_Current);#in ohmRa
Xs=sqrt(Zs**2-Ra**2);#in Ohm
#formula : Induced EMF, E=sqrt((V*cos_fi+Ia*Ra)^2+(V*sin_fi+Ia*Xs)^2)
#Part (a) : For lagging pf load
cos_fi=0.8;#Unitless
sin_fi=0.6;#Unitless
E=sqrt((VPerPhase*cos_fi+Ia*Ra)**2+(VPerPhase*sin_fi+Ia*Xs)**2);
Regulation=(E-VPerPhase)*100/VPerPhase;#in %
print "Regulation at U.P.F. in % :",round(Regulation,2);
#Part (b) : For leading pf load
cos_fi=0.8;#Unitless
sin_fi=0.6;#Unitless
E=sqrt((VPerPhase*cos_fi+Ia*Ra)**2+(VPerPhase*sin_fi-Ia*Xs)**2)
Regulation=(E-VPerPhase)*100/VPerPhase;#in %
print "Regulation at 0.71 pf lagging in % :",round(Regulation,2);
#Note: For leading power factor load, the regulation s negative.
from math import pi, sqrt, sin, cos
#given data
OutputPower=1500;#in KVA
OutputPower=1500*1000;#in VA
V=6600;#in Volt
Ra=0.4;#in Ohm
Xs=6;#in Ohm per phase
pf=0.8;#lagging power factor
#Calculations&Results
#Formula : outputPower=sqrt(3)*VL*IL
Ia=OutputPower/(sqrt(3)*V);#in Ampere
VPerPhase=V/sqrt(3);#in Volts
#formula : Induced EMF, E=sqrt((V*cos_fi+Ia*Ra)^2+(V*sin_fi+Ia*Xs)^2)
cos_fi=0.8;#Unitless
sin_fi=0.6;#Unitless
E=sqrt((VPerPhase*cos_fi+Ia*Ra)**2+(VPerPhase*sin_fi+Ia*Xs)**2);#in volt
print "Induced emf in volt : ",round(E,2);
print "As excitation remains constant, E at 4364 volt remains constant.";
E=4364;#in Volt
V=4743;#in Volts
TerminalVoltage=sqrt(3)*V;#in Volts
print "Terminal voltage line to line in Volts : ",round(TerminalVoltage);
#Note ans of 1st part is wrong in the books
from math import pi, sqrt, sin, cos, atan, tan
#given data
OutputPower=2500;#in KVA
OutputPower=2500*1000;#in VA
V=6600;#in Volt
#Calculations
#For first load i.e. Lighting load :
KW1=2500;#in KWatts
KVAR1=0;#Kwatts
#For second load i.e. Motor load :
KW2=5000;#in KWatts
cos_fi=0.707;#unitless
sin_fi=0.707;#unitless
KVAR2=KW2*sin_fi/cos_fi;#Kwatts
#For total load
TotalKW=KW1+KW2;#in KWatts
TotalKVAR=KVAR1+KVAR2;#Kwatts
#For first Machine
KWm=4000;#in KWatts
cos_fi=0.8;#unitless
sin_fi=0.6;#unitless
KVARm=KWm*sin_fi/cos_fi;#Kwatts
#so, second machine will be supplying
KW=TotalKW-KWm;#in Kwatts
print "KW output of second machine : ",KW;
KVAR=TotalKVAR-KVARm;#in KWatts
tan_fi=KVAR/KW;#unitless
fi=atan(tan_fi);#ib degree
#Power factor of other machine
pf=cos(fi);#unitless
#Result
print "Power factor of other machine : ",round(pf,4)," lagging";
from math import pi, sqrt, sin, cos
#given data
#Load1 :
KW1=500;#in KWatts
KVAR1=0;#Kwatts
#Load2 :
KW2=1000;#in KWatts
pf=0.9;#lagging
cos_fi=0.9;#unitless
fi=acos(pf);
sin_fi=sin(fi);#unitless
KVAR2=KW2*sin_fi/cos_fi;#Kwatts
#Load3 :
KW3=800;#in KWatts
pf=0.8;#lagging
cos_fi=0.8;#unitless
fi=acos(pf);
sin_fi=sin(fi);#unitless
KVAR3=KW3*sin_fi/cos_fi;#Kwatts
#Load4 :
KW4=500;#in KWatts
pf=0.9;#lagging
cos_fi=0.9;#unitless
fi=acos(pf);
sin_fi=sin(fi);#unitless
KVAR4=-KW4*sin_fi/cos_fi;#Kwatts
#TOtalKW and TotalKVAR
TotalKW=KW1+KW2+KW3+KW4;#in KWatts
TotalKVAR=KVAR1+KVAR2+KVAR3+KVAR4;#in KWAtts
#For the first Machine :
KW=1500;#n Kwatts
cos_fi=0.95;#unitless
sin_fi=0.3123;#unitless
KVAR=KW*sin_fi/cos_fi;#Kwatts
KW1=TotalKW-KW;#in KWatts
KVAR1=TotalKVAR-KVAR;#in Volts
print "KW supplied by other machine : ",(TotalKW-KW);
print "KVAR supplied by other machine : ",round(TotalKVAR-KVAR); #answer differs due to rounding off the digits
tan_fi=KVAR1/KW1;#unitless
#fi=atand(tan_fi);#in degree
cos_fi=cos(atan(tan_fi));#unitless
#Result
print "Power factor of the other machine : ",round(cos_fi,3);
from math import pi, sqrt, sin, cos, acos, tan, atan
#given data
#Lighting Load :
MW1=20;#load in Mwatts
KW1=MW1*1000;#in KWatts
KVAR1=0;#Kwatts
#Motor Load :
MW2=40;#load in Mwatts
KW2=MW2*1000;#in KWatts
pf=0.8;#unitless
cos_fi=0.8
fi=acos(pf);
sin_fi=sin(fi);#unitless
KVAR2=KW2*sin_fi/cos_fi;#Kwatts
#For Total Load :
TotalKW=KW1+KW2;#load in Mwatts
TotalKVAR=KVAR1+KVAR2;#in KWatts
#For first machine :
MWm=32;#load in Mwatts
KWm=MWm*1000;#in KWatts
cos_fi=0.866;#unitless
fi=acos(cos_fi);
tan_fi=tan(fi);#unitless
KVARm=KWm*tan_fi;#in KWatts
#so, load supplied by the second machine
KW2=TotalKW-KWm;#in Kwatts
print "Load of other machine,KW : ",(KW2);
KVAR2=TotalKVAR-KVARm;#in Kwatts
tan_fi=KVAR2/KW2;#unitless
fi=atan(tan_fi);#in degree
cos_fi=cos(atan(tan_fi));#unitless
#Result
print "Power factor of the other machine : ",round(cos_fi,3);
from math import pi, sqrt, sin, cos, atan, tan, acos
#given data
cos_fi=0.8;#unitless
fi=acos(cos_fi);
tan_fi=tan(fi);#unitless
#For Alternator A :
cos_fi_A=0.9;#unitless
fi_A=acos(cos_fi_A);
tan_fi_A=tan(fi_A);#unitless
#Formula : Active load, KW=V*I*cos_fi
#Formula : Reactive load, KVAR=V*I*sin_fi
ActiveLoad=8000;#in KW
ReactiveLoad=ActiveLoad*tan_fi;#in KVAR
#For A:
ActiveLoadA=5000;#in KW
ReactiveLoadA=ActiveLoadA*tan_fi_A;#in KVAR
#For B :
ActiveLoadB=ActiveLoad-ActiveLoadA;#in KW
ReactiveLoadB=ReactiveLoad-ReactiveLoadA;#in KVAR
tan_fi_B=ReactiveLoadB/ActiveLoadB;#unitless
fi_B=atan(tan_fi_B);#in degree
cos_fi=cos(atan(tan_fi_B));#unitless
#Result
print "Power factor of the other machine : ",round(cos_fi,3);
from math import pi, sqrt, sin, cos
#given data
V=6600;#in Volts
KW=6000.;#in KWatts
pf=0.8;#unitless
cos_fi=pf;#unitless
Eff=90.;#in %
#Calculations&Results
#Part (a) :
KVA=KW/cos_fi;#in KVAR
print "KVA rating of the alternator : ",(KVA)," KVA";
#Part (b) :
TotalRating=KVA;#in KVA
VA=TotalRating*1000;#in VA
I=VA/(sqrt(3)*KW);#in Ampere
print "Current Rating in Ampere : ",round(I,2);
#Part (c) :
Input=KW/(Eff/100);#in KW
print "Power Input(in KW) :",round(Input,2);
Input=Input*1000/735.5;#in hp
print "Power Input(in hp) :",round(Input,2);
from math import pi, sqrt, sin, cos
#given data
Ecoil=8000;#in Volts
Icoil=418;#in Ampere
pf=80.;#in % lgging
#Calculations&Results
pf=pf/100;#in fraction
cos_fi=pf;#unitless
#Part (i) :
EL=sqrt(3)*Ecoil;#in volt
print "Line volts(in V): ",round(EL);
#Part (ii) :
IL=Icoil;#in Ampere
print "Line Current in Ampere : ",IL;
#Part (iii) :
Rating=sqrt(3)*EL*IL/1000;#in KVA
print "Rating (in KVA) :",Rating;
#Part (iv) :
FullLoadPower=sqrt(3)*EL*IL*cos_fi/1000;#in KW
print "Full Load Power in KW :",FullLoadPower;