clc
variasejecuciones=1;
while variasejecuciones==1
clear
% --------------------------------------------------
salida=input('Pantalla=1, Archivo=2 :');
if salida==2
cadena=input('Poner NombreArchivo.txt:','s');
cadena1=strcat('Salida\',cadena);
end
if salida==1
fid=1;
elseif salida==2
fid=fopen(cadena1,'w+');
end
fprintf('\n');
% --------------------------------------------------
fprintf(fid,'PC173\n');
fprintf(fid,'\n');
fprintf(fid,'Esquema 3 Lineas entre S y R\n');
fprintf(fid,'Falta Triple m,p,q\n');
fprintf(fid,'zsr si, no\n');
fprintf(fid,'\n');
% --------------------------------------------------
%PC73
datos=input('datos: standard=1,por input=2: ');
if datos==1
Un=220;
kE=1.0;
L=220;
imptransfer=2;
Sccs=5000;
Sccr=5000;
Kr0=1;
% ---------------------------------------------
else
Un=input('Un(400,220,132,66) kV: ');
kE=input('kE: ');
L=input('Longitud Linea km: ');
imptransfer=input('imptransfer:si=1,no=2: ');
if imptransfer==1
zsr1=input('zsr1=zsr2(Complejo r+xi en Ohms): ');
zsr2=zsr1;
Ksr0=input('Ksr0=zsr0/zsr1= ');
zsr0=Ksr0*zsr1;
end
Sccs=input('Sccs MVA: ');
Sccr=input('Sccr MVA: ');
Kr0=input('Kr0=zr0/zr1: ');
end
k0=input('k0=zs0/zr0: ');
m=input('m pu: ');
p=input('p pu: ');
q=input('q pu: ');
% ---------------------------------------------------------------------
% CALCULOS
% ---------------------------------------------------------------------
% PRELIMINARES
%Constantes de la Linea Doble, por Linea y por km
if Un==400
zl1u=0.0346+0.3208i; zl2u=zl1u; zl0u=0.1828+1.1482i; zlM0u=0.1482+0.7383i;
elseif Un==220
zl1u=0.0829+0.4135i; zl2u=zl1u; zl0u=0.2311+1.3085i; zlM0u=0.1482+0.8031i;
elseif Un==132
zl1u=0.1342+0.4042i; zl2u=zl1u; zl0u=0.2824+1.3718i; zlM0u=0.1482+0.8947i;
elseif Un==66
zl1u=0.2156+0.3952i; zl2u=zl1u; zl0u=0.3636+1.4278i; zlM0u=0.1482+0.9288i;
end
zr1=(Un^2/Sccr)*i; zr2=zr1; zr0=Kr0*zr1;
zs1=(Un^2/Sccs)*i; zs2=zs1; zs0=k0*zr0;
zl1=zl1u*L; zl2=zl1; zl0=zl0u*L; zlM0=zlM0u*L;
E=Un*1000/sqrt(3)+0i;
E=kE*E;
k=(zl0u-zl1u)/(3*zl1u);
Sm=zl1u*m*L; Rm=zl1u*(1-m)*L;
Sp=zl1u*p*L; Rp=zl1u*(1-p)*L;
Sq=zl1u*q*L; Rq=zl1u*(1-q)*L;
switch(imptransfer)
case{1},
[Minc]=subMincsr(1);
[z1]=subz1sr(zs1,zr1,zsr1,zl1,m,p,q);
[z2]=subz2sr(zs2,zr2,zsr2,zl2,m,p,q);
[z0]=subz0sr(zs0,zr0,zsr0,zl0,zlM0,m,p,q);
case{2},
[Minc]=subMinc(1);
[z1]=subz1(zs1,zr1,zl1,m,p,q);
[z2]=subz2(zs2,zr2,zl2,m,p,q);
[z0]=subz0(zs0,zr0,zl0,zlM0,m,p,q);
end
% YBUS(0,1,2)
[Y0]=subY0(Minc,z0);
[Y1]=subY1(Minc,z1);
[Y2]=subY2(Minc,z2);
% ZBUS(0,1,2)
Z0=inv(Y0);
Z1=inv(Y1);
Z2=inv(Y2);
% CALCULO DE LAS COMPONENTES SIMETRICAS DE V,I EN LOS PUNTOS m,p DE FALTA
[Im0,Im1,Im2,Vm0,Vm1,Vm2,Ip0,Ip1,Ip2,Vp0,Vp1,Vp2,Iq0,Iq1,Iq2,Vq0,Vq1,Vq2,faltam,faltap,faltaq,Rfm,Rgm,Rfp,Rgp,Rfq,Rgq]=...
ma2mp(Z0,Z1,Z2,E);
% IBUS(0,1,2)
I0=[-Im0;-Ip0;-Iq0;0;0];
I1=[-Im1;-Ip1;-Iq1;0;0];
I2=[-Im2;-Ip2;-Iq2;0;0];
% VBUS(0,1,2)
V0=Z0*I0;
V1=Z1*I1+E;
V2=Z2*I2;
% Ie(0,1,2) DE LOS ELEMENTOS
[Ie0]=subIe0(Minc,V0,z0);
[Ie1]=subIe1(Minc,V1,z1);
[Ie2]=subIe2(Minc,V2,z2);
% ASIGNACIONES V(0,1,2)
Vs0=V0(4); Vr0=V0(5);
Vs1=V1(4); Vr1=V1(5);
Vs2=V2(4); Vr2=V2(5);
% ASIGNACIONES I(0,1,2)
Ism0=Ie0(3); Irm0=Ie0(6); Isp0=Ie0(4); Irp0=Ie0(7); Isq0=Ie0(5); Irq0=Ie0(8);
Ism1=Ie1(3); Irm1=Ie1(6); Isp1=Ie1(4); Irp1=Ie1(7); Isq1=Ie1(5); Irq1=Ie1(8);
Ism2=Ie2(3); Irm2=Ie2(6); Isp2=Ie2(4); Irp2=Ie2(7); Isq2=Ie2(5); Irq2=Ie2(8);
if imptransfer==1
Isr0=Ie0(9);
Isr1=Ie1(9);
Isr2=Ie2(9);
end
% CALCULO DE LAS COMPONENTES DE FASE DE V,I EN LOS PUNTOS m,p,q DE FALTA
[Vma,Vmb,Vmc]=abc(Vm0,Vm1,Vm2);
[Vpa,Vpb,Vpc]=abc(Vp0,Vp1,Vp2);
[Ima,Imb,Imc]=abc(Im0,Im1,Im2);
[Ipa,Ipb,Ipc]=abc(Ip0,Ip1,Ip2);
[Vqa,Vqb,Vqc]=abc(Vq0,Vq1,Vq2);
[Iqa,Iqb,Iqc]=abc(Iq0,Iq1,Iq2);
if imptransfer==1
[Isra,Isrb,Isrc]=abc(Isr0,Isr1,Isr2);
end
%
% CALCULO DE LAS COMPONENTES DE FASE DE V,I EN LOS EXTREMOS DE LINEA
[Vsa,Vsb,Vsc]=abc(Vs0,Vs1,Vs2);
[Vra,Vrb,Vrc]=abc(Vr0,Vr1,Vr2);
[Isma,Ismb,Ismc]=abc(Ism0,Ism1,Ism2);
[Irma,Irmb,Irmc]=abc(Irm0,Irm1,Irm2);
[Ispa,Ispb,Ispc]=abc(Isp0,Isp1,Isp2);
[Irpa,Irpb,Irpc]=abc(Irp0,Irp1,Irp2);
[Isqa,Isqb,Isqc]=abc(Isq0,Isq1,Isq2);
[Irqa,Irqb,Irqc]=abc(Irq0,Irq1,Irq2);
%
% CALCULO DE LAS MEDIDAS DE LAS PROTECCIONES DE DISTANCIA EN
% LOS EXTREMOS DE LINEA
[Sm_ZAB,Sm_ZBC,Sm_ZCA,Sm_ZAG,Sm_ZBG,Sm_ZCG]=...
PDist(Vsa,Vsb,Vsc,Isma,Ismb,Ismc,Ism0,k);
[Rm_ZAB,Rm_ZBC,Rm_ZCA,Rm_ZAG,Rm_ZBG,Rm_ZCG]=...
PDist(Vra,Vrb,Vrc,Irma,Irmb,Irmc,Irm0,k);
[Sp_ZAB,Sp_ZBC,Sp_ZCA,Sp_ZAG,Sp_ZBG,Sp_ZCG]=...
PDist(Vsa,Vsb,Vsc,Ispa,Ispb,Ispc,Isp0,k);
[Rp_ZAB,Rp_ZBC,Rp_ZCA,Rp_ZAG,Rp_ZBG,Rp_ZCG]=...
PDist(Vra,Vrb,Vrc,Irpa,Irpb,Irpc,Irp0,k);
[Sq_ZAB,Sq_ZBC,Sq_ZCA,Sq_ZAG,Sq_ZBG,Sq_ZCG]=...
PDist(Vsa,Vsb,Vsc,Isqa,Isqb,Isqc,Isq0,k);
[Rq_ZAB,Rq_ZBC,Rq_ZCA,Rq_ZAG,Rq_ZBG,Rq_ZCG]=...
PDist(Vra,Vrb,Vrc,Irqa,Irqb,Irqc,Irq0,k);
%
% CALCULO DE LAS MAGNITUDES DE ALIMETACION DE LA PROTECCION
% DIRECCIONAL DE TIERRA EN LOS EXTREMOS DE LINEA
[Vspol,Ismop,AngDirSm]=PDire(Vs0,Ism0);
[Vrpol,Irmop,AngDirRm]=PDire(Vr0,Irm0);
[Vspol,Ispop,AngDirSp]=PDire(Vs0,Isp0);
[Vrpol,Irpop,AngDirRp]=PDire(Vr0,Irp0);
[Vspol,Isqop,AngDirSq]=PDire(Vs0,Isq0);
[Vrpol,Irqop,AngDirRq]=PDire(Vr0,Irq0);
% PREPARACION SALIDAS
if faltam==1
cfaltam='ag';
elseif faltam==2
cfaltam='bg';
elseif faltam==3
cfaltam='cg';
elseif faltam==4
cfaltam='ab';
elseif faltam==5
cfaltam='bc';
elseif faltam==6
cfaltam='ca';
elseif faltam==7
cfaltam='abg';
elseif faltam==8
cfaltam='bcg';
elseif faltam==9
cfaltam='cag';
elseif faltam==10
cfaltam='abc';
elseif faltam==11
cfaltam='abcg';
end
if faltap==1 cfaltap='ag';
elseif faltap==2
cfaltap='bg';
elseif faltap==3
cfaltap='cg';
elseif faltap==4
cfaltap='ab';
elseif faltap==5
cfaltap='bc';
elseif faltap==6
cfaltap='ca';
elseif faltap==7
cfaltap='abg';
elseif faltap==8
cfaltap='bcg';
elseif faltap==9
cfaltap='cag';
elseif faltap==10
cfaltap='abc';
elseif faltap==11
cfaltap='abcg';
end
if faltaq==1 cfaltaq='ag';
elseif faltaq==2
cfaltaq='bg';
elseif faltaq==3
cfaltaq='cg';
elseif faltaq==4
cfaltaq='ab';
elseif faltaq==5
cfaltaq='bc';
elseif faltaq==6
cfaltaq='ca';
elseif faltaq==7
cfaltaq='abg';
elseif faltaq==8
cfaltaq='bcg';
elseif faltaq==9
cfaltaq='cag';
elseif faltaq==10
cfaltaq='abc';
elseif faltaq==11
cfaltaq='abcg';
end
% -------------------------------------------
% SALIDAS
% -------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'Un =%-4.0f(kV)',Un);
fprintf(fid,'\tL=%-4.0f(km)\n',L);
fprintf(fid,'Sccs=%-5.0f(MVA)\n',Sccs);
fprintf(fid,'Sccr=%-5.0f(MVA)\n',Sccr);
fprintf(fid,'Kr0=%-6.2f\n',Kr0);
fprintf(fid,'k0=%-6.2f\n',k0);
fprintf(fid,'m =%-3.2f',m);
fprintf(fid,'\tFalta:%s',cfaltam);
fprintf(fid,'\tRfm:%-10.2f(Ohm)',Rfm);
if (faltam==7)|(faltam==8)|(faltam==9)|(faltam==11)
fprintf(fid,'\tRgm:%-10.2f(Ohm)',Rgm);
else
fprintf(fid,'\n');
end
fprintf(fid,'Sm =%-5.2f+i(%-5.2f)(Ohm)',real(Sm),imag(Sm));
fprintf(fid,'\tRm =%-5.2f+i(%-5.2f)(Ohm)\n',real(Rm),imag(Rm));
fprintf(fid,'p =%-3.2f',p);
fprintf(fid,'\tFalta:%s',cfaltap);
fprintf(fid,'\tRfp:%-10.2f(Ohm)',Rfp);
if (faltap==7)|(faltap==8)|(faltap==9)|(faltap==11)
fprintf(fid,'\tRgp:%-10.2f(Ohm)',Rgp);
else
fprintf(fid,'\n');
end
fprintf(fid,'Sp =%-5.2f+i(%-5.2f)(Ohm)',real(Sp),imag(Sp));
fprintf(fid,'\tRp =%-5.2f+i(%-5.2f)(Ohm)\n',real(Rp),imag(Rp));
fprintf(fid,'q =%-3.2f',q);
fprintf(fid,'\tFalta:%s',cfaltaq);
fprintf(fid,'\tRfp:%-10.2f(Ohm)',Rfq);
if (faltaq==7)|(faltaq==8)|(faltaq==9)|(faltaq==11)
fprintf(fid,'\tRgp:%-10.2f(Ohm)',Rgq);
else
fprintf(fid,'\n');
end
fprintf(fid,'Sq =%-5.2f+i(%-5.2f)(Ohm)',real(Sq),imag(Sq));
fprintf(fid,'\tRq =%-5.2f+i(%-5.2f)(Ohm)\n',real(Rq),imag(Rq));
fprintf(fid,'\n');
[Sm_ZABre,Sm_ZABim]=zmed(Sm_ZAB); fprintf(fid,'Sm_ZAB:%7.2f+i(%-7.2f)Ohm\n',Sm_ZABre,Sm_ZABim);
[Sm_ZBCre,Sm_ZBCim]=zmed(Sm_ZBC); fprintf(fid,'Sm_ZBC:%7.2f+i(%-7.2f)Ohm\n',Sm_ZBCre,Sm_ZBCim);
[Sm_ZCAre,Sm_ZCAim]=zmed(Sm_ZCA); fprintf(fid,'Sm_ZCA:%7.2f+i(%-7.2f)Ohm\n',Sm_ZCAre,Sm_ZCAim);
[Sm_ZAGre,Sm_ZAGim]=zmed(Sm_ZAG); fprintf(fid,'Sm_ZAG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZAGre,Sm_ZAGim);
[Sm_ZBGre,Sm_ZBGim]=zmed(Sm_ZBG); fprintf(fid,'Sm_ZBG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZBGre,Sm_ZBGim);
[Sm_ZCGre,Sm_ZCGim]=zmed(Sm_ZCG); fprintf(fid,'Sm_ZCG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZCGre,Sm_ZCGim);
fprintf(fid,'\n');
[Rm_ZABre,Rm_ZABim]=zmed(Rm_ZAB); fprintf(fid,'Rm_ZAB:%7.2f+i(%-7.2f)Ohm\n',Rm_ZABre,Rm_ZABim);
[Rm_ZBCre,Rm_ZBCim]=zmed(Rm_ZBC); fprintf(fid,'Rm_ZBC:%7.2f+i(%-7.2f)Ohm\n',Rm_ZBCre,Rm_ZBCim);
[Rm_ZCAre,Rm_ZCAim]=zmed(Rm_ZCA); fprintf(fid,'Rm_ZCA:%7.2f+i(%-7.2f)Ohm\n',Rm_ZCAre,Rm_ZCAim);
[Rm_ZAGre,Rm_ZAGim]=zmed(Rm_ZAG); fprintf(fid,'Rm_ZAG:%7.2f+i(%-7.2f)Ohm\n',Rm_ZAGre,Rm_ZAGim);
[Rm_ZBGre,Rm_ZBGim]=zmed(Rm_ZBG); fprintf(fid,'Rm_ZBG:%7.2f+i(%-7.2f)Ohm\n',Rm_ZBGre,Rm_ZBGim);
[Rm_ZCGre,Rm_ZCGim]=zmed(Rm_ZCG); fprintf(fid,'Rm_ZCG:%7.2f+i(%-7.2f)Ohm\n',Rm_ZCGre,Rm_ZCGim);
fprintf(fid,'\n');
[Sp_ZABre,Sp_ZABim]=zmed(Sp_ZAB); fprintf(fid,'Sp_ZAB:%7.2f+i(%-7.2f)Ohm\n',Sp_ZABre,Sp_ZABim);
[Sp_ZBCre,Sp_ZBCim]=zmed(Sp_ZBC); fprintf(fid,'Sp_ZBC:%7.2f+i(%-7.2f)Ohm\n',Sp_ZBCre,Sp_ZBCim);
[Sp_ZCAre,Sp_ZCAim]=zmed(Sp_ZCA); fprintf(fid,'Sp_ZCA:%7.2f+i(%-7.2f)Ohm\n',Sp_ZCAre,Sp_ZCAim);
[Sp_ZAGre,Sp_ZAGim]=zmed(Sp_ZAG); fprintf(fid,'Sp_ZAG:%7.2f+i(%-7.2f)Ohm\n',Sp_ZAGre,Sp_ZAGim);
[Sp_ZBGre,Sp_ZBGim]=zmed(Sp_ZBG); fprintf(fid,'Sp_ZBG:%7.2f+i(%-7.2f)Ohm\n',Sp_ZBGre,Sp_ZBGim);
[Sp_ZCGre,Sp_ZCGim]=zmed(Sp_ZCG); fprintf(fid,'Sp_ZCG:%7.2f+i(%-7.2f)Ohm\n',Sp_ZCGre,Sp_ZCGim);
fprintf(fid,'\n');
[Rp_ZABre,Rp_ZABim]=zmed(Rp_ZAB); fprintf(fid,'Rp_ZAB:%7.2f+i(%-7.2f)Ohm\n',Rp_ZABre,Rp_ZABim);
[Rp_ZBCre,Rp_ZBCim]=zmed(Rp_ZBC); fprintf(fid,'Rp_ZBC:%7.2f+i(%-7.2f)Ohm\n',Rp_ZBCre,Rp_ZBCim);
[Rp_ZCAre,Rp_ZCAim]=zmed(Rp_ZCA); fprintf(fid,'Rp_ZCA:%7.2f+i(%-7.2f)Ohm\n',Rp_ZCAre,Rp_ZCAim);
[Rp_ZAGre,Rp_ZAGim]=zmed(Rp_ZAG); fprintf(fid,'Rp_ZAG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZAGre,Rp_ZAGim);
[Rp_ZBGre,Rp_ZBGim]=zmed(Rp_ZBG); fprintf(fid,'Rp_ZBG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZBGre,Rp_ZBGim);
[Rp_ZCGre,Rp_ZCGim]=zmed(Rp_ZCG); fprintf(fid,'Rp_ZCG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZCGre,Rp_ZCGim);
fprintf(fid,'\n');
[Sq_ZABre,Sq_ZABim]=zmed(Sq_ZAB); fprintf(fid,'Sq_ZAB:%7.2f+i(%-7.2f)Ohm\n',Sq_ZABre,Sq_ZABim);
[Sq_ZBCre,Sq_ZBCim]=zmed(Sq_ZBC); fprintf(fid,'Sq_ZBC:%7.2f+i(%-7.2f)Ohm\n',Sq_ZBCre,Sq_ZBCim);
[Sq_ZCAre,Sq_ZCAim]=zmed(Sq_ZCA); fprintf(fid,'Sq_ZCA:%7.2f+i(%-7.2f)Ohm\n',Sq_ZCAre,Sq_ZCAim);
[Sq_ZAGre,Sq_ZAGim]=zmed(Sq_ZAG); fprintf(fid,'Sq_ZAG:%7.2f+i(%-7.2f)Ohm\n',Sq_ZAGre,Sq_ZAGim);
[Sq_ZBGre,Sq_ZBGim]=zmed(Sq_ZBG); fprintf(fid,'Sq_ZBG:%7.2f+i(%-7.2f)Ohm\n',Sq_ZBGre,Sq_ZBGim);
[Sq_ZCGre,Sq_ZCGim]=zmed(Sq_ZCG); fprintf(fid,'Sq_ZCG:%7.2f+i(%-7.2f)Ohm\n',Sq_ZCGre,Sq_ZCGim);
fprintf(fid,'\n');
[Rq_ZABre,Rq_ZABim]=zmed(Rq_ZAB); fprintf(fid,'Rq_ZAB:%7.2f+i(%-7.2f)Ohm\n',Rq_ZABre,Rq_ZABim);
[Rq_ZBCre,Rq_ZBCim]=zmed(Rq_ZBC); fprintf(fid,'Rq_ZBC:%7.2f+i(%-7.2f)Ohm\n',Rq_ZBCre,Rq_ZBCim);
[Rq_ZCAre,Rq_ZCAim]=zmed(Rq_ZCA); fprintf(fid,'Rq_ZCA:%7.2f+i(%-7.2f)Ohm\n',Rq_ZCAre,Rq_ZCAim);
[Rq_ZAGre,Rq_ZAGim]=zmed(Rq_ZAG); fprintf(fid,'Rq_ZAG:%7.2f+i(%-7.2f)Ohm\n',Rq_ZAGre,Rq_ZAGim);
[Rq_ZBGre,Rq_ZBGim]=zmed(Rq_ZBG); fprintf(fid,'Rq_ZBG:%7.2f+i(%-7.2f)Ohm\n',Rq_ZBGre,Rq_ZBGim);
[Rq_ZCGre,Rq_ZCGim]=zmed(Rq_ZCG); fprintf(fid,'Rq_ZCG:%7.2f+i(%-7.2f)Ohm\n',Rq_ZCGre,Rq_ZCGim);
fprintf(fid,'\n\n');
[mod,arg]=mod_argz(Sm_ZAB);fprintf(fid,'Sm_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sm_ZBC);fprintf(fid,'Sm_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sm_ZCA);fprintf(fid,'Sm_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sm_ZAG);fprintf(fid,'Sm_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sm_ZBG);fprintf(fid,'Sm_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sm_ZCG);fprintf(fid,'Sm_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(Sp_ZAB);fprintf(fid,'Sp_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sp_ZBC);fprintf(fid,'Sp_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sp_ZCA);fprintf(fid,'Sp_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sp_ZAG);fprintf(fid,'Sp_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sp_ZBG);fprintf(fid,'Sp_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sp_ZCG);fprintf(fid,'Sp_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(Sq_ZAB);fprintf(fid,'Sq_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sq_ZBC);fprintf(fid,'Sq_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sq_ZCA);fprintf(fid,'Sq_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sq_ZAG);fprintf(fid,'Sq_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sq_ZBG);fprintf(fid,'Sq_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Sq_ZCG);fprintf(fid,'Sq_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(Rm_ZAB);fprintf(fid,'Rm_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rm_ZBC);fprintf(fid,'Rm_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rm_ZCA);fprintf(fid,'Rm_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rm_ZAG);fprintf(fid,'Rm_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rm_ZBG);fprintf(fid,'Rm_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rm_ZCG);fprintf(fid,'Rm_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(Rp_ZAB);fprintf(fid,'Rp_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rp_ZBC);fprintf(fid,'Rp_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rp_ZCA);fprintf(fid,'Rp_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rp_ZAG);fprintf(fid,'Rp_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rp_ZBG);fprintf(fid,'Rp_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rp_ZCG);fprintf(fid,'Rp_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(Rq_ZAB);fprintf(fid,'Rq_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rq_ZBC);fprintf(fid,'Rq_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rq_ZCA);fprintf(fid,'Rq_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rq_ZAG);fprintf(fid,'Rq_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rq_ZBG);fprintf(fid,'Rq_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(Rq_ZCG);fprintf(fid,'Rq_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n\n');
fprintf(fid,'Sm_67N:\tVspol=%-8.0f(V)\tIsmop=%-8.0f(A)\tAngDirSm=%-5.1f\n',Vspol,Ismop,AngDirSm);
fprintf(fid,'Sp_67N:\tVspol=%-8.0f(V)\tIspop=%-8.0f(A)\tAngDirSp=%-5.1f\n',Vspol,Ispop,AngDirSp);
fprintf(fid,'Sq_67N:\tVspol=%-8.0f(V)\tIsqop=%-8.0f(A)\tAngDirSq=%-5.1f\n',Vspol,Isqop,AngDirSq);
fprintf(fid,'Rm_67N:\tVrpol=%-8.0f(V)\tIrmop=%-8.0f(A)\tAngDirRm=%-5.1f\n',Vrpol,Irmop,AngDirRm);
fprintf(fid,'Rp_67N:\tVrpol=%-8.0f(V)\tIrpop=%-8.0f(A)\tAngDirRp=%-5.1f\n',Vrpol,Irpop,AngDirRp);
fprintf(fid,'Rq_67N:\tVrpol=%-8.0f(V)\tIrqop=%-8.0f(A)\tAngDirRq=%-5.1f\n',Vrpol,Irqop,AngDirRq);
fprintf(fid,'\n');
fprintf(fid,'Vm0 =%8.0f+i(%-8.0f)(V)\t',real(Vm0),imag(Vm0));
fprintf(fid,'Vm1 =%8.0f+i(%-8.0f)(V)\t',real(Vm1),imag(Vm1));
fprintf(fid,'Vm2 =%8.0f+i(%-8.0f)(V)',real(Vm2),imag(Vm2));
fprintf(fid,'\n');
fprintf(fid,'Vp0 =%8.0f+i(%-8.0f)(V)\t',real(Vp0),imag(Vp0));
fprintf(fid,'Vp1 =%8.0f+i(%-8.0f)(V)\t',real(Vp1),imag(Vp1));
fprintf(fid,'Vp2 =%8.0f+i(%-8.0f)(V)',real(Vp2),imag(Vp2));
fprintf(fid,'\n');
fprintf(fid,'Vq0 =%8.0f+i(%-8.0f)(V)\t',real(Vq0),imag(Vq0));
fprintf(fid,'Vq1 =%8.0f+i(%-8.0f)(V)\t',real(Vq1),imag(Vq1));
fprintf(fid,'Vq2 =%8.0f+i(%-8.0f)(V)',real(Vq2),imag(Vq2));
fprintf(fid,'\n');
fprintf(fid,'Vs0 =%8.0f+i(%-8.0f)(V)\t',real(Vs0),imag(Vs0));
fprintf(fid,'Vs1 =%8.0f+i(%-8.0f)(V)\t',real(Vs1),imag(Vs1));
fprintf(fid,'Vs2 =%8.0f+i(%-8.0f)(V)',real(Vs2),imag(Vs2));
fprintf(fid,'\n');
fprintf(fid,'Vr0 =%8.0f+i(%-8.0f)(V)\t',real(Vr0),imag(Vr0));
fprintf(fid,'Vr1 =%8.0f+i(%-8.0f)(V)\t',real(Vr1),imag(Vr1));
fprintf(fid,'Vr2 =%8.0f+i(%-8.0f)(V)',real(Vr2),imag(Vr2));
fprintf(fid,'\n\n');
fprintf(fid,'Im0 =%6.0f+i(%-6.0f)(A)',real(Im0),imag(Im0));
fprintf(fid,'\tIm1 =%6.0f+i(%-6.0f)(A)',real(Im1),imag(Im1));
fprintf(fid,'\tIm2 =%6.0f+i(%-6.0f)(A)',real(Im2),imag(Im2));
fprintf(fid,'\n');
fprintf(fid,'Ip0 =%6.0f+i(%-6.0f)(A)',real(Ip0),imag(Ip0));
fprintf(fid,'\tIp1 =%6.0f+i(%-6.0f)(A)',real(Ip1),imag(Ip1));
fprintf(fid,'\tIp2 =%6.0f+i(%-6.0f)(A)',real(Ip2),imag(Ip2));
fprintf(fid,'\n');
fprintf(fid,'Iq0 =%6.0f+i(%-6.0f)(A)',real(Iq0),imag(Iq0));
fprintf(fid,'\tIq1 =%6.0f+i(%-6.0f)(A)',real(Iq1),imag(Iq1));
fprintf(fid,'\tIq2 =%6.0f+i(%-6.0f)(A)',real(Iq2),imag(Iq2));
fprintf(fid,'\n');
fprintf(fid,'Ism0=%6.0f+i(%-6.0f)(A)',real(Ism0),imag(Ism0));
fprintf(fid,'\tIsm1=%6.0f+i(%-6.0f)(A)',real(Ism1),imag(Ism1));
fprintf(fid,'\tIsm2=%6.0f+i(%-6.0f)(A)',real(Ism2),imag(Ism2));
fprintf(fid,'\n');
fprintf(fid,'Irm0=%6.0f+i(%-6.0f)(A)',real(Irm0),imag(Irm0));
fprintf(fid,'\tIrm1=%6.0f+i(%-6.0f)(A)',real(Irm1),imag(Irm1));
fprintf(fid,'\tIrm2=%6.0f+i(%-6.0f)(A)',real(Irm2),imag(Irm2));
fprintf(fid,'\n');
fprintf(fid,'Isp0=%6.0f+i(%-6.0f)(A)',real(Isp0),imag(Isp0));
fprintf(fid,'\tIsp1=%6.0f+i(%-6.0f)(A)',real(Isp1),imag(Isp1));
fprintf(fid,'\tIsp2=%6.0f+i(%-6.0f)(A)',real(Isp2),imag(Isp2));
fprintf(fid,'\n');
fprintf(fid,'Irp0=%6.0f+i(%-6.0f)(A)',real(Irp0),imag(Irp0));
fprintf(fid,'\tIrp1=%6.0f+i(%-6.0f)(A)',real(Irp1),imag(Irp1));
fprintf(fid,'\tIrp2=%6.0f+i(%-6.0f)(A)',real(Irp2),imag(Irp2));
fprintf(fid,'\n');
fprintf(fid,'Isq0=%6.0f+i(%-6.0f)(A)',real(Isq0),imag(Isq0));
fprintf(fid,'\tIsq1=%6.0f+i(%-6.0f)(A)',real(Isq1),imag(Isq1));
fprintf(fid,'\tIsq2=%6.0f+i(%-6.0f)(A)',real(Isq2),imag(Isq2));
fprintf(fid,'\n');
fprintf(fid,'Irq0=%6.0f+i(%-6.0f)(A)',real(Irq0),imag(Irq0));
fprintf(fid,'\tIrq1=%6.0f+i(%-6.0f)(A)',real(Irq1),imag(Irq1));
fprintf(fid,'\tIrq2=%6.0f+i(%-6.0f)(A)',real(Irq2),imag(Irq2));
fprintf(fid,'\n\n');
if imptransfer==1
fprintf(fid,'Isr0=%6.0f+i(%-6.0f)(A)',real(Isr0),imag(Isr0));
fprintf(fid,'\tIsr1=%6.0f+i(%-6.0f)(A)',real(Isr1),imag(Isr1));
fprintf(fid,'\tIsr2=%6.0f+i(%-6.0f)(A)',real(Isr2),imag(Isr2));
fprintf(fid,'\n\n');
end
[mod,arg]=mod_arg(Vm0);fprintf(fid,'Vm0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vm1);fprintf(fid,'Vm1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vm2);fprintf(fid,'Vm2 =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vp0);fprintf(fid,'Vp0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vp1);fprintf(fid,'Vp1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vp2);fprintf(fid,'Vp2 =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vq0);fprintf(fid,'Vq0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vq1);fprintf(fid,'Vq1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vq2);fprintf(fid,'Vq2 =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vs0);fprintf(fid,'Vs0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vs1);fprintf(fid,'Vs1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vs2);fprintf(fid,'Vs2 =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vr0);fprintf(fid,'Vr0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vr1);fprintf(fid,'Vr1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vr2);fprintf(fid,'Vr2 =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n\n');
[mod,arg]=mod_arg(Im0);fprintf(fid,'Im0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Im1);fprintf(fid,'Im1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Im2);fprintf(fid,'Im2 =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Ip0);fprintf(fid,'Ip0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ip1);fprintf(fid,'Ip1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ip2);fprintf(fid,'Ip2 =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Iq0);fprintf(fid,'Iq0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Iq1);fprintf(fid,'Iq1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Iq2);fprintf(fid,'Iq2 =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Ism0);fprintf(fid,'Ism0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ism1);fprintf(fid,'Ism1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ism2);fprintf(fid,'Ism2=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irm0);fprintf(fid,'Irm0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irm1);fprintf(fid,'Irm1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irm2);fprintf(fid,'Irm2=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Isp0);fprintf(fid,'Isp0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isp1);fprintf(fid,'Isp1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isp2);fprintf(fid,'Isp2=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irp0);fprintf(fid,'Irp0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irp1);fprintf(fid,'Irp1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irp2);fprintf(fid,'Irp2=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Isq0);fprintf(fid,'Isq0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isq1);fprintf(fid,'Isq1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isq2);fprintf(fid,'Isq2=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irq0);fprintf(fid,'Irq0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irq1);fprintf(fid,'Irq1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irq2);fprintf(fid,'Irq2=%8.0f(%-5.1f)(A)\n',mod,arg);
if imptransfer==1
[mod,arg]=mod_arg(Isr0);fprintf(fid,'Isr0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isr1);fprintf(fid,'Isr1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isr2);fprintf(fid,'Isr2=%8.0f(%-5.1f)(A)\n',mod,arg);
end
fprintf(fid,'\n');
fprintf(fid,'Vma =%8.0f+i(%-8.0f)(V)\t',real(Vma),imag(Vma));
fprintf(fid,'Vmb =%8.0f+i(%-8.0f)(V)\t',real(Vmb),imag(Vmb));
fprintf(fid,'Vmc =%8.0f+i(%-8.0f)(V)',real(Vmc),imag(Vmc));
fprintf(fid,'\n');
fprintf(fid,'Vpa =%8.0f+i(%-8.0f)(V)\t',real(Vpa),imag(Vpa));
fprintf(fid,'Vpb =%8.0f+i(%-8.0f)(V)\t',real(Vpb),imag(Vpb));
fprintf(fid,'Vpc =%8.0f+i(%-8.0f)(V)',real(Vpc),imag(Vpc));
fprintf(fid,'\n');
fprintf(fid,'Vqa =%8.0f+i(%-8.0f)(V)\t',real(Vqa),imag(Vqa));
fprintf(fid,'Vqb =%8.0f+i(%-8.0f)(V)\t',real(Vqb),imag(Vqb));
fprintf(fid,'Vqc =%8.0f+i(%-8.0f)(V)',real(Vqc),imag(Vqc));
fprintf(fid,'\n');
fprintf(fid,'Vsa =%8.0f+i(%-8.0f)(V)\t',real(Vsa),imag(Vsa));
fprintf(fid,'Vsb =%8.0f+i(%-8.0f)(V)\t',real(Vsb),imag(Vsb));
fprintf(fid,'Vsc =%8.0f+i(%-8.0f)(V)',real(Vsc),imag(Vsc));
fprintf(fid,'\n');
fprintf(fid,'Vra =%8.0f+i(%-8.0f)(V)\t',real(Vra),imag(Vra));
fprintf(fid,'Vrb =%8.0f+i(%-8.0f)(V)\t',real(Vrb),imag(Vrb));
fprintf(fid,'Vrc =%8.0f+i(%-8.0f)(V)',real(Vrc),imag(Vrc));
fprintf(fid,'\n\n');
fprintf(fid,'Ima =%6.0f+i(%-6.0f)(A)',real(Ima),imag(Ima));
fprintf(fid,'\tImb =%6.0f+i(%-6.0f)(A)',real(Imb),imag(Imb));
fprintf(fid,'\tImc =%6.0f+i(%-6.0f)(A)',real(Imc),imag(Imc));
fprintf(fid,'\n');
fprintf(fid,'Ipa =%6.0f+i(%-6.0f)(A)',real(Ipa),imag(Ipa));
fprintf(fid,'\tIpb =%6.0f+i(%-6.0f)(A)',real(Ipb),imag(Ipb));
fprintf(fid,'\tIpc =%6.0f+i(%-6.0f)(A)',real(Ipc),imag(Ipc));
fprintf(fid,'\n');
fprintf(fid,'Iqa =%6.0f+i(%-6.0f)(A)',real(Iqa),imag(Iqa));
fprintf(fid,'\tIqb =%6.0f+i(%-6.0f)(A)',real(Iqb),imag(Iqb));
fprintf(fid,'\tIqc =%6.0f+i(%-6.0f)(A)',real(Iqc),imag(Iqc));
fprintf(fid,'\n');
fprintf(fid,'Isma=%6.0f+i(%-6.0f)(A)',real(Isma),imag(Isma));
fprintf(fid,'\tIsmb=%6.0f+i(%-6.0f)(A)',real(Ismb),imag(Ismb));
fprintf(fid,'\tIsmc=%6.0f+i(%-6.0f)(A)',real(Ismc),imag(Ismc));
fprintf(fid,'\n');
fprintf(fid,'Irma=%6.0f+i(%-6.0f)(A)',real(Irma),imag(Irma));
fprintf(fid,'\tIrmb=%6.0f+i(%-6.0f)(A)',real(Irmb),imag(Irmb));
fprintf(fid,'\tIrmc=%6.0f+i(%-6.0f)(A)',real(Irmc),imag(Irmc));
fprintf(fid,'\n');
fprintf(fid,'Ispa=%6.0f+i(%-6.0f)(A)',real(Ispa),imag(Ispa));
fprintf(fid,'\tIspb=%6.0f+i(%-6.0f)(A)',real(Ispb),imag(Ispb));
fprintf(fid,'\tIspc=%6.0f+i(%-6.0f)(A)',real(Ispc),imag(Ispc));
fprintf(fid,'\n');
fprintf(fid,'Irpa=%6.0f+i(%-6.0f)(A)',real(Irpa),imag(Irpa));
fprintf(fid,'\tIrpb=%6.0f+i(%-6.0f)(A)',real(Irpb),imag(Irpb));
fprintf(fid,'\tIrpc=%6.0f+i(%-6.0f)(A)',real(Irpc),imag(Irpc));
fprintf(fid,'\n');
fprintf(fid,'Isqa=%6.0f+i(%-6.0f)(A)',real(Isqa),imag(Isqa));
fprintf(fid,'\tIsqb=%6.0f+i(%-6.0f)(A)',real(Isqb),imag(Isqb));
fprintf(fid,'\tIsqc=%6.0f+i(%-6.0f)(A)',real(Isqc),imag(Isqc));
fprintf(fid,'\n');
fprintf(fid,'Irqa=%6.0f+i(%-6.0f)(A)',real(Irqa),imag(Irqa));
fprintf(fid,'\tIrqb=%6.0f+i(%-6.0f)(A)',real(Irqb),imag(Irqb));
fprintf(fid,'\tIrqc=%6.0f+i(%-6.0f)(A)',real(Irqc),imag(Irqc));
fprintf(fid,'\n');
if imptransfer==1
fprintf(fid,'Isra=%6.0f+i(%-6.0f)(A)',real(Isra),imag(Isra));
fprintf(fid,'\tIsrb=%6.0f+i(%-6.0f)(A)',real(Isrb),imag(Isrb));
fprintf(fid,'\tIsrc=%6.0f+i(%-6.0f)(A)',real(Isrc),imag(Isrc));
fprintf(fid,'\n');
end
fprintf(fid,'\n');
[mod,arg]=mod_arg(Vma);fprintf(fid,'Vma =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vmb);fprintf(fid,'Vmb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vmc);fprintf(fid,'Vmc =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vpa);fprintf(fid,'Vpa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vpb);fprintf(fid,'Vpb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vpc);fprintf(fid,'Vpc =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vqa);fprintf(fid,'Vqa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vqb);fprintf(fid,'Vqb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vqc);fprintf(fid,'Vqc =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vsa);fprintf(fid,'Vsa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vsb);fprintf(fid,'Vsb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vsc);fprintf(fid,'Vsc =%8.0f(%-5.1f)(V)\n',mod,arg);
[mod,arg]=mod_arg(Vra);fprintf(fid,'Vra =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vrb);fprintf(fid,'Vrb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(Vrc);fprintf(fid,'Vrc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n\n');
[mod,arg]=mod_arg(Ima);fprintf(fid,'Ima =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Imb);fprintf(fid,'Imb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Imc);fprintf(fid,'Imc =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Ipa);fprintf(fid,'Ipa =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ipb);fprintf(fid,'Ipb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ipc);fprintf(fid,'Ipc =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Iqa);fprintf(fid,'Iqa =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Iqb);fprintf(fid,'Iqb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Iqc);fprintf(fid,'Iqc =%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Isma);fprintf(fid,'Isma=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ismb);fprintf(fid,'Ismb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ismc);fprintf(fid,'Ismc=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irma);fprintf(fid,'Irma=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irmb);fprintf(fid,'Irmb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irmc);fprintf(fid,'Irmc=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Ispa);fprintf(fid,'Ispa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ispb);fprintf(fid,'Ispb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Ispc);fprintf(fid,'Ispc=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irpa);fprintf(fid,'Irpa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irpb);fprintf(fid,'Irpb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irpc);fprintf(fid,'Irpc=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Isqa);fprintf(fid,'Isqa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isqb);fprintf(fid,'Isqb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isqc);fprintf(fid,'Isqc=%8.0f(%-5.1f)(A)\n',mod,arg);
[mod,arg]=mod_arg(Irqa);fprintf(fid,'Irqa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irqb);fprintf(fid,'Irqb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Irqc);fprintf(fid,'Irqc=%8.0f(%-5.1f)(A)\n',mod,arg);
if imptransfer==1
[mod,arg]=mod_arg(Isra);fprintf(fid,'Isra=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isrb);fprintf(fid,'Isrb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(Isrc);fprintf(fid,'Isrc=%8.0f(%-5.1f)(A)\n',mod,arg);
end
if salida==2
fclose(fid);
end
fprintf(1,'\n');
variasejecuciones=input('Mas Ejecuciones=1,Acabar=2 :');
end % end del while variasejecuciones
fprintf(1,'Pulse Enter\n');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
