%[Vspol,Ismop,AngDirSm]=PDire(Vs0,Ism0);
%[Vspol,Isrop,AngDirSr]=PDire(Vs0,Isr0);
%[Vrpol,Irmop,AngDirRm]=PDire(Vr0,Irm0);
%[Vrpol,Irsop,AngDirRs]=PDire(Vr0,Irs0);
function[Vpol,Iop,AngDir]=PDire(V0,I0)
Vpol=-3*V0;
Iop=3*I0;
AngDir=angle(Vpol/Iop);
Vpol=abs(Vpol);
Iop=abs(Iop);
AngDir=-(AngDir/pi)*180;
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
