671/CH6/EX6.13/6_13.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

omega=exp(%i*120/180*%pi)
Vrn=400/sqrt(3)
Vyn=Vrn/omega
Vbn=Vrn*omega

P1=4000
P2=8000
P3=12000

Ir=conj(P1/Vrn)
Iy=conj(P2/Vyn)
Ib=conj(P3/Vbn)

In=Ir+Iy+Ib

disp(norm(Ir),norm(Iy),norm(Ib),norm(In))