summaryrefslogtreecommitdiff
path: root/1076/CH16/EX16.28/16_28.sce
blob: 723b2c50ff4f02b42de86170d41f47d5def84ea8 (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
clear
clc

t1=15
P1=1.3
pf1=.75

t2=9
P2=.4
pf2=.8

pfd=.95

kvar1i=P1*1e3*tan (acos(pf1))
kvar1f=P1*1e3*tan (acos(pfd))
kvarr1=kvar1i-kvar1f

kvar2i=P2*1e3*tan (acos(pf2))
kvar2f=P2*1e3*tan (acos(pfd))
kvarr2=kvar2i-kvar2f

SBC=abs(kvarr2-kvarr1)
FBC=min(kvarr2,kvarr1)

mprintf("Switch Bank Capacity: %.2f KVAR, Fixed Bank Capacity: %.2f KVAR",SBC, FBC)