%[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;