blob: 2f4a0a3d56760ea3b430e809aa4b2305c5258fe3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc
//Example 12.3
//Calculate the line current and phase impedance
disp('Given')
disp('Line voltage = 300V, Power factor=0.8(lead), Phase power = 1200W')
Vline=300;pf=0.8;PW=1200;
Vp=Vline/sqrt(3)
PerPhpower=PW/3;
//Line current can be found as
IL=PerPhpower/(pf*Vp)
printf("Line current= %3.2f A \n",IL)
//Let Zp be the phase impedance
Zpmag=Vp/IL
//Sice power factor is 'leading'
Zpang=-(acos(0.8)*180)/%pi
printf("Phase impedance = %d/_%3.2f deg ohm",Zpmag,Zpang);
|
