summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.22/Ex9_22.sce
blob: 5c6d15c1f7deea568d4b6297110856f63ad03ff6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 9_22 page no:391
clc;
//given data
Wr=400;//power in watts
Wy=-35;//power in  watts
//calculating total acitve power
T_active_pow=Wr+Wy;
disp(T_active_pow,"the total active power is (in watts)");
//calculting the power factor
phi=atand(sqrt(3)*((Wr-Wy)/(Wr+Wy)));
phi=cosd(phi);
disp(phi,"the power factor is");
//calculating the reactive power
rec_pow=sqrt(3)*(Wr-Wy);
disp(rec_pow,"the reactive power is (in VAR)");