summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.12/Ex9_12.sce
blob: 9a29fa9eb967d232b97ce527ec100e9628ffb1bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 9_12 page no:364
clc;
Zreal=4;
Zimg=3;
Vl=400;
Il=12;
Zph=sqrt(Zreal^2+Zimg^2);
PF=Zreal/Zph;
sinpi=0.6;
Active_power=sqrt(3)*Vl*Il*PF;
Reactive_power=sqrt(3)*Vl*Il*sinpi;
Apparent_power=sqrt(3)*Vl*Il;
disp(Active_power,"the active power is (in W)");
disp(Reactive_power,"the reactive power is (in VAR)");
disp(Apparent_power,"the apparent power is (in VA)");