summaryrefslogtreecommitdiff
path: root/1628/CH12/EX12.5/Ex12_5.sce
blob: 1bffb26d9097d5c76be53252041b83d64105fa3f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

                    // Example  12.5

p1=3000;                            // Load of 3-kW
p2=1500;                            // Load of 1.5-kW
P=p1+p2;                            // Total Load
disp(' Total Power Consumed = '+string(P)+' Watt');

Q=atand(1.732*(p1-p2)/(p1+p2));     // Power Factor Angle
pf=cosd(Q);                         // Power Factor
disp(' Power Factor is = '+string(pf));




       // p 417        12.5