summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.a.8/Example_a_9_8.sce
blob: 67788d01474771eae8706049979aa16e40d4733c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example_a_9_8 page no:408
clc;
Iph=10;
Vl=440;
pi=30;
Il=sqrt(3)*Iph;
Pac=sqrt(3)*Vl*Il*cosd(pi);
Pac=Pac/1000;//converting to killo Watt
Prc=sqrt(3)*Vl*Il*sind(pi);
Prc=Prc/1000;//converting to killo VAR
disp(Il,"the line current is (in A)");
disp(Pac,"the total active power is (in KW)");
disp(Prc,"the total reactive power is (in KVAR)");