summaryrefslogtreecommitdiff
path: root/3872/CH2/EX2.5/EX2_5.sce
blob: 45fcb640e231fd67ac8c1a06b1e675731c0e3145 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
//Book - Power System: Analysis & Design 5th Edition
//Authors - J. Duncan Glover, Mulukutla S. Sarma, and Thomas J. Overbye
//Chapter - 2 ; Example 2.5
//Scilab Version - 6.0.0 ; OS - Windows


clc;
clear;
Pim=400;                                    //Real Power of induction motor in kW
pfim=0.8;                                   //Power factor of the induction motor
Ssm=150;                                    //Apparent power of the synchronous motor in kVA
pfsm=0.9;                                   //Power factor of the synchronous motor
Vline=4160;                                 //RMS line voltage of AC supply in Volts
Sim=Pim/pfim;                               //Apparent power of the induction motor in kVA
Qim=sqrt(Sim*Sim-Pim*Pim);                  //Reactive power absorbed by the induction motor in kVAR
Psm=Ssm*pfsm;                               //Real power absorbed by the synchronous motor in kW
Qsm=sqrt(Ssm*Ssm-Psm*Psm);                  //Reactive power delivered by the synchronous motor in kVAR
P=Pim+Psm;                                  //Total real power of the combined load in kW
Q=Qim-Qsm;                                  //Total reactive power absorbed by the combined load in kVAR
S=sqrt(P*P+Q*Q);                            //Total apparent power absorbed by the combined load in kVA
pf=P/S;                                     //Power factor of the combined load
Iline=S*1000/(sqrt(3)*Vline);               //Line current of the combined load in Amperes
XCdel=3*Vline*Vline/(Q*1000);               //Capacitive reactance at each leg for unity power factor in Ohm 
Iupf=P*1000/(sqrt(3)*Vline);                //Line current at unity poiwer factor
printf('\nThe power factor of the combined motor load is %f',pf);
printf('\nThe magnitude of line current delivered by the source is %f Amperes',Iline);
printf('\nThe magnitude of capacitive reactance at each leg for unity power factor is %f Ohm',XCdel);
printf('\nThe magnitude of the line current delivered by the source with capacitor bank installed is %f Amperes',Iupf);