summaryrefslogtreecommitdiff
path: root/671/CH8/EX8.27/8_27.sce
blob: dc6161c7572e508e9b26c30dec170b2c3c20fb9d (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
P=10000
v1=2200
v2=220
r1=4
r2=0.04
x1=5
x2=0.05
a=v1/v2
R=r1+a*a*r2
X=x1+a*a*x2
I1=P/v1
pf=0.8
V2=v2*a
theta=acos(pf)
Vd=I1*(R*cos(theta)+X*sin(theta))
VR=Vd/v1*100
V1=v1+Vd
disp(VR,V1)

pf=cos(atan(X/R))
disp("leading",pf)

Pr=P*pf
Q=-P*sin(acos(pf))
disp(Q,Pr)