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(fid,'\n');
fprintf(fid,'PC128M\n');
fprintf(fid,'Esquema Linea Doble SR\n');
fprintf(fid,'Unominal AT kV: 220\n');
fprintf(fid,'Unominal BT kV: 66\n');
fprintf(fid,'Ctes. de la Linea Doble, por Linea y por km, segun Unominal\n');
fprintf(fid,'Eleccion Ctes. del Tf\n');
fprintf(fid,'Tf AT/BT/T: Neutro a Tierra en AT y BT\n');
fprintf(fid,'Eleccion: kE,LA=LB=L,Sccs,Sccr,Kr0,k0\n');
fprintf(fid,'Impedancia de Transferencia Si, No\n');
fprintf(fid,'Eleccion: (zsr1,Ksr0)\n');
fprintf(fid,'Compensacion 21, Si, No\n');
fprintf(fid,'Falta Doble: Linea AT,m=0...1 y Linea BT,p=0...1\n');
fprintf('Barra m=5, Barra p=6\n');
% ---------------------------------------------------------------
%PC28M
datos=input('datos: standard=1,input=2: ');
if datos==1
UA=220;
LA=66;
LB=LA;
UB=66;
kE=1;
imptransfer=2;
compens21=2;
Sccs=5000;
Sccr=5000;
Kr0=1;
Sp=120; Ss=120; St=40; Up=220; Us=66; Ut=33;
tccps=12; tccpt=5; tccst=2;
else
% ---------------------------------------------------------------
UA=input('UA(Fase-Fase) kV: ');
LA=input('Longitud Linea LA=LB km: ');
LB=LA;
UB=input('UB(Fase-Fase) kV: ');
kE=input('kE=E/Enominal: ');
Sccs=input('Sccs(MVA): ');
Sccr=input('Sccr(MVA): ');
Kr0=input('Kr0=zr0/zr1: ');
imptransfer=input('zsr Si=1, No=2 :');
if imptransfer==1
zsr1=input('zsr1=zsr2(Complejo r+xi en Ohms): ');
zsr2=zsr1;
zsr0=input('zsr0(Complejo r+xi en Ohms): ');
end
compens21=input('Compensacion 21: Si=1, No=2 :');
Sp=input('Sp(MVA): ');
Ss=input('Ss(MVA): ');
St=input('St(MVA): ');
tccps=input('tccps(%): ');
tccpt=input('tccpt(%): ');
tccst=input('tccst(%): ');
end
% ---------------------------------------------------------------
k0=input('k0=zs0/zr0: ');
m=input('Falta Linea AT: m pu : ');
p=input('Falta Linea BT: p pu : ');
fprintf(fid,'\n');
% ---------------------------------------------------------------
if UA==400
zlA1u=0.0346+0.3208i; zlA2u=zlA1u; zlA0u=0.1828+1.1482i; zlM0u=0.1482+0.7383i;
elseif UA==220
zlA1u=0.0829+0.4135i; zlA2u=zlA1u; zlA0u=0.2311+1.3085i; zlM0u=0.1482+0.8031i;
elseif UA==132
zlA1u=0.1342+0.4042i; zlA2u=zl1u; zlA0u=0.2824+1.3718i; zlM0u=0.1482+0.8947i;
elseif UA==66
zlA1u=0.2156+0.3952i; zlA2u=zl1u; zlA0u=0.3636+1.4278i; zlM0u=0.1482+0.9288i;
end
if UB==400
zlB1u=0.0346+0.3208i; zlB2u=zlB1u; zlB0u=0.1828+1.1482i;
elseif UB==220
zlB1u=0.0829+0.4135i; zlB2u=zlB1u; zlB0u=0.2311+1.3085i;
elseif UB==132
zlB1u=0.1342+0.4042i; zlB2u=zlB1u; zlB0u=0.2824+1.3718i;
elseif UB==66
zlB1u=0.2156+0.3952i; zlB2u=zlB1u; zlB0u=0.3636+1.4278i;
end
% -----------------------------------------------------------------------
% CALCULOS
% -----------------------------------------------------------------------
%EAv=UA*1000/sqrt(3)+0i;
%EA=kE;
%EBv=UB*1000/sqrt(3)+0i;
%EB=kE;
E=kE;
kA=(zlA0u-zlA1u)/(3*zlA1u);
kB=(zlB0u-zlB1u)/(3*zlB1u);
SAm=zlA1u*m*LA; RAm=zlA1u*(1-m)*LA; % Ohm 220 kV
SBp=zlB1u*p*LB; RBp=zlB1u*(1-p)*LB; % Ohm 66 kV
Sbase=100; % MVA Trifasicos
UbaseA=UA; % kV Fase-Fase
UbaseB=UB; % kV Fase-Fase
VbaseA=UbaseA/sqrt(3); % kV Fase-Neutro
VbaseB=UbaseB/sqrt(3); % kV Fase-Neutro
zbaseA=UA^2/Sbase; % Ohm
zbaseB=UB^2/Sbase; % Ohm
IbaseA=(UA/sqrt(3))/zbaseA; % kA
IbaseB=(UB/sqrt(3))/zbaseB; % kA
VbaseA=VbaseA*1000; % Volt
VbaseB=VbaseB*1000; % Volt
IbaseA=IbaseA*1000; % Amp
IbaseB=IbaseB*1000; % Amp
KmA=zlM0u/zlA1u; KmA=KmA*(IbaseB/IbaseA);
KmB=zlM0u/zlB1u; KmB=KmB*(IbaseA/IbaseB);
% REDES DE SECUENCIA 0,1,2 pu
[zs1,zr1,zSAm1,zRAm1,zSBp1,zRBp1]=pusec1(UA,Sccs,Sccr,zlA1u,m,LA,zlB1u,p,LB,zbaseA,zbaseB);
[zs2,zr2,zSAm2,zRAm2,zSBp2,zRBp2]=pusec2(UA,Sccs,Sccr,zlA2u,m,LA,zlB2u,p,LB,zbaseA,zbaseB);
[zs0,zr0,zSAm0,zRAm0,zSBp0,zRBp0,zlM0]=...
pusec0(k0,Kr0,zr1,zlA0u,m,LA,zlB0u,p,LB,zlM0u,zbaseA,zbaseB,UbaseA,UbaseB,Sbase);
if imptransfer==1
zsr1=zsr1/zbaseA;
zsr2=zsr2/zbaseA;
zsr0=zsr0/zbaseA;
end
zpTS=(1/2)*((tccps/100)*UA^2/Sp+(tccpt/100)*UA^2/St-(tccst/100)*UA^2/St); zpTS=zpTS/zbaseA;
zsTS=(1/2)*((tccps/100)*UA^2/Sp-(tccpt/100)*UA^2/St+(tccst/100)*UA^2/St); zsTS=zsTS/zbaseA;
ztTS=(1/2)*(-(tccps/100)*UA^2/Sp+(tccpt/100)*UA^2/St+(tccst/100)*UA^2/St); ztTS=ztTS/zbaseA;
zpTR=zpTS; zsTR=zsTS; ztTR=ztTS;
% CALCULO DE LA REDUCCION DE REDES 0,1,2 A LOS PUNTOS m,p DE FALTA
if imptransfer==1
[Minc0]=subMinc0sr(1);
[Minc1]=subMinc1sr(1);
[Minc2]=subMinc2sr(1);
[Minca1]=subMinca1sr(1);
[z0]=subz0sr(zs0,zsr0,zr0,zSAm0,zRAm0,zSBp0,zRBp0,zlM0,...
zpTS,zsTS,ztTS,zpTR,zsTR,ztTR,m,p);
[z1]=subz1sr(zs1,zsr1,zr1,zSAm1,zRAm1,zSBp1,zRBp1,zpTS,zsTS,zpTR,zsTR);
[z2]=subz2sr(zs2,zsr2,zr2,zSAm2,zRAm2,zSBp2,zRBp2,zpTS,zsTS,zpTR,zsTR);
elseif imptransfer==2
[Minc0]=subMinc0(1);
[Minc1]=subMinc1(1);
[Minc2]=subMinc2(1);
[Minca1]=subMinca1(1);
[z0]=subz0(zs0,zr0,zSAm0,zRAm0,zSBp0,zRBp0,zlM0,...
zpTS,zsTS,ztTS,zpTR,zsTR,ztTR,m,p);
[z1]=subz1(zs1,zr1,zSAm1,zRAm1,zSBp1,zRBp1,zpTS,zsTS,zpTR,zsTR);
[z2]=subz2(zs2,zr2,zSAm2,zRAm2,zSBp2,zRBp2,zpTS,zsTS,zpTR,zsTR);
end
% MATRIZ DE ADMITANCIA DE BARRAS
[Y0]=subY0(Minc0,z0);
[Y1]=subY1(Minc1,z1);
[Y2]=subY2(Minc2,z2);
% ZBUS(0,1,2)
Z0=inv(Y0);
Z1=inv(Y1);
Z2=inv(Y2);
pfaltam=5;
pfaltap=6;
% 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,faltam,faltap,Rfm,Rgm,Rfp,Rgp]=...
ma4mp(Z0,Z1,Z2,E,zbaseA,zbaseB,pfaltam,pfaltap); % pu
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
% IBUS(0,1,2)
I0=[0;0;0;0;-Im0;-Ip0;0;0];
I1=[0;0;0;0;-Im1;-Ip1];
I2=[0;0;0;0;-Im2;-Ip2];
% VBUS(0,1,2)
V0=Z0*I0;
V1=Z1*I1+E; V1a=[V1;E];
V2=Z2*I2;
% ASIGNACIONES V,I(0,1,2)
[Ie0]=subIe0(Minc0,V0,z0);
[Ie1]=subIe1(Minca1,V1a,z1);
[Ie2]=subIe2(Minc2,V2,z2);
VVm0=Vm0*VbaseA; VVm1=Vm1*VbaseA; VVm2=Vm2*VbaseA;
VVp0=Vp0*VbaseB; VVp1=Vp1*VbaseB; VVp2=Vp2*VbaseB;
IIm0=Im0*IbaseA; IIm1=Im1*IbaseA; IIm2=Im2*IbaseA;
IIp0=Ip0*IbaseB; IIp1=Ip1*IbaseB; IIp2=Ip2*IbaseB;
VSA0=V0(1); VSA1=V1(1); VSA2=V2(1);
VRA0=V0(2); VRA1=V1(2); VRA2=V2(2);
VSB0=V0(3); VSB1=V1(3); VSB2=V2(3);
VRB0=V0(4); VRB1=V1(4); VRB2=V2(4);
VVSA0=VSA0*VbaseA; VVSA1=VSA1*VbaseA; VVSA2=VSA2*VbaseA;
VVRA0=VRA0*VbaseA; VVRA1=VRA1*VbaseA; VVRA2=VRA2*VbaseA;
VVSB0=VSB0*VbaseB; VVSB1=VSB1*VbaseB; VVSB2=VSB2*VbaseB;
VVRB0=VRB0*VbaseB; VVRB1=VRB1*VbaseB; VVRB2=VRB2*VbaseB;
Is0=Ie0(1); Is1=Ie1(1); Is2=Ie2(1);
Ir0=Ie0(2); Ir1=Ie1(2); Ir2=Ie2(2);
ISAm0=Ie0(3); ISAm1=Ie1(3); ISAm2=Ie2(3);
IRAm0=Ie0(4); IRAm1=Ie1(4); IRAm2=Ie2(4);
ISBp0=Ie0(7); ISBp1=Ie1(7); ISBp2=Ie2(7);
IRBp0=Ie0(8); IRBp1=Ie1(8); IRBp2=Ie2(8);
if imptransfer==1
Izsr0=Ie0(13); Izsr1=Ie1(9); Izsr2=Ie2(9);
end
IIs0=Is0*IbaseA; IIs1=Is1*IbaseA; IIs2=Is2*IbaseA;
IIr0=Ir0*IbaseA; IIr1=Ir1*IbaseA; IIr2=Ir2*IbaseA;
IISAm0=ISAm0*IbaseA; IISAm1=ISAm1*IbaseA; IISAm2=ISAm2*IbaseA;
IISBp0=ISBp0*IbaseB; IISBp1=ISBp1*IbaseB; IISBp2=ISBp2*IbaseB;
IIRAm0=IRAm0*IbaseA; IIRAm1=IRAm1*IbaseA; IIRAm2=IRAm2*IbaseA;
IIRBp0=IRBp0*IbaseB; IIRBp1=IRBp1*IbaseB; IIRBp2=IRBp2*IbaseB;
if imptransfer==1
IIzsr0=Izsr0*IbaseA; IIzsr1=Izsr1*IbaseA; IIzsr2=Izsr2*IbaseA;
end
% CALCULO DE LAS COMPONENTES DE FASE DE V,I EN LOS PUNTOS m,p 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);
[Isa,Isb,Isc]=abc(Is0,Is1,Is2);
[Ira,Irb,Irc]=abc(Ir0,Ir1,Ir2);
% CALCULO DE LAS COMPONENTES DE FASE DE V,I EN LOS EXTREMOS DE LINEA
[VSAa,VSAb,VSAc]=abc(VSA0,VSA1,VSA2);
[VRAa,VRAb,VRAc]=abc(VRA0,VRA1,VRA2);
[VSBa,VSBb,VSBc]=abc(VSB0,VSB1,VSB2);
[VRBa,VRBb,VRBc]=abc(VRB0,VRB1,VRB2);
VVSAa=VSAa*VbaseA; VVSAb=VSAb*VbaseA; VVSAc=VSAc*VbaseA;
VVRAa=VRAa*VbaseA; VVRAb=VRAb*VbaseA; VVRAc=VRAc*VbaseA;
VVSBa=VSBa*VbaseB; VVSBb=VSBb*VbaseB; VVSBc=VSBc*VbaseB;
VVRBa=VRBa*VbaseB; VVRBb=VRBb*VbaseB; VVRBc=VRBc*VbaseB;
[ISAma,ISAmb,ISAmc]=abc(ISAm0,ISAm1,ISAm2);
[ISBpa,ISBpb,ISBpc]=abc(ISBp0,ISBp1,ISBp2);
[IRAma,IRAmb,IRAmc]=abc(IRAm0,IRAm1,IRAm2);
[IRBpa,IRBpb,IRBpc]=abc(IRBp0,IRBp1,IRBp2);
if imptransfer==1
[Izsra,Izsrb,Izsrc]=abc(Izsr0,Izsr1,Izsr2);
end
IIsa=Isa*IbaseA; IIsb=Isb*IbaseA; IIsc=Isc*IbaseA;
IIra=Ira*IbaseA; IIrb=Irb*IbaseA; IIrc=Irc*IbaseA;
IISAma=ISAma*IbaseA; IISAmb=ISAmb*IbaseA; IISAmc=ISAmc*IbaseA;
IIRAma=IRAma*IbaseA; IIRAmb=IRAmb*IbaseA; IIRAmc=IRAmc*IbaseA;
IISBpa=ISBpa*IbaseB; IISBpb=ISBpb*IbaseB; IISBpc=ISBpc*IbaseB;
IIRBpa=IRBpa*IbaseB; IIRBpb=IRBpb*IbaseB; IIRBpc=IRBpc*IbaseB;
if imptransfer==1
IIzsra=Izsra*IbaseA; IIzsrb=Izsrb*IbaseA; IIzsrc=Izsrc*IbaseA;
end
% PROTECCION DE DISTANCIA (21)
switch(compens21)
case{1},
% COMPENSADA
[SAm_ZAB,SAm_ZBC,SAm_ZCA,SAm_ZAG,SAm_ZBG,SAm_ZCG]=...
PDistComp(VSAa,VSAb,VSAc,ISAma,ISAmb,ISAmc,ISAm0,kA,KmA,ISBp0);
[RAm_ZAB,RAm_ZBC,RAm_ZCA,RAm_ZAG,RAm_ZBG,RAm_ZCG]=...
PDistComp(VRAa,VRAb,VRAc,IRAma,IRAmb,IRAmc,IRAm0,kA,KmA,IRBp0);
[SBp_ZAB,SBp_ZBC,SBp_ZCA,SBp_ZAG,SBp_ZBG,SBp_ZCG]=...
PDistComp(VSBa,VSBb,VSBc,ISBpa,ISBpb,ISBpc,ISBp0,kB,KmB,ISAm0);
[RBp_ZAB,RBp_ZBC,RBp_ZCA,RBp_ZAG,RBp_ZBG,RBp_ZCG]=...
PDistComp(VRBa,VRBb,VRBc,IRBpa,IRBpb,IRBpc,IRBp0,kB,KmB,IRAm0);
case{2},
% NO COMPENSADA
[SAm_ZAB,SAm_ZBC,SAm_ZCA,SAm_ZAG,SAm_ZBG,SAm_ZCG]=...
PDist(VSAa,VSAb,VSAc,ISAma,ISAmb,ISAmc,ISAm0,kA);
[RAm_ZAB,RAm_ZBC,RAm_ZCA,RAm_ZAG,RAm_ZBG,RAm_ZCG]=...
PDist(VRAa,VRAb,VRAc,IRAma,IRAmb,IRAmc,IRAm0,kA);
[SBp_ZAB,SBp_ZBC,SBp_ZCA,SBp_ZAG,SBp_ZBG,SBp_ZCG]=...
PDist(VSBa,VSBb,VSBc,ISBpa,ISBpb,ISBpc,ISBp0,kB);
[RBp_ZAB,RBp_ZBC,RBp_ZCA,RBp_ZAG,RBp_ZBG,RBp_ZCG]=...
PDist(VRBa,VRBb,VRBc,IRBpa,IRBpb,IRBpc,IRBp0,kB);
end
% CALCULO DE LAS MEDIDAS DE LAS PROTECCIONES DE DISTANCIA EN
% LOS EXTREMOS DE LINEA
%
% CALCULO DE LAS MAGNITUDES DE ALIMETACION DE LA PROTECCION
% DIRECCIONAL DE TIERRA EN LOS EXTREMOS DE LINEA
%
[VSApol,ISAmop,AngDirSAm]=PDire(VSA0,ISAm0);
[VSBpol,ISBpop,AngDirSBp]=PDire(VSB0,ISBp0);
[VRApol,IRAmop,AngDirRAm]=PDire(VRA0,IRAm0);
[VRBpol,IRBpop,AngDirRBp]=PDire(VRB0,IRBp0);
%
% Conversion I(0,1,2)pu a I(0,1,2)Amp
[IIm0,IIm1,IIm2]=conv3(Im0,Im1,Im2,IbaseA);
[IIp0,IIp1,IIp2]=conv3(Ip0,Ip1,Ip2,IbaseB);
[IISAm0,IISAm1,IISAm2,IIRAm0,IIRAm1,IIRAm2]=...
conv6(ISAm0,ISAm1,ISAm2,IRAm0,IRAm1,IRAm2,IbaseA);
[IISBp0,IISBp1,IISBp2,IIRBp0,IIRBp1,IIRBp2]=...
conv6(ISBp0,ISBp1,ISBp2,IRBp0,IRBp1,IRBp2,IbaseB);
% Conversion V(0,1,2)pu a V(0,1,2)Volt
[VVm0,VVm1,VVm2,VVSA0,VVSA1,VVSA2,VVRA0,VVRA1,VVRA2]=...
conv9(Vm0,Vm1,Vm2,VSA0,VSA1,VSA2,VRA0,VRA1,VRA2,VbaseA);
[VVp0,VVp1,VVp2,VVSB0,VVSB1,VVSB2,VVRB0,VVRB1,VVRB2]=...
conv9(Vp0,Vp1,Vp2,VSB0,VSB1,VSB2,VRB0,VRB1,VRB2,VbaseB);
% Conversion I(a,b,c)pu a I(a,b,c)Amp
[IIma,IImb,IImc]=conv3(Ima,Imb,Imc,IbaseA);
[IIpa,IIpb,IIpc]=conv3(Ipa,Ipb,Ipc,IbaseB);
[IISAma,IISAmb,IISAmc,IIRAma,IIRAmb,IIRAmc]=...
conv6(ISAma,ISAmb,ISAmc,IRAma,IRAmb,IRAmc,IbaseA);
[IISBpa,IISBpb,IISBpc,IIRBpa,IIRBpb,IIRBpc]=...
conv6(ISBpa,ISBpb,ISBpc,IRBpa,IRBpb,IRBpc,IbaseB);
% Conversion V(a,b,c)pu a V(a,b,c)Volt
[VVma,VVmb,VVmc]=conv3(Vma,Vmb,Vmc,VbaseA);
[VVpa,VVpb,VVpc]=conv3(Vpa,Vpb,Vpc,VbaseB);
[VVSAa,VVSAb,VVSAc,VVRAa,VVRAb,VVRAc]=...
conv6(VSAa,VSAb,VSAc,VRAa,VRAb,VRAc,VbaseA);
[VVSBa,VVSBb,VVSBc,VVRBa,VVRBb,VVRBc]=...
conv6(VSBa,VSBb,VSBc,VRBa,VRBb,VRBc,VbaseB);
% 21: Conversion Z(pu) a Z(Ohm)
[SAm_ZZAB,SAm_ZZBC,SAm_ZZCA,SAm_ZZAG,SAm_ZZBG,SAm_ZZCG]=...
conv6(SAm_ZAB,SAm_ZBC,SAm_ZCA,SAm_ZAG,SAm_ZBG,SAm_ZCG,zbaseA);
[RAm_ZZAB,RAm_ZZBC,RAm_ZZCA,RAm_ZZAG,RAm_ZZBG,RAm_ZZCG]=...
conv6(RAm_ZAB,RAm_ZBC,RAm_ZCA,RAm_ZAG,RAm_ZBG,RAm_ZCG,zbaseA);
[SBp_ZZAB,SBp_ZZBC,SBp_ZZCA,SBp_ZZAG,SBp_ZZBG,SBp_ZZCG]=...
conv6(SBp_ZAB,SBp_ZBC,SBp_ZCA,SBp_ZAG,SBp_ZBG,SBp_ZCG,zbaseB);
[RBp_ZZAB,RBp_ZZBC,RBp_ZZCA,RBp_ZZAG,RBp_ZZBG,RBp_ZZCG]=...
conv6(RBp_ZAB,RBp_ZBC,RBp_ZCA,RBp_ZAG,RBp_ZBG,RBp_ZCG,zbaseB);
% 67N: Conversion pu a Volt
[VVSApol,VVRApol]=conv2(VSApol,VRApol,VbaseA);
[VVSBpol,VVRBpol]=conv2(VSBpol,VRBpol,VbaseB);
% 67N: Conversion pu a Amp
[IISAmop,IIRAmop]=conv2(ISAmop,IRAmop,IbaseA);
[IISBpop,IIRBpop]=conv2(ISBpop,IRBpop,IbaseB);
% -----------------------------------------------------------------------
% SALIDAS
% -----------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'**********************************************************\n');
fprintf(fid,'UA(kV)=%-3.0f\n',UA);
fprintf(fid,'UB(kV)=%-3.0f\n',UB);
fprintf(fid,'LA(km)=%-6.2f\n',LA);
fprintf(fid,'LB(km)=%-6.2f\n',LB);
fprintf(fid,'kE=E/Enominal =%-4.0f\n',kE);
fprintf(fid,'Sccs=%-5.0f\n',Sccs);
fprintf(fid,'Sccr=%-5.0f\n',Sccr);
fprintf(fid,'Kr0=%-5.2f\n',Kr0);
fprintf(fid,'k0=%-5.2f\n',k0);
fprintf(fid,'Impedancia de Transferencia, Si(1), No(2) =%-1.0f\n',imptransfer);
fprintf(fid,'Compensacion 21, Si(1), No(2) =%-1.0f\n',compens21);
if imptransfer==1
fprintf(fid,'zsr1=zsr2=%-7.2f+i(%-7.2f)Ohm\n',real(zsr1),imag(zsr1));
fprintf(fid,'zsr0=%-7.2f+i(%-7.2f)Ohm\n',real(zsr0),imag(zsr0));
end
fprintf(fid,'m =%-3.2f\n',m);
fprintf(fid,'Falta:%s\t',cfaltam);
fprintf(fid,'Rfm(Ohm):%-10.2f',Rfm*zbaseA);
if (faltam==7)|(faltam==8)|(faltam==9)|(faltam==11)
fprintf(fid,'\tRgm(Ohm):%-10.2f',Rgm*zbaseA);
end
fprintf(fid,'\n');
fprintf(fid,'p =%-3.2f\t',p);
fprintf(fid,'Falta:%s\t',cfaltap);
fprintf(fid,'Rfp(Ohm):%-10.2f',Rfp*zbaseB);
if (faltap==7)|(faltap==8)|(faltap==9)|(faltap==11)
fprintf(fid,'\tRgp(Ohm):%-10.2f',Rgp*zbaseB);
end
fprintf(fid,'SAm =%-5.2f+i(%-5.2f)\n',real(SAm),imag(SAm));
fprintf(fid,'RAm =%-5.2f+i(%-5.2f)\n',real(RAm),imag(RAm));
fprintf(fid,'\n');
fprintf(fid,'p =%-3.2f\n',p);
fprintf(fid,'SBp = %5.2f+i(%-5.2f)\n',real(SBp),imag(SBp));
fprintf(fid,'RBp = %5.2f+i(%-5.2f)\n',real(RBp),imag(RBp));
fprintf(fid,'**********************************************************\n');
fprintf(fid,'\n');
variassalidas=1;
while variassalidas==1
output=input('Salida: pu(cart)=1, pu(polar)=2, Ohm-Volt-Amp(cart)=3, Ohm-Volt-Amp(polar)=4 :');
if salida==2
fprintf(fid,'Salida: pu(cart)=1, pu(polar)=2, Ohm-Volt-Amp(cart)=3, Ohm-Volt-Amp(polar)=4 : %1.0f',output);
fprintf(fid,'\n');
end
switch(output)
% OPCIONES DE SALIDA
% --------------------------------
% 21 67N V(0,1,2) V(a,b,c)
% I(0,1,2) I(a,b,c)
% 1: pu(cartesiana) *** ***
% 2: pu(polar)
% 3: OVA(cartesiana) *** *** *** ***
% 4: OVA(polar) *** *** *** ***
% **********************************************************************
case{1}, % pu(cartesiana): 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c)
% ----------------- -----------------
% **********************************************************************
% -----------------------------------------------------------------------
% C1.3 SALIDA V(0,1,2),I(0,1,2) pu cartesiana
% -----------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% -----------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA V(0,1,2),I(0,1,2) pu cartesiana\n');
fprintf(fid,'\n');
fprintf(fid,'Vm0 :%8.4f+i(%-8.4f)pu',real(Vm0),imag(Vm0));
fprintf(fid,'\tVm1 :%8.4f+i(%-8.4f)pu',real(Vm1),imag(Vm1));
fprintf(fid,'\tVm2 :%8.4f+i(%-8.4f)pu',real(Vm2),imag(Vm2));
fprintf(fid,'\n');
fprintf(fid,'Vp0 :%8.4f+i(%-8.4f)pu',real(Vp0),imag(Vp0));
fprintf(fid,'\tVp1 :%8.4f+i(%-8.4f)pu',real(Vp1),imag(Vp1));
fprintf(fid,'\tVp2 :%8.4f+i(%-8.4f)pu',real(Vp2),imag(Vp2));
fprintf(fid,'\n');
fprintf(fid,'VSA0 :%8.4f+i(%-8.4f)pu',real(VSA0),imag(VSA0));
fprintf(fid,'\tVSA1 :%8.4f+i(%-8.4f)pu',real(VSA1),imag(VSA1));
fprintf(fid,'\tVSA2 :%8.4f+i(%-8.4f)pu',real(VSA2),imag(VSA2));
fprintf(fid,'\n');
fprintf(fid,'VRA0 :%8.4f+i(%-8.4f)pu',real(VRA0),imag(VRA0));
fprintf(fid,'\tVRA1 :%8.4f+i(%-8.4f)pu',real(VRA1),imag(VRA1));
fprintf(fid,'\tVRA2 :%8.4f+i(%-8.4f)pu',real(VRA2),imag(VRA2));
fprintf(fid,'\n');
fprintf(fid,'VSB0 :%8.4f+i(%-8.4f)pu',real(VSB0),imag(VSB0));
fprintf(fid,'\tVSB1 :%8.4f+i(%-8.4f)pu',real(VSB1),imag(VSB1));
fprintf(fid,'\tVSB2 :%8.4f+i(%-8.4f)pu',real(VSB2),imag(VSB2));
fprintf(fid,'\n');
fprintf(fid,'VRB0 :%8.4f+i(%-8.4f)pu',real(VRB0),imag(VRB0));
fprintf(fid,'\tVRB1 :%8.4f+i(%-8.4f)pu',real(VRB1),imag(VRB1));
fprintf(fid,'\tVRB2 :%8.4f+i(%-8.4f)pu',real(VRB2),imag(VRB2));
fprintf(fid,'\n\n');
fprintf(fid,'Im0 :%8.2f+i(%-8.2f)',real(Im0),imag(Im0));
fprintf(fid,'\tIm1 :%8.2f+i(%-8.2f)',real(Im1),imag(Im1));
fprintf(fid,'\tIm2 :%8.2f+i(%-8.2f)',real(Im2),imag(Im2));
fprintf(fid,'\n');
fprintf(fid,'Ip0 :%8.2f+i(%-8.2f)',real(Ip0),imag(Ip0));
fprintf(fid,'\tIp1 :%8.2f+i(%-8.2f)',real(Ip1),imag(Ip1));
fprintf(fid,'\tIp2 :%8.2f+i(%-8.2f)',real(Ip2),imag(Ip2));
fprintf(fid,'\n');
fprintf(fid,'Is0 :%8.4f+i(%-8.4f)pu',real(Is0),imag(Is0));
fprintf(fid,'\tIs1 :%8.4f+i(%-8.4f)pu',real(Is1),imag(Is1));
fprintf(fid,'\tIs2 :%8.4f+i(%-8.4f)pu',real(Is2),imag(Is2));
fprintf(fid,'\n');
fprintf(fid,'Ir0 :%8.4f+i(%-8.4f)pu',real(Ir0),imag(Ir0));
fprintf(fid,'\tIr1 :%8.4f+i(%-8.4f)pu',real(Ir1),imag(Ir1));
fprintf(fid,'\tIr2 :%8.4f+i(%-8.4f)pu',real(Ir2),imag(Ir2));
fprintf(fid,'\n');
fprintf(fid,'ISAm0:%8.4f+i(%-8.4f)',real(ISAm0),imag(ISAm0));
fprintf(fid,'\tISAm1:%8.4f+i(%-8.4f)',real(ISAm1),imag(ISAm1));
fprintf(fid,'\tISAm2:%8.4f+i(%-8.4f)',real(ISAm2),imag(ISAm2));
fprintf(fid,'\n');
fprintf(fid,'IRAm0:%8.4f+i(%-8.4f)',real(IRAm0),imag(IRAm0));
fprintf(fid,'\tIRAm1:%8.4f+i(%-8.4f)',real(IRAm1),imag(IRAm1));
fprintf(fid,'\tIRAm2:%8.4f+i(%-8.4f)',real(IRAm2),imag(IRAm2));
fprintf(fid,'\n');
fprintf(fid,'ISBp0:%8.4f+i(%-8.4f)',real(ISBp0),imag(ISBp0));
fprintf(fid,'\tISBp1:%8.4f+i(%-8.4f)',real(ISBp1),imag(ISBp1));
fprintf(fid,'\tISBp2:%8.4f+i(%-8.4f)',real(ISBp2),imag(ISBp2));
fprintf(fid,'\n');
fprintf(fid,'IRBp0:%8.4f+i(%-8.4f)',real(IRBp0),imag(IRBp0));
fprintf(fid,'\tIRBp1:%8.4f+i(%-8.4f)',real(IRBp1),imag(IRBp1));
fprintf(fid,'\tIRBp2:%8.4f+i(%-8.4f)',real(IRBp2),imag(IRBp2));
fprintf(fid,'\n\n');
% ------------------------------------------------------------------
% C1.4 SALIDA V(a,b,c),I(a,b,c) pu cartesiana
% ------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% ------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA V(a,b,c),I(a,b,c) pu cartesiana\n\n');
fprintf(fid,'\n');
fprintf(fid,'Vma :%8.4f+i(%-8.4f)pu',real(Vma),imag(Vma));
fprintf(fid,'\tVmb :%8.4f+i(%-8.4f)pu',real(Vmb),imag(Vmb));
fprintf(fid,'\tVmc :%8.4f+i(%-8.4f)pu',real(Vmc),imag(Vmc));
fprintf(fid,'\n');
fprintf(fid,'Vpa :%8.4f+i(%-8.4f)pu',real(Vpa),imag(Vpa));
fprintf(fid,'\tVpb :%8.4f+i(%-8.4f)pu',real(Vpb),imag(Vpb));
fprintf(fid,'\tVpc :%8.4f+i(%-8.4f)pu',real(Vpc),imag(Vpc));
fprintf(fid,'\n');
fprintf(fid,'VSAa :%8.4f+i(%-8.4f)pu',real(VSAa),imag(VSAa));
fprintf(fid,'\tVSAb :%8.4f+i(%-8.4f)pu',real(VSAb),imag(VSAb));
fprintf(fid,'\tVSAc :%8.4f+i(%-8.4f)pu',real(VSAc),imag(VSAc));
fprintf(fid,'\n');
fprintf(fid,'VRAa :%8.4f+i(%-8.4f)pu',real(VRAa),imag(VRAa));
fprintf(fid,'\tVRAb :%8.4f+i(%-8.4f)pu',real(VRAb),imag(VRAb));
fprintf(fid,'\tVRAc :%8.4f+i(%-8.4f)pu',real(VRAc),imag(VRAc));
fprintf(fid,'\n');
fprintf(fid,'VSBa :%8.4f+i(%-8.4f)pu',real(VSBa),imag(VSBa));
fprintf(fid,'\tVSBb :%8.4f+i(%-8.4f)pu',real(VSBb),imag(VSBb));
fprintf(fid,'\tVSBc :%8.4f+i(%-8.4f)pu',real(VSBc),imag(VSBc));
fprintf(fid,'\n');
fprintf(fid,'VRBa :%8.4f+i(%-8.4f)pu',real(VRBa),imag(VRBa));
fprintf(fid,'\tVRBb :%8.4f+i(%-8.4f)pu',real(VRBb),imag(VRBb));
fprintf(fid,'\tVRBc :%8.4f+i(%-8.4f)pu',real(VRBc),imag(VRBc));
fprintf(fid,'\n\n');
fprintf(fid,'Ima :%8.4f+i(%-8.4f)pu',real(Ima),imag(Ima));
fprintf(fid,'\tImb :%8.4f+i(%-8.4f)pu',real(Imb),imag(Imb));
fprintf(fid,'\tImc :%8.4f+i(%-8.4f)pu',real(Imc),imag(Imc));
fprintf(fid,'\n');
fprintf(fid,'Ipa :%8.4f+i(%-8.4f)pu',real(Ipa),imag(Ipa));
fprintf(fid,'\tIpb :%8.4f+i(%-8.4f)pu',real(Ipb),imag(Ipb));
fprintf(fid,'\tIpc :%8.4f+i(%-8.4f)pu',real(Ipc),imag(Ipc));
fprintf(fid,'\n');
fprintf(fid,'Isa :%8.4f+i(%-8.4f)pu',real(Isa),imag(Isa));
fprintf(fid,'\tIsb :%8.4f+i(%-8.4f)pu',real(Isb),imag(Isb));
fprintf(fid,'\tIsc :%8.4f+i(%-8.4f)pu',real(Isc),imag(Isc));
fprintf(fid,'\n');
fprintf(fid,'Ira :%8.4f+i(%-8.4f)pu',real(Ira),imag(Ira));
fprintf(fid,'\tIrb :%8.4f+i(%-8.4f)pu',real(Irb),imag(Irb));
fprintf(fid,'\tIrc :%8.4f+i(%-8.4f)pu',real(Irc),imag(Irc));
fprintf(fid,'\n');
fprintf(fid,'ISAma:%8.4f+i(%-8.4f)',real(ISAma),imag(ISAma));
fprintf(fid,'\tISAmb:%8.4f+i(%-8.4f)',real(ISAmb),imag(ISAmb));
fprintf(fid,'\tISAmc:%8.4f+i(%-8.4f)',real(ISAmc),imag(ISAmc));
fprintf(fid,'\n');
fprintf(fid,'IRAma:%8.4f+i(%-8.4f)',real(IRAma),imag(IRAma));
fprintf(fid,'\tIRAmb:%8.4f+i(%-8.4f)',real(IRAmb),imag(IRAmb));
fprintf(fid,'\tIRAmc:%8.4f+i(%-8.4f)',real(IRAmc),imag(IRAmc));
fprintf(fid,'\n');
fprintf(fid,'ISBpa:%8.4f+i(%-8.4f)',real(ISBpa),imag(ISBpa));
fprintf(fid,'\tISBpb:%8.4f+i(%-8.4f)',real(ISBpb),imag(ISBpb));
fprintf(fid,'\tISBpc:%8.4f+i(%-8.4f)',real(ISBpc),imag(ISBpc));
fprintf(fid,'\n');
fprintf(fid,'IRBpa:%8.4f+i(%-8.4f)',real(IRBpa),imag(IRBpa));
fprintf(fid,'\tIRBpb:%8.4f+i(%-8.4f)',real(IRBpb),imag(IRBpb));
fprintf(fid,'\tIRBpc:%8.4f+i(%-8.4f)',real(IRBpc),imag(IRBpc));
fprintf(fid,'\n\n');
if imptransfer==1
fprintf(fid,'Izsra:%8.4f+i(%-8.4f)pu',real(Izsra),imag(Izsra));
fprintf(fid,'\tIzsrb:%8.4f+i(%-8.4f)pu',real(Izsrb),imag(Izsrb));
fprintf(fid,'\tIzsrc:%8.4f+i(%-8.4f)pu',real(Izsrc),imag(Izsrc));
fprintf(fid,'\n');
end
% **********************************************************************
case{2}, % pu(polar): 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c)
%
% **********************************************************************
% **********************************************************************
case{3}, % OVA(cartesiana): 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c)
% -- --- ----------------- -----------------
% **********************************************************************
% ------------------------------------------------------------------
% C3.1 SALIDA 21 Ohm cartesiana
% ------------------------------------------------------------------
% SAm,RAm,SBp,RBp
% ------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SAm =%-5.2f+i(%-5.2f)',real(SAm),imag(SAm));
fprintf(fid,'\tRAm =%-5.2f+i(%-5.2f)\n',real(RAm),imag(RAm));
fprintf(fid,'SBp = %-5.2f+i(%-5.2f)',real(SBp),imag(SBp));
fprintf(fid,'\tRBp = %5.2f+i(%-5.2f)\n',real(RBp),imag(RBp));
fprintf(fid,'\n');
[SAm_ZABre,SAm_ZABim]=zmed(SAm_ZAB,zbaseA); fprintf(fid,'SAm_ZAB:%7.2f+i(%-7.2f)Ohm\n',SAm_ZABre,SAm_ZABim);
[SAm_ZBCre,SAm_ZBCim]=zmed(SAm_ZBC,zbaseA); fprintf(fid,'SAm_ZBC:%7.2f+i(%-7.2f)Ohm\n',SAm_ZBCre,SAm_ZBCim);
[SAm_ZCAre,SAm_ZCAim]=zmed(SAm_ZCA,zbaseA); fprintf(fid,'SAm_ZCA:%7.2f+i(%-7.2f)Ohm\n',SAm_ZCAre,SAm_ZCAim);
[SAm_ZAGre,SAm_ZAGim]=zmed(SAm_ZAG,zbaseA); fprintf(fid,'SAm_ZAG:%7.2f+i(%-7.2f)Ohm\n',SAm_ZAGre,SAm_ZAGim);
[SAm_ZBGre,SAm_ZBGim]=zmed(SAm_ZBG,zbaseA); fprintf(fid,'SAm_ZBG:%7.2f+i(%-7.2f)Ohm\n',SAm_ZBGre,SAm_ZBGim);
[SAm_ZCGre,SAm_ZCGim]=zmed(SAm_ZCG,zbaseA); fprintf(fid,'SAm_ZCG:%7.2f+i(%-7.2f)Ohm\n',SAm_ZCGre,SAm_ZCGim);
fprintf(fid,'\n');
[SBp_ZABre,SBp_ZABim]=zmed(SBp_ZAB,zbaseB);fprintf(fid,'SBp_ZAB:%7.2f+i(%-7.2f)Ohm\n',SBp_ZABre,SBp_ZABim);
[SBp_ZBCre,SBp_ZBCim]=zmed(SBp_ZBC,zbaseB);fprintf(fid,'SBp_ZBC:%7.2f+i(%-7.2f)Ohm\n',SBp_ZBCre,SBp_ZBCim);
[SBp_ZCAre,SBp_ZCAim]=zmed(SBp_ZCA,zbaseB);fprintf(fid,'SBp_ZCA:%7.2f+i(%-7.2f)Ohm\n',SBp_ZCAre,SBp_ZCAim);
[SBp_ZAGre,SBp_ZAGim]=zmed(SBp_ZAG,zbaseB);fprintf(fid,'SBp_ZAG:%7.2f+i(%-7.2f)Ohm\n',SBp_ZAGre,SBp_ZAGim);
[SBp_ZBGre,SBp_ZBGim]=zmed(SBp_ZBG,zbaseB);fprintf(fid,'SBp_ZBG:%7.2f+i(%-7.2f)Ohm\n',SBp_ZBGre,SBp_ZBGim);
[SBp_ZCGre,SBp_ZCGim]=zmed(SBp_ZCG,zbaseB);fprintf(fid,'SBp_ZCG:%7.2f+i(%-7.2f)Ohm\n',SBp_ZCGre,SBp_ZCGim);
fprintf(fid,'\n');
[RAm_ZABre,RAm_ZABim]=zmed(RAm_ZAB,zbaseA);fprintf(fid,'RAm_ZAB:%7.2f+i(%-7.2f)Ohm\n',RAm_ZABre,RAm_ZABim);
[RAm_ZBCre,RAm_ZBCim]=zmed(RAm_ZBC,zbaseA);fprintf(fid,'RAm_ZBC:%7.2f+i(%-7.2f)Ohm\n',RAm_ZBCre,RAm_ZBCim);
[RAm_ZCAre,RAm_ZCAim]=zmed(RAm_ZCA,zbaseA);fprintf(fid,'RAm_ZCA:%7.2f+i(%-7.2f)Ohm\n',RAm_ZCAre,RAm_ZCAim);
[RAm_ZAGre,RAm_ZAGim]=zmed(RAm_ZAG,zbaseA);fprintf(fid,'RAm_ZAG:%7.2f+i(%-7.2f)Ohm\n',RAm_ZAGre,RAm_ZAGim);
[RAm_ZBGre,RAm_ZBGim]=zmed(RAm_ZBG,zbaseA);fprintf(fid,'RAm_ZBG:%7.2f+i(%-7.2f)Ohm\n',RAm_ZBGre,RAm_ZBGim);
[RAm_ZCGre,RAm_ZCGim]=zmed(RAm_ZCG,zbaseA);fprintf(fid,'RAm_ZCG:%7.2f+i(%-7.2f)Ohm\n',RAm_ZCGre,RAm_ZCGim);
fprintf(fid,'\n');
[RBp_ZABre,RBp_ZABim]=zmed(RBp_ZAB,zbaseB);fprintf(fid,'RBp_ZAB:%7.2f+i(%-7.2f)Ohm\n',RBp_ZABre,RBp_ZABim);
[RBp_ZBCre,RBp_ZBCim]=zmed(RBp_ZBC,zbaseB);fprintf(fid,'RBp_ZBC:%7.2f+i(%-7.2f)Ohm\n',RBp_ZBCre,RBp_ZBCim);
[RBp_ZCAre,RBp_ZCAim]=zmed(RBp_ZCA,zbaseB);fprintf(fid,'RBp_ZCA:%7.2f+i(%-7.2f)Ohm\n',RBp_ZCAre,RBp_ZCAim);
[RBp_ZAGre,RBp_ZAGim]=zmed(RBp_ZAG,zbaseB);fprintf(fid,'RBp_ZAG:%7.2f+i(%-7.2f)Ohm\n',RBp_ZAGre,RBp_ZAGim);
[RBp_ZBGre,RBp_ZBGim]=zmed(RBp_ZBG,zbaseB);fprintf(fid,'RBp_ZBG:%7.2f+i(%-7.2f)Ohm\n',RBp_ZBGre,RBp_ZBGim);
[RBp_ZCGre,RBp_ZCGim]=zmed(RBp_ZCG,zbaseB);fprintf(fid,'RBp_ZCG:%7.2f+i(%-7.2f)Ohm\n',RBp_ZCGre,RBp_ZCGim);
fprintf(fid,'\n');
% ------------------------------------------------------------------
% C3.2 SALIDA 67N OVA cartesiana
% ------------------------------------------------------------------
% SAm,RAm,SBp,RBp
% ------------------------------------------------------------------
% ------------------------------------------------------------------
% C3.3 SALIDA V(0,1,2),I(0,1,2) VA cartesiana
% ------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% ------------------------------------------------------------------
fprintf(fid,'SALIDA V(0,1,2),I(0,1,2) OVA cartesiana\n');
fprintf(fid,'\n');
fprintf(fid,'VVm0:%8.0f+i(%-8.0f)',real(VVm0),imag(VVm0));
fprintf(fid,'\tVVm1:%8.0f+i(%-8.0f)',real(VVm1),imag(VVm1));
fprintf(fid,'\tVVm2:%8.0f+i(%-8.0f)\n',real(VVm2),imag(VVm2));
fprintf(fid,'VVp0:%8.0f+i(%-8.0f)',real(VVp0),imag(VVp0));
fprintf(fid,'\tVVp1:%8.0f+i(%-8.0f)',real(VVp1),imag(VVp1));
fprintf(fid,'\tVVp2:%8.0f+i(%-8.0f)',real(VVp2),imag(VVp2));
fprintf(fid,'\n');
fprintf(fid,'VVSA0:%8.0f+i(%-8.0f)',real(VVSA0),imag(VVSA0));
fprintf(fid,'\tVVSA1:%8.0f+i(%-8.0f)',real(VVSA1),imag(VVSA1));
fprintf(fid,'\tVVSA2:%8.0f+i(%-8.0f)\n',real(VVSA2),imag(VVSA2));
fprintf(fid,'VVRA0:%8.0f+i(%-8.0f)',real(VVRA0),imag(VVRA0));
fprintf(fid,'\tVVRA1:%8.0f+i(%-8.0f)',real(VVRA1),imag(VVRA1));
fprintf(fid,'\tVVRA2:%8.0f+i(%-8.0f)',real(VVRA2),imag(VVRA2));
fprintf(fid,'\n');
fprintf(fid,'VVSB0:%8.0f+i(%-8.0f)',real(VVSB0),imag(VVSB0));
fprintf(fid,'\tVVSB1:%8.0f+i(%-8.0f)',real(VVSB1),imag(VVSB1));
fprintf(fid,'\tVVSB2:%8.0f+i(%-8.0f)\n',real(VVSB2),imag(VVSB2));
fprintf(fid,'VVRB0:%8.0f+i(%-8.0f)',real(VVRB0),imag(VVRB0));
fprintf(fid,'\tVVRB1:%8.0f+i(%-8.0f)',real(VVRB1),imag(VVRB1));
fprintf(fid,'\tVVRB2:%8.0f+i(%-8.0f)',real(VVRB2),imag(VVRB2));
fprintf(fid,'\n');
fprintf(fid,'IIm0 :%8.0f+i(%-8.0f)',real(IIm0),imag(IIm0));
fprintf(fid,'\tIIm1 :%8.0f+i(%-8.0f)',real(IIm1),imag(IIm1));
fprintf(fid,'\tIIm2 :%8.0f+i(%-8.0f)\n',real(IIm2),imag(IIm2));
fprintf(fid,'IIp0 :%8.0f+i(%-8.0f)',real(IIp0),imag(IIp0));
fprintf(fid,'\tIIp1 :%8.0f+i(%-8.0f)',real(IIp1),imag(IIp1));
fprintf(fid,'\tIIp2 :%8.0f+i(%-8.0f)',real(IIp2),imag(IIp2));
fprintf(fid,'\n');
fprintf(fid,'IISAm0:%8.0f+i(%-8.0f)',real(IISAm0),imag(IISAm0));
fprintf(fid,'\tIISAm1:%8.0f+i(%-8.0f)',real(IISAm1),imag(IISAm1));
fprintf(fid,'\tIISAm2:%8.0f+i(%-8.0f)\n',real(IISAm2),imag(IISAm2));
fprintf(fid,'IIRAm0:%8.0f+i(%-8.0f)',real(IIRAm0),imag(IIRAm0));
fprintf(fid,'\tIIRAm1:%8.0f+i(%-8.0f)',real(IIRAm1),imag(IIRAm1));
fprintf(fid,'\tIIRAm2:%8.0f+i(%-8.0f)',real(IIRAm2),imag(IIRAm2));
fprintf(fid,'\n');
fprintf(fid,'IISBp0:%8.0f+i(%-8.0f)',real(IISBp0),imag(IISBp0));
fprintf(fid,'\tIISBp1:%8.0f+i(%-8.0f)',real(IISBp1),imag(IISBp1));
fprintf(fid,'\tIISBp2:%8.0f+i(%-8.0f)\n',real(IISBp2),imag(IISBp2));
fprintf(fid,'IIRBp0:%8.0f+i(%-8.0f)',real(IIRBp0),imag(IIRBp0));
fprintf(fid,'\tIIRBp1:%8.0f+i(%-8.0f)',real(IIRBp1),imag(IIRBp1));
fprintf(fid,'\tIIRBp2:%8.0f+i(%-8.0f)',real(IIRBp2),imag(IIRBp2));
fprintf(fid,'\n\n');
% ------------------------------------------------------------------
% C3.4 SALIDA V(a,b,c),I(a,b,c) VA cartesiana
% ------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% ------------------------------------------------------------------
fprintf(fid,'SALIDA V(a,b,c),I(a,b,c) OVA cartesiana\n\n');
fprintf(fid,'VVma:%8.0f+i(%-8.0f)',real(VVma),imag(VVma));
fprintf(fid,'\tVVmb:%8.0f+i(%-8.0f)',real(VVmb),imag(VVmb));
fprintf(fid,'\tVVmc:%8.0f+i(%-8.0f)\n',real(VVmc),imag(VVmc));
fprintf(fid,'VVpa:%8.0f+i(%-8.0f)',real(VVpa),imag(VVpa));
fprintf(fid,'\tVVpb:%8.0f+i(%-8.0f)',real(VVpb),imag(VVpb));
fprintf(fid,'\tVVpc:%8.0f+i(%-8.0f)',real(VVpc),imag(VVpc));
fprintf(fid,'\n');
fprintf(fid,'VVSAa:%8.0f+i(%-8.0f)',real(VVSAa),imag(VVSAa));
fprintf(fid,'\tVVSAb:%8.0f+i(%-8.0f)',real(VVSAb),imag(VVSAb));
fprintf(fid,'\tVVSAc:%8.0f+i(%-8.0f)\n',real(VVSAc),imag(VVSAc));
fprintf(fid,'VVRAa:%8.0f+i(%-8.0f)',real(VVRAa),imag(VVRAa));
fprintf(fid,'\tVVRAb:%8.0f+i(%-8.0f)',real(VVRAb),imag(VVRAb));
fprintf(fid,'\tVVRAc:%8.0f+i(%-8.0f)',real(VVRAc),imag(VVRAc));
fprintf(fid,'\n');
fprintf(fid,'VVSBa:%8.0f+i(%-8.0f)',real(VVSBa),imag(VVSBa));
fprintf(fid,'\tVVSBb:%8.0f+i(%-8.0f)',real(VVSBb),imag(VVSBb));
fprintf(fid,'\tVVSBc:%8.0f+i(%-8.0f)\n',real(VVSBc),imag(VVSBc));
fprintf(fid,'VVRBa:%8.0f+i(%-8.0f)',real(VVRBa),imag(VVRBa));
fprintf(fid,'\tVVRBb:%8.0f+i(%-8.0f)',real(VVRBb),imag(VVRBb));
fprintf(fid,'\tVVRBc:%8.0f+i(%-8.0f)',real(VVRBc),imag(VVRBc));
fprintf(fid,'\n\n');
fprintf(fid,'IIma :%8.0f+i(%-8.0f)',real(IIma),imag(IIma));
fprintf(fid,'\tIImb :%8.0f+i(%-8.0f)',real(IImb),imag(IImb));
fprintf(fid,'\tIImc :%8.0f+i(%-8.0f)\n',real(IImc),imag(IImc));
fprintf(fid,'IIpa :%8.0f+i(%-8.0f)',real(IIpa),imag(IIpa));
fprintf(fid,'\tIIpb :%8.0f+i(%-8.0f)',real(IIpb),imag(IIpb));
fprintf(fid,'\tIIpc :%8.0f+i(%-8.0f)',real(IIpc),imag(IIpc));
fprintf(fid,'\n');
fprintf(fid,'IISAma:%8.0f+i(%-8.0f)',real(IISAma),imag(IISAma));
fprintf(fid,'\tIISAmb:%8.0f+i(%-8.0f)',real(IISAmb),imag(IISAmb));
fprintf(fid,'\tIISAmc:%8.0f+i(%-8.0f)\n',real(IISAmc),imag(IISAmc));
fprintf(fid,'IIRAma:%8.0f+i(%-8.0f)',real(IIRAma),imag(IIRAma));
fprintf(fid,'\tIIRAmb:%8.0f+i(%-8.0f)',real(IIRAmb),imag(IIRAmb));
fprintf(fid,'\tIIRAmc:%8.0f+i(%-8.0f)',real(IIRAmc),imag(IIRAmc));
fprintf(fid,'\n');
fprintf(fid,'IISBpa:%8.0f+i(%-8.0f)',real(IISBpa),imag(IISBpa));
fprintf(fid,'\tIISBpb:%8.0f+i(%-8.0f)',real(IISBpb),imag(IISBpb));
fprintf(fid,'\tIISBpc:%8.0f+i(%-8.0f)\n',real(IISBpc),imag(IISBpc));
fprintf(fid,'IIRBpa:%8.0f+i(%-8.0f)',real(IIRBpa),imag(IIRBpa));
fprintf(fid,'\tIIRBpb:%8.0f+i(%-8.0f)',real(IIRBpb),imag(IIRBpb));
fprintf(fid,'\tIIRBpc:%8.0f+i(%-8.0f)',real(IIRBpc),imag(IIRBpc));
fprintf(fid,'\n\n');
% **********************************************************************
case{4}, % OVA(polar): 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c)
%
% **********************************************************************
% ------------------------------------------------------------------
% C4.1 SALIDA 21, Ohm , polar
% ------------------------------------------------------------------
% SAm,RAm,SBp,RBp
% ------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA 21, Ohm , polar \n');
fprintf(fid,'\n');
fprintf(fid,'Nota: Componentes de Z >=10000 Ohm se representan por Inf\n');
fprintf(fid,'Nota: Componentes de Z <=-10000 Ohm se representan por -Inf\n');
fprintf(fid,'\n');
[mod,arg]=mod_arg(SAm);fprintf(fid,'SAm=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_arg(RAm);fprintf(fid,'RAm=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_arg(SBp);fprintf(fid,'SBp=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_arg(RBp);fprintf(fid,'RBp=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_argz(SAm_ZZAB);fprintf(fid,'SAm_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SAm_ZZBC);fprintf(fid,'SAm_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SAm_ZZCA);fprintf(fid,'SAm_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SAm_ZZAG);fprintf(fid,'SAm_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SAm_ZZBG);fprintf(fid,'SAm_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SAm_ZZCG);fprintf(fid,'SAm_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf('\n');
[mod,arg]=mod_argz(SBp_ZZAB);fprintf(fid,'SBp_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SBp_ZZBC);fprintf(fid,'SBp_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SBp_ZZCA);fprintf(fid,'SBp_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SBp_ZZAG);fprintf(fid,'SBp_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SBp_ZZBG);fprintf(fid,'SBp_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(SBp_ZZCG);fprintf(fid,'SBp_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf('\n');
[mod,arg]=mod_argz(RAm_ZZAB);fprintf(fid,'RAm_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RAm_ZZBC);fprintf(fid,'RAm_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RAm_ZZCA);fprintf(fid,'RAm_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RAm_ZZAG);fprintf(fid,'RAm_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RAm_ZZBG);fprintf(fid,'RAm_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RAm_ZZCG);fprintf(fid,'RAm_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf('\n');
[mod,arg]=mod_argz(RBp_ZZAB);fprintf(fid,'RBp_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RBp_ZZBC);fprintf(fid,'RBp_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RBp_ZZCA);fprintf(fid,'RBp_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RBp_ZZAG);fprintf(fid,'RBp_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RBp_ZZBG);fprintf(fid,'RBp_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
[mod,arg]=mod_argz(RBp_ZZCG);fprintf(fid,'RBp_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg);
fprintf('\n');
% -----------------------------------------------------------------------
% C4.2 SALIDA 67N Volt,Amp polar
% -----------------------------------------------------------------------
% SAm,RAm,SBp,RBp
% -----------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA 67N, Volt, Amp, polar\n');
fprintf(fid,'\n');
fprintf(fid,'SAm_67N:\tVSApol=%-8.0f(V)\tISAmop=%-8.0f(A)\tAngDirSAm=%-5.1f\n',VVSApol,IISAmop,AngDirSAm);
fprintf(fid,'SBp_67N:\tVSBpol=%-8.0f(V)\tISBpop=%-8.0f(A)\tAngDirSBp=%-5.1f\n',VVSBpol,IISBpop,AngDirSBp);
fprintf(fid,'RAm_67N:\tVRApol=%-8.0f(V)\tIRAmop=%-8.0f(A)\tAngDirRAm=%-5.1f\n',VVRApol,IIRAmop,AngDirRAm);
fprintf(fid,'RBp_67N:\tVRBpol=%-8.0f(V)\tIRBpop=%-8.0f(A)\tAngDirRBp=%-5.1f\n',VVRBpol,IIRBpop,AngDirRBp);
% ------------------------------------------------------------------
% C4.3 SALIDA V(0,1,2), I(0,1,2) Volt,Amp polar
% ------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% ------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA V(0,1,2), I(0,1,2) pu polar\n');
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVm0);fprintf(fid,'Vm0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVm1);fprintf(fid,'Vm1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVm2);fprintf(fid,'Vm2 =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVp0);fprintf(fid,'Vp0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVp1);fprintf(fid,'Vp1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVp2);fprintf(fid,'Vp2 =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVSA0);fprintf(fid,'VSA0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSA1);fprintf(fid,'VSA1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSA2);fprintf(fid,'VSA2 =%6.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVRA0);fprintf(fid,'VRA0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRA1);fprintf(fid,'VRA1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRA2);fprintf(fid,'VRA2 =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVSB0);fprintf(fid,'VSB0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSB1);fprintf(fid,'VSB1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSB2);fprintf(fid,'VSB2 =%6.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVRB0);fprintf(fid,'VRB0 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRB1);fprintf(fid,'VRB1 =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRB2);fprintf(fid,'VRB2 =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
%-------------------------------------------------------------------------------
fprintf(fid,'\n');
%-------------------------------------------------------------------------------
[mod,arg]=mod_arg(IIm0);fprintf(fid,'Im0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIm1);fprintf(fid,'Im1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIm2);fprintf(fid,'Im2 =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIp0);fprintf(fid,'Ip0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIp1);fprintf(fid,'Ip1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIp2);fprintf(fid,'Ip2 =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIs0);fprintf(fid,'Is0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIs1);fprintf(fid,'Is1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIs2);fprintf(fid,'Is2 =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIr0);fprintf(fid,'Ir0 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIr1);fprintf(fid,'Ir1 =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIr2);fprintf(fid,'Ir2 =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IISAm0);fprintf(fid,'ISAm0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISAm1);fprintf(fid,'ISAm1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISAm2);fprintf(fid,'ISAm2=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IISBp0);fprintf(fid,'ISBp0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISBp1);fprintf(fid,'ISBp1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISBp2);fprintf(fid,'ISBp2=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIRAm0);fprintf(fid,'IRAm0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRAm1);fprintf(fid,'IRAm1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRAm2);fprintf(fid,'IRAm2=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIRBp0);fprintf(fid,'IRBp0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRBp1);fprintf(fid,'IRBp1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRBp2);fprintf(fid,'IRBp2=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
if imptransfer==1
[mod,arg]=mod_arg(IIzsr0);fprintf(fid,'Izsr0=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIzsr1);fprintf(fid,'Izsr1=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIzsr2);fprintf(fid,'Izsr2=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
end
% ------------------------------------------------------------------
% C4.4 SALIDA V(a,b,c), I(a,b,c) Volt,Amp polar
% ------------------------------------------------------------------
% Vm,Vp,VSA,VRA,VSB,VRB
% Im,Ip,Is,Ir,ISAm,IRAm,ISBp,IRBp,Izsr
% ------------------------------------------------------------------
fprintf(fid,'\n');
fprintf(fid,'SALIDA V(a,b,c), I(a,b,c) Volt,Amp Polar\n');
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVma);fprintf(fid,'Vma =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVmb);fprintf(fid,'Vmb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVmc);fprintf(fid,'Vmc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVpa);fprintf(fid,'Vpa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVpb);fprintf(fid,'Vpb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVpc);fprintf(fid,'Vpc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVSAa);fprintf(fid,'VSAa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSAb);fprintf(fid,'VSAb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSAc);fprintf(fid,'VSAc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVRAa);fprintf(fid,'VRAa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRAb);fprintf(fid,'VRAb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRAc);fprintf(fid,'VRAc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVSBa);fprintf(fid,'VSBa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSBb);fprintf(fid,'VSBb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVSBc);fprintf(fid,'VSBc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(VVRBa);fprintf(fid,'VRBa =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRBb);fprintf(fid,'VRBb =%8.0f(%-5.1f)(V)\t',mod,arg);
[mod,arg]=mod_arg(VVRBc);fprintf(fid,'VRBc =%8.0f(%-5.1f)(V)',mod,arg);
fprintf(fid,'\n');
%-------------------------------------------------------------------------------
fprintf(fid,'\n');
%-------------------------------------------------------------------------------
[mod,arg]=mod_arg(IIma);fprintf(fid,'Ima =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IImb);fprintf(fid,'Imb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IImc);fprintf(fid,'Imc =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIpa);fprintf(fid,'Ipa =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIpb);fprintf(fid,'Ipb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIpc);fprintf(fid,'Ipc =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIsa);fprintf(fid,'Isa =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIsb);fprintf(fid,'Isb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIsc);fprintf(fid,'Isc =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIra);fprintf(fid,'Ira =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIrb);fprintf(fid,'Irb =%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIrc);fprintf(fid,'Irc =%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n\n');
[mod,arg]=mod_arg(IISAma);fprintf(fid,'ISAma=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISAmb);fprintf(fid,'ISAmb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISAmc);fprintf(fid,'ISAmc=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IISBpa);fprintf(fid,'ISBpa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISBpb);fprintf(fid,'ISBpb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IISBpc);fprintf(fid,'ISBpc=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIRAma);fprintf(fid,'IRAma=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRAmb);fprintf(fid,'IRAmb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRAmc);fprintf(fid,'IRAmc=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
[mod,arg]=mod_arg(IIRBpa);fprintf(fid,'IRBpa=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRBpb);fprintf(fid,'IRBpb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIRBpc);fprintf(fid,'IRBpc=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
if imptransfer==1
[mod,arg]=mod_arg(IIzsra);fprintf(fid,'Izsra=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIzsrb);fprintf(fid,'Izsrb=%8.0f(%-5.1f)(A)\t',mod,arg);
[mod,arg]=mod_arg(IIzsrc);fprintf(fid,'Izsrc=%8.0f(%-5.1f)(A)',mod,arg);
fprintf(fid,'\n');
end
end % end del switch(output)
fprintf(fid,'\n');
variassalidas=input('Mas Salidas=1,Acabar=2 :');
end % end del while variassalidas
if salida==2
fclose(fid);
end
% -------------------------------------------------------
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.
