summaryrefslogtreecommitdiff
path: root/3836/CH16/EX16.3/Ex16_3.sce
blob: 8acaf4d7d2ca093f0700267947c1f8431a4b8ff1 (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
27
clear
//

//Initialisation
pf=0.75                          //power factor
S=1500                           //apparent power in W
V=240                             //Voltage in volts
P1 = 2000                         //apparent power
P2 = 1500                          //active power
Q = 1322                           //reactive power
I = 8.33                            //current in amp
f=50                                //frequency in hertz

//Calculation 
Xc=V**2/Q                        //reactive capacitance
C=1/(Xc*2*%pi*f)             //capacitance
I=S*V**-1                             //current
apf=S*pf                          //active power
//Result
printf("\n  Apparent Power, S = %d W",S)

printf("\n  Active Power, P = %d W",apf)

printf("\n  Reactive Power, Q = %d var",Q)

printf("\n  Current I = %.2f A",I)