summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.24/Ex9_24.sce
blob: 7e650d03416dd8613a6283a08efe41652e4d53af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Example 9_24 page no:394
clc;
//given
Wr=-3000;//power in watts
Wy=8000;//power in watts
//calculating the input power
total_pow=Wr+Wy;
disp(total_pow,"the input power is (in watts)");
//the power factor at load
tan_phi=sqrt(3)*((Wr-Wy)/(Wr+Wy));
phi=atand(tan_phi);
pow_fac=cosd(phi);
disp(pow_fac,"the power factor at load is ");