summaryrefslogtreecommitdiff
path: root/671/CH8/EX8.25/8_25.sce
blob: e40e6119e08e8842a36246aeb4e2ce2e1832ad47 (plain)
1
2
3
4
5
6
7
8
9
10
v1=220
v2=110
z1=0.32+%i*0.85
z2=0.11+%i*0.27
a=v1/v2

z=z1+a*a*z2
IHV=v1/norm(z)
ILV=IHV*a
disp(IHV,ILV)