summaryrefslogtreecommitdiff
path: root/671/CH11/EX11.14/11_14.sce
blob: 5bb262604785d84520bc627a46a34063bf89371c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

V=400
Vt=V/sqrt(3)
Ia=50
pf=1
theta=0
Xs=1.3

Ef=Vt-%i*Xs*Ia
delta=atan(imag(Ef)/real(Ef))
disp(delta*180/%pi)

Pelec=sqrt(3)*V*pf*Ia
Pmech=Pelec
pf=0.8
theta=acos(0.8)
Ia=Pelec/sqrt(3)/V/pf*exp(%i*theta)
Ef2=Vt-%i*Xs*Ia
If=0.9*norm(Ef2)/norm(Ef)
disp(If)