summaryrefslogtreecommitdiff
path: root/1628/CH9/EX9.15/Ex9_15.sce
blob: c966541f5ad0266b9eb17b8924e19db0ba26e827 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

                     // Example  9.15

                    // Given v= 55 Sin(wt)V   &  i= 6.1Sin(wt-pi/5)A 
Q=%pi/5;                     // Phase Angle
Vm=55;                       // Peak Value of Voltage
Im=6.1;                      // Peak Value of Current
V=Vm/sqrt(2);                // Rms value of Voltage
I=Im/sqrt(2);                // Rms value of Current

Pav=V*I*cos(Q);              // Average Value of power
disp(' Average value of Power = '+string(Pav)+' Watt');

Pa=V*I;                      // Apparent Value of power
disp(' Apparent value of Power = '+string(Pa)+' VA');

P=Pav-(V*I*cos(0.6-Q));      // Instant Power at (wt= 0.3)
disp(' Instant Power at (wt= 0.3) = '+string(P)+' VA');

pf=cos(Q);                   // Power Factor
disp(' Power Factor = '+string(pf*100)+' %');



       // p 323    9.15