blob: ae7d91ad80506ae3984c096ac6088b75c6f66bee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
//Phase voltage Vp, Impedance Z
close();
clear;
clc;
Vp = 120;//V
Z = 36 + %i*48;//ohm
//Line Voltage 'Vl'
Vl = 3^(1/2)*Vp;
Ip = Vp/polar(Z);
Il = Ip;
R = real(Z);
//Power factor 'Pf'
Pf = R/polar(Z);
P = 3^(1/2)*Vl*Il*Pf;
mprintf('Line voltage Vl = %0.1f V\nLine current Il = %0.0f A\nPower factor = %0.1f lagging \nPower P = %0.0f W',Vl,Il,Pf,P);
|
