% Precizni Ec
Iq=abs(Ig)*cos(Theta0+Fi)*exp(i*angle(E))
Id=abs(Ig)*sin(Theta0+Fi)*exp(i*(angle(E)-pi/2))
E=i*Id*Xc+i*Iq*Xc+Un1/sqrt(3)
Ec2=i*Id*Xcc+i*Iq*Xc+Un1/sqrt(3)

% Alternativne
Ie=Ig'*exp(i*angle(E))
Iq=real(Ie)*exp(i*angle(E))
Id=imag(Ie)*exp(i*(angle(E)-pi/2))

figure;
ZobrazitFazory2