clc variasejecuciones=1; while variasejecuciones==1 clear % ------------------------------------------------------------ salida=input('Pantalla=1, Archivo=2 :'); if salida==2 cadena=input('Poner NombreArchivo.txt:','s');cadena cadena1=strcat('Salida\',cadena); end if salida==1 fid=1; elseif salida==2 fid=fopen(cadena1,'w+'); end % ------------------------------------------------------------ fprintf(fid,'PC124ml\n'); fprintf(fid,'FC124ml.m\n'); fprintf(fid,'\n'); fprintf(fid,'Falta Doble sobre SR1. mm,p =(0...1)= :'); fprintf(fid,'\n'); if fid==1 else fprintf(fid,'p=%4.2f\n',p); fprintf(fid,'\n'); end Rp=zl1u*(1-p)*L; % pu RRp=Rp*zbase; % Ohm if imptransfer==2 [Minc]=subMinc1(1); [Minca]=subMinca1(1); [z0]=subz0_1(zs0,zr0,zl0,zlM0,m,p); [z1]=subz1_1(zs1,zr1,zl1,m,p); [z2]=subz2_1(zs2,zr2,zl2,m,p); end if imptransfer==1 [Minc]=subMinc1sr(1); [Minca]=subMinca1sr(1); [z0]=subz0_1sr(zs0,zsr0,zr0,zl0,zlM0,m,p); [z1]=subz1_1sr(zs1,zsr1,zr1,zl1,m,p); [z2]=subz2_1sr(zs2,zsr2,zr2,zl2,m,p); end % MATRIZ DE ADMITANCIA DE BARRAS [Y0]=subY0(Minc,z0); % pu [Y1]=subY1(Minc,z1); % pu [Y2]=subY2(Minc,z2); % pu % ZBUS(0,1,2) Z0=inv(Y0); % pu Z1=inv(Y1); % pu Z2=inv(Y2); % pu % 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,zbase); % 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 fprintf(fid,'\n'); fprintf(fid,'m =%-3.2f\t',m); fprintf(fid,'Falta:%s\t',cfaltam); fprintf(fid,'Rfm:%-10.2f Ohm',Rfm*zbase); if (faltam==7)|(faltam==8)|(faltam==9)|(faltam==11) fprintf(fid,'\tRgm:%-10.2f Ohm',Rgm*zbase); end fprintf(fid,'\n'); fprintf(fid,'p =%-3.2f\t',p); fprintf(fid,'Falta:%s\t',cfaltap); fprintf(fid,'Rfp:%-10.2f Ohm',Rfp*zbase); if (faltap==7)|(faltap==8)|(faltap==9)|(faltap==11) fprintf(fid,'\tRgp:%-10.2f Ohm',Rgp*zbase); end fprintf(fid,'\n'); % IBUS(0,1,2) I0=zeros(4,1); I1=zeros(4,1); I2=zeros(4,1); I0(3,1)=-Im0; I1(3,1)=-Im1; I2(3,1)=-Im2; I0(4,1)=-Ip0; I1(4,1)=-Ip1; I2(4,1)=-Ip2; % VBUS(0,1,2) V0=Z0*I0; V1=Z1*I1+E; V1a=[V1;E]; V2=Z2*I2; % Ie(0,1,2) DE LOS ELEMENTOS [Ie0]=subIe0(Minc,V0,z0); [Ie1]=subIe1(Minca,V1a,z1); [Ie2]=subIe2(Minc,V2,z2); % ASIGNACIONES V,I Vbase=Vbase*1000; Ibase=Ibase*1000; VVm0=Vm0*Vbase;VVm1=Vm1*Vbase;VVm2=Vm2*Vbase; VVp0=Vp0*Vbase;VVp1=Vp1*Vbase;VVp2=Vp2*Vbase; Vs0=V0(1);Vs1=V1(1);Vs2=V2(1); VVs0=Vs0*Vbase;VVs1=Vs1*Vbase;VVs2=Vs2*Vbase; Vr0=V0(2);Vr1=V1(2);Vr2=V2(2); VVr0=Vr0*Vbase;VVr1=Vr1*Vbase;VVr2=Vr2*Vbase; IIm0=Im0*Ibase;IIm1=Im1*Ibase;IIm2=Im2*Ibase; IIp0=Ip0*Ibase;IIp1=Ip1*Ibase;IIp2=Ip2*Ibase; Is0=Ie0(1);Is1=Ie1(1);Is2=Ie2(1); IIs0=Is0*Ibase;IIs1=Is1*Ibase;IIs2=Is2*Ibase; Ir0=Ie0(2);Ir1=Ie1(2);Ir2=Ie2(2); IIr0=Ir0*Ibase;IIr1=Ir1*Ibase;IIr2=Ir2*Ibase; Ism0=Ie0(3);Ism1=Ie1(3);Ism2=Ie2(3); IIsm0=Ism0*Ibase;IIsm1=Ism1*Ibase;IIsm2=Ism2*Ibase; Isr0=Ie0(4);Isr1=Ie1(4);Isr2=Ie2(4); IIsr0=Isr0*Ibase;IIsr1=Isr1*Ibase;IIsr2=Isr2*Ibase; Irs0=-Ie0(4);Irs1=-Ie1(4);Irs2=-Ie2(4); IIrs0=Irs0*Ibase;IIrs1=Irs1*Ibase;IIrs2=Irs2*Ibase; Irp0=Ie0(5);Irp1=Ie1(5);Irp2=Ie2(5); IIrp0=Irp0*Ibase;IIrp1=Irp1*Ibase;IIrp2=Irp2*Ibase; Imp0=Ie0(6);Imp1=Ie1(6);Imp2=Ie2(6); IImp0=Imp0*Ibase;IImp1=Imp1*Ibase;IImp2=Imp2*Ibase; if imptransfer==1 Izsr0=Ie0(7);Izsr1=Ie1(7);Izsr2=Ie2(7); IIzsr0=Izsr0*Ibase;IIzsr1=Izsr1*Ibase;IIzsr2=Izsr2*Ibase; end [Ima,Imb,Imc]=abc(Im0,Im1,Im2); IIma=Ima*Ibase;IImb=Imb*Ibase;IImc=Imc*Ibase; [Ipa,Ipb,Ipc]=abc(Ip0,Ip1,Ip2); IIpa=Ipa*Ibase;IIpb=Ipb*Ibase;IIpc=Ipc*Ibase; [Isa,Isb,Isc]=abc(Is0,Is1,Is2); IIsa=Isa*Ibase;IIsb=Isb*Ibase;IIsc=Isc*Ibase; [Ira,Irb,Irc]=abc(Ir0,Ir1,Ir2); IIra=Ira*Ibase;IIrb=Irb*Ibase;IIrc=Irc*Ibase; [Isma,Ismb,Ismc]=abc(Ism0,Ism1,Ism2); IIsma=Isma*Ibase;IIsmb=Ismb*Ibase;IIsmc=Ismc*Ibase; [Isra,Isrb,Isrc]=abc(Isr0,Isr1,Isr2); IIsra=Isra*Ibase;IIsrb=Isrb*Ibase;IIsrc=Isrc*Ibase; [Irsa,Irsb,Irsc]=abc(Irs0,Irs1,Irs2); IIrsa=Irsa*Ibase;IIrsb=Irsb*Ibase;IIrsc=Irsc*Ibase; [Irpa,Irpb,Irpc]=abc(Irp0,Irp1,Irp2); IIrpa=Irpa*Ibase;IIrpb=Irpb*Ibase;IIrpc=Irpc*Ibase; [Impa,Impb,Impc]=abc(Imp0,Imp1,Imp2); IImpa=Impa*Ibase;IImpb=Impb*Ibase;IImpc=Impc*Ibase; if imptransfer==1 [Izsra,Izsrb,Izsrc]=abc(Izsr0,Izsr1,Izsr2); IIzsra=Izsra*Ibase;IIzsrb=Izsrb*Ibase;IIzsrc=Izsrc*Ibase; end [Vma,Vmb,Vmc]=abc(Vm0,Vm1,Vm2); VVma=Vma*Vbase;VVmb=Vmb*Vbase;VVmc=Vmc*Vbase; [Vpa,Vpb,Vpc]=abc(Vp0,Vp1,Vp2); VVpa=Vpa*Vbase;VVpb=Vpb*Vbase;VVpc=Vpc*Vbase; [Vsa,Vsb,Vsc]=abc(Vs0,Vs1,Vs2); VVsa=Vsa*Vbase;VVsb=Vsb*Vbase;VVsc=Vsc*Vbase; [Vra,Vrb,Vrc]=abc(Vr0,Vr1,Vr2); VVra=Vra*Vbase;VVrb=Vrb*Vbase;VVrc=Vrc*Vbase; % PROTECCION DE DISTANCIA (21) switch(compens21) case{1}, % COMPENSADA [Sm_ZAB,Sm_ZBC,Sm_ZCA,Sm_ZAG,Sm_ZBG,Sm_ZCG]=... PDistComp(Vsa,Vsb,Vsc,Isma,Ismb,Ismc,Ism0,k,Km,Isr0); [Sr_ZAB,Sr_ZBC,Sr_ZCA,Sr_ZAG,Sr_ZBG,Sr_ZCG]=... PDistComp(Vsa,Vsb,Vsc,Isra,Isrb,Isrc,Isr0,k,Km,Ism0); [Rs_ZAB,Rs_ZBC,Rs_ZCA,Rs_ZAG,Rs_ZBG,Rs_ZCG]=... PDistComp(Vra,Vrb,Vrc,Irsa,Irsb,Irsc,Irs0,k,Km,Irp0); [Rp_ZAB,Rp_ZBC,Rp_ZCA,Rp_ZAG,Rp_ZBG,Rp_ZCG]=... PDistComp(Vra,Vrb,Vrc,Irpa,Irpb,Irpc,Irp0,k,Km,Irs0); case{2}, % NO COMPENSADA [Sm_ZAB,Sm_ZBC,Sm_ZCA,Sm_ZAG,Sm_ZBG,Sm_ZCG]=... PDist(Vsa,Vsb,Vsc,Isma,Ismb,Ismc,Ism0,k); [Sr_ZAB,Sr_ZBC,Sr_ZCA,Sr_ZAG,Sr_ZBG,Sr_ZCG]=... PDist(Vsa,Vsb,Vsc,Isra,Isrb,Isrc,Isr0,k); [Rs_ZAB,Rs_ZBC,Rs_ZCA,Rs_ZAG,Rs_ZBG,Rs_ZCG]=... PDist(Vra,Vrb,Vrc,Irsa,Irsb,Irsc,Irs0,k); [Rp_ZAB,Rp_ZBC,Rp_ZCA,Rp_ZAG,Rp_ZBG,Rp_ZCG]=... PDist(Vra,Vrb,Vrc,Irpa,Irpb,Irpc,Irp0,k); end % 67N [Vspol,Ismop,AngDirSm]=PDire(Vs0,Ism0); VVspol=Vspol*Vbase;IIsmop=Ismop*Ibase; [Vspol,Isrop,AngDirSr]=PDire(Vs0,Isr0); IIsrop=Isrop*Ibase; [Vrpol,Irsop,AngDirRs]=PDire(Vr0,Irs0); VVrpol=Vrpol*Vbase;IIrsop=Irsop*Ibase; [Vrpol,Irpop,AngDirRp]=PDire(Vr0,Irp0); IIrpop=Irpop*Ibase; % ****************************************************************** % *************************** SALIDA ****************************** % ****************************************************************** fprintf(fid,'*******************************************************\n'); fprintf(fid,'\n'); fprintf(fid,'Unominal =%-4.0f(kV)\n',Unominal); fprintf(fid,'kE=E/Enominal =%-4.0f\n',kE); 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('zsr1=zsr2=%-7.2f+i(%-7.2f)Ohm',real(zsr1),imag(zsr1)); fprintf('\tzsr0=%-7.2f+i(%-7.2f)Ohm\n',real(zsr0),imag(zsr0)); end fprintf(fid,'Sccs(MVA)=%-8.0f',Sccs); fprintf(fid,'\tSccr(MVA)=%-8.0f\n',Sccr); fprintf(fid,'L(km)=%-5.1f\n',L); fprintf(fid,'Ibase(kA)=%-8.2f\n',Ibase); fprintf(fid,'\tKr0=%-4.1f\n',Kr0); fprintf(fid,'k0=%-4.1f\n',k0); 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 ************** SALIDA V(0,1,2),I(0,1,2) pu cartesiana *********** % ----------------------------------------------------------------------- % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ----------------------------------------------------------------------- fprintf(fid,'\n'); fprintf(fid,'SALIDA V(0,1,2),I(0,1,2) pu cartesiana\n\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,'Vs0 :%8.4f+i(%-8.4f)pu',real(Vs0),imag(Vs0)); fprintf(fid,'\tVs1 :%8.4f+i(%-8.4f)pu',real(Vs1),imag(Vs1)); fprintf(fid,'\tVs2 :%8.4f+i(%-8.4f)pu',real(Vs2),imag(Vs2)); fprintf(fid,'\n'); fprintf(fid,'Vr0 :%8.4f+i(%-8.4f)pu',real(Vr0),imag(Vr0)); fprintf(fid,'\tVr1 :%8.4f+i(%-8.4f)pu',real(Vr1),imag(Vr1)); fprintf(fid,'\tVr2 :%8.4f+i(%-8.4f)pu',real(Vr2),imag(Vr2)); fprintf(fid,'\n\n'); % ---------------------------------------------------------- fprintf(fid,'Im0 :%8.4f+i(%-8.4f)pu',real(Im0),imag(Im0)); fprintf(fid,'\tIm1 :%8.4f+i(%-8.4f)pu',real(Im1),imag(Im1)); fprintf(fid,'\tIm2 :%8.4f+i(%-8.4f)pu',real(Im2),imag(Im2)); fprintf(fid,'\n'); fprintf(fid,'Ip0 :%8.4f+i(%-8.4f)pu',real(Ip0),imag(Ip0)); fprintf(fid,'\tIp1 :%8.4f+i(%-8.4f)pu',real(Ip1),imag(Ip1)); fprintf(fid,'\tIp2 :%8.4f+i(%-8.4f)pu',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,'Ism0 :%8.4f+i(%-8.4f)pu',real(Ism0),imag(Ism0)); fprintf(fid,'\tIsm1 :%8.4f+i(%-8.4f)pu',real(Ism1),imag(Ism1)); fprintf(fid,'\tIsm2 :%8.4f+i(%-8.4f)pu',real(Ism2),imag(Ism2)); fprintf(fid,'\n'); fprintf(fid,'Isr0 :%8.4f+i(%-8.4f)pu',real(Isr0),imag(Isr0)); fprintf(fid,'\tIsr1 :%8.4f+i(%-8.4f)pu',real(Isr1),imag(Isr1)); fprintf(fid,'\tIsr2 :%8.4f+i(%-8.4f)pu',real(Isr2),imag(Isr2)); fprintf(fid,'\n'); fprintf(fid,'Irp0 :%8.4f+i(%-8.4f)pu',real(Irp0),imag(Irp0)); fprintf(fid,'\tIrp1 :%8.4f+i(%-8.4f)pu',real(Irp1),imag(Irp1)); fprintf(fid,'\tIrp2 :%8.4f+i(%-8.4f)pu',real(Irp2),imag(Irp2)); fprintf(fid,'\n'); fprintf(fid,'Imp0 :%8.4f+i(%-8.4f)pu',real(Imp0),imag(Imp0)); fprintf(fid,'\tImp1 :%8.4f+i(%-8.4f)pu',real(Imp1),imag(Imp1)); fprintf(fid,'\tImp2 :%8.4f+i(%-8.4f)pu',real(Imp2),imag(Imp2)); fprintf(fid,'\n'); % ------------------------------------------------------------------ % ** C1 *********** SALIDA V(a,b,c),I(a,b,c) pu cartesiana ********* % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,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,'Vsa :%8.4f+i(%-8.4f)pu',real(Vsa),imag(Vsa)); fprintf(fid,'\tVsb :%8.4f+i(%-8.4f)pu',real(Vsb),imag(Vsb)); fprintf(fid,'\tVsc :%8.4f+i(%-8.4f)pu',real(Vsc),imag(Vsc)); fprintf(fid,'\n'); fprintf(fid,'Vra :%8.4f+i(%-8.4f)pu',real(Vra),imag(Vra)); fprintf(fid,'\tVrb :%8.4f+i(%-8.4f)pu',real(Vrb),imag(Vrb)); fprintf(fid,'\tVrc :%8.4f+i(%-8.4f)pu',real(Vrc),imag(Vrc)); 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,'Isma :%8.4f+i(%-8.4f)pu',real(Isma),imag(Isma)); fprintf(fid,'\tIsmb :%8.4f+i(%-8.4f)pu',real(Ismb),imag(Ismb)); fprintf(fid,'\tIsmc :%8.4f+i(%-8.4f)pu',real(Ismc),imag(Ismc)); fprintf(fid,'\n'); fprintf(fid,'Isra :%8.4f+i(%-8.4f)pu',real(Isra),imag(Isra)); fprintf(fid,'\tIsrb :%8.4f+i(%-8.4f)pu',real(Isrb),imag(Isrb)); fprintf(fid,'\tIsrc :%8.4f+i(%-8.4f)pu',real(Isrc),imag(Isrc)); fprintf(fid,'\n'); fprintf(fid,'Irpa :%8.4f+i(%-8.4f)pu',real(Irpa),imag(Irpa)); fprintf(fid,'\tIrpb :%8.4f+i(%-8.4f)pu',real(Irpb),imag(Irpb)); fprintf(fid,'\tIrpc :%8.4f+i(%-8.4f)pu',real(Irpc),imag(Irpc)); fprintf(fid,'\n'); fprintf(fid,'Impa :%8.4f+i(%-8.4f)pu',real(Impa),imag(Impa)); fprintf(fid,'\tImpb :%8.4f+i(%-8.4f)pu',real(Impb),imag(Impb)); fprintf(fid,'\tImpc :%8.4f+i(%-8.4f)pu',real(Impc),imag(Impc)); fprintf(fid,'\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\n'); end % ****************************************************************** case{2}, % pu(polar): 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c) % --- ----------------- ---------------- % ****************************************************************** % ------------------------------------------------------------------ % ** C2 ******************* SALIDA 67N pu polar ******************** % ------------------------------------------------------------------ % Sm(e1,e3),Sp_2,Sr_1,Rm(e1,e2),Rp_2,Rs_1 % ------------------------------------------------------------------ fprintf(fid,'SALIDA 67N, pu, polar\n'); fprintf(fid,'\n'); fprintf(fid,'Sm_67N:\tVspol=%8.4f\tIsmop=%8.4f\tAngDirSm=%5.1f\n',Vspol,Ismop,AngDirSm); fprintf(fid,'Sr_67N:\tVspol=%8.4f\tIsrop=%8.4f\tAngDirSr=%5.1f\n',Vspol,Isrop,AngDirSr); fprintf(fid,'Rp_67N:\tVrpol=%8.4f\tIrpop=%8.4f\tAngDirRp=%5.1f\n',Vrpol,Irpop,AngDirRp); fprintf(fid,'Rs_67N:\tVrpol=%8.4f\tIrsop=%8.4f\tAngDirRs=%5.1f\n',Vrpol,Irsop,AngDirRs); % ------------------------------------------------------------------ % ** C2 ************* SALIDA V(0,1,2), I(0,1,2) pu polar *********** % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ------------------------------------------------------------------ fprintf(fid,'SALIDA V(0,1,2), I(0,1,2) pu polar\n'); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vm0);fprintf(fid,'Vm0 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vm1);fprintf(fid,'Vm1 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vm2);fprintf(fid,'Vm2 =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vp0);fprintf(fid,'Vp0 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vp1);fprintf(fid,'Vp1 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vp2);fprintf(fid,'Vp2 =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vs0);fprintf(fid,'Vs0 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vs1);fprintf(fid,'Vs1 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vs2);fprintf(fid,'Vs2 =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vr0);fprintf(fid,'Vr0 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vr1);fprintf(fid,'Vr1 =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vr2);fprintf(fid,'Vr2 =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); %------------------------------------------------------------------------------- fprintf(fid,'\n'); %------------------------------------------------------------------------------- [mod,arg]=mod_arg(Im0);fprintf(fid,'Im0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Im1);fprintf(fid,'Im1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Im2);fprintf(fid,'Im2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Ip0);fprintf(fid,'Ip0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ip1);fprintf(fid,'Ip1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ip2);fprintf(fid,'Ip2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Is0);fprintf(fid,'Is0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Is1);fprintf(fid,'Is1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Is2);fprintf(fid,'Is2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Ir0);fprintf(fid,'Ir0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ir1);fprintf(fid,'Ir1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ir2);fprintf(fid,'Ir2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Ism0);fprintf(fid,'Ism0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ism1);fprintf(fid,'Ism1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ism2);fprintf(fid,'Ism2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Isr0);fprintf(fid,'Isr0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isr1);fprintf(fid,'Isr1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isr2);fprintf(fid,'Isr2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Irp0);fprintf(fid,'Irp0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irp1);fprintf(fid,'Irp1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irp2);fprintf(fid,'Irp2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Imp0);fprintf(fid,'Imp0 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Imp1);fprintf(fid,'Imp1 =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Imp2);fprintf(fid,'Imp2 =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); if imptransfer==1 [mod,arg]=mod_arg(Izsr0);fprintf(fid,'Izsr0=%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Izsr1);fprintf(fid,'Izsr1=%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Izsr2);fprintf(fid,'Izsr2=%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); end % ------------------------------------------------------------------ % ** C2 ************ SALIDA V(a,b,c), I(a,b,c) pu Polar ************ % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ------------------------------------------------------------------ fprintf(fid,'SALIDA V(a,b,c), I(a,b,c) pu Polar\n'); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vma);fprintf(fid,'Vma =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vmb);fprintf(fid,'Vmb =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vmc);fprintf(fid,'Vmc =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vpa);fprintf(fid,'Vpa =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vpb);fprintf(fid,'Vpb =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vpc);fprintf(fid,'Vpc =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vsa);fprintf(fid,'Vsa =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vsb);fprintf(fid,'Vsb =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vsc);fprintf(fid,'Vsc =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Vra);fprintf(fid,'Vra =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vrb);fprintf(fid,'Vrb =%8.4f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(Vrc);fprintf(fid,'Vrc =%8.4f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); %------------------------------------------------------------------------------- fprintf(fid,'\n'); %------------------------------------------------------------------------------- [mod,arg]=mod_arg(Ima);fprintf(fid,'Ima =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Imb);fprintf(fid,'Imb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Imc);fprintf(fid,'Imc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Ipa);fprintf(fid,'Ipa =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ipb);fprintf(fid,'Ipb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ipc);fprintf(fid,'Ipc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Isa);fprintf(fid,'Isa =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isb);fprintf(fid,'Isb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isc);fprintf(fid,'Isc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Ira);fprintf(fid,'Ira =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irb);fprintf(fid,'Irb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irc);fprintf(fid,'Irc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n\n'); [mod,arg]=mod_arg(Isma);fprintf(fid,'Isma =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ismb);fprintf(fid,'Ismb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Ismc);fprintf(fid,'Ismc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Isra);fprintf(fid,'Isra =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isrb);fprintf(fid,'Isrb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Isrc);fprintf(fid,'Isrc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Irpa);fprintf(fid,'Irpa =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irpb);fprintf(fid,'Irpb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Irpc);fprintf(fid,'Irpc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(Impa);fprintf(fid,'Impa =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Impb);fprintf(fid,'Impb =%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Impc);fprintf(fid,'Impc =%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); if imptransfer==1 [mod,arg]=mod_arg(Izsra);fprintf(fid,'Izsra=%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Izsrb);fprintf(fid,'Izsrb=%8.4f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(Izsrc);fprintf(fid,'Izsrc=%8.4f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); end % *********************************************************************** 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 % ----------------------------------------------------------------------- % Sm(e1,e3),Sp_2,Sr_1,Rm(e1,e2),Rp_2,Rs_1 % ----------------------------------------------------------------------- fprintf(fid,'\n'); fprintf(fid,'SALIDA 21,Ohm, cartesiana \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'); fprintf(fid,'Sm =%-7.2f+i(%-7.2f)Ohm\n',real(SSm),imag(SSm)); fprintf('Rp =%-7.2f+i(%-7.2f)Ohm\n',real(RRp),imag(RRp)); fprintf(fid,'\n'); [Sm_ZABre,Sm_ZABim]=zmed(Sm_ZAB,zbase); fprintf(fid,'Sm_ZAB:%7.2f+i(%-7.2f)Ohm\n',Sm_ZABre,Sm_ZABim); [Sm_ZBCre,Sm_ZBCim]=zmed(Sm_ZBC,zbase); fprintf(fid,'Sm_ZBC:%7.2f+i(%-7.2f)Ohm\n',Sm_ZBCre,Sm_ZBCim); [Sm_ZCAre,Sm_ZCAim]=zmed(Sm_ZCA,zbase); fprintf(fid,'Sm_ZCA:%7.2f+i(%-7.2f)Ohm\n',Sm_ZCAre,Sm_ZCAim); [Sm_ZAGre,Sm_ZAGim]=zmed(Sm_ZAG,zbase); fprintf(fid,'Sm_ZAG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZAGre,Sm_ZAGim); [Sm_ZBGre,Sm_ZBGim]=zmed(Sm_ZBG,zbase); fprintf(fid,'Sm_ZBG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZBGre,Sm_ZBGim); [Sm_ZCGre,Sm_ZCGim]=zmed(Sm_ZCG,zbase); fprintf(fid,'Sm_ZCG:%7.2f+i(%-7.2f)Ohm\n',Sm_ZCGre,Sm_ZCGim); fprintf(fid,'\n'); [Sr_ZABre,Sr_ZABim]=zmed(Sr_ZAB,zbase);fprintf(fid,'Sr_ZAB:%7.2f+i(%-7.2f)Ohm\n',Sr_ZABre,Sr_ZABim); [Sr_ZBCre,Sr_ZBCim]=zmed(Sr_ZBC,zbase);fprintf(fid,'Sr_ZBC:%7.2f+i(%-7.2f)Ohm\n',Sr_ZBCre,Sr_ZBCim); [Sr_ZCAre,Sr_ZCAim]=zmed(Sr_ZCA,zbase);fprintf(fid,'Sr_ZCA:%7.2f+i(%-7.2f)Ohm\n',Sr_ZCAre,Sr_ZCAim); [Sr_ZAGre,Sr_ZAGim]=zmed(Sr_ZAG,zbase);fprintf(fid,'Sr_ZAG:%7.2f+i(%-7.2f)Ohm\n',Sr_ZAGre,Sr_ZAGim); [Sr_ZBGre,Sr_ZBGim]=zmed(Sr_ZBG,zbase);fprintf(fid,'Sr_ZBG:%7.2f+i(%-7.2f)Ohm\n',Sr_ZBGre,Sr_ZBGim); [Sr_ZCGre,Sr_ZCGim]=zmed(Sr_ZCG,zbase);fprintf(fid,'Sr_ZCG:%7.2f+i(%-7.2f)Ohm\n',Sr_ZCGre,Sr_ZCGim); fprintf(fid,'\n'); [Rp_ZABre,Rp_ZABim]=zmed(Rp_ZAB,zbase);fprintf(fid,'Rp_ZAB:%7.2f+i(%-7.2f)Ohm\n',Rp_ZABre,Rp_ZABim); [Rp_ZBCre,Rp_ZBCim]=zmed(Rp_ZBC,zbase);fprintf(fid,'Rp_ZBC:%7.2f+i(%-7.2f)Ohm\n',Rp_ZBCre,Rp_ZBCim); [Rp_ZCAre,Rp_ZCAim]=zmed(Rp_ZCA,zbase);fprintf(fid,'Rp_ZCA:%7.2f+i(%-7.2f)Ohm\n',Rp_ZCAre,Rp_ZCAim); [Rp_ZAGre,Rp_ZAGim]=zmed(Rp_ZAG,zbase);fprintf(fid,'Rp_ZAG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZAGre,Rp_ZAGim); [Rp_ZBGre,Rp_ZBGim]=zmed(Rp_ZBG,zbase);fprintf(fid,'Rp_ZBG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZBGre,Rp_ZBGim); [Rp_ZCGre,Rp_ZCGim]=zmed(Rp_ZCG,zbase);fprintf(fid,'Rp_ZCG:%7.2f+i(%-7.2f)Ohm\n',Rp_ZCGre,Rp_ZCGim); fprintf(fid,'\n\n'); [Rs_ZABre,Rs_ZABim]=zmed(Rs_ZAB,zbase);fprintf(fid,'Rs_ZAB:%7.2f+i(%-7.2f)Ohm\n',Rs_ZABre,Rs_ZABim); [Rs_ZBCre,Rs_ZBCim]=zmed(Rs_ZBC,zbase);fprintf(fid,'Rs_ZBC:%7.2f+i(%-7.2f)Ohm\n',Rs_ZBCre,Rs_ZBCim); [Rs_ZCAre,Rs_ZCAim]=zmed(Rs_ZCA,zbase);fprintf(fid,'Rs_ZCA:%7.2f+i(%-7.2f)Ohm\n',Rs_ZCAre,Rs_ZCAim); [Rs_ZAGre,Rs_ZAGim]=zmed(Rs_ZAG,zbase);fprintf(fid,'Rs_ZAG:%7.2f+i(%-7.2f)Ohm\n',Rs_ZAGre,Rs_ZAGim); [Rs_ZBGre,Rs_ZBGim]=zmed(Rs_ZBG,zbase);fprintf(fid,'Rs_ZBG:%7.2f+i(%-7.2f)Ohm\n',Rs_ZBGre,Rs_ZBGim); [Rs_ZCGre,Rs_ZCGim]=zmed(Rs_ZCG,zbase);fprintf(fid,'Rs_ZCG:%7.2f+i(%-7.2f)Ohm\n',Rs_ZCGre,Rs_ZCGim); fprintf(fid,'\n\n'); % ------------------------------------------------------------------ % C3.3 SALIDA V(0,1,2),I(0,1,2) Volt-Amp cartesiana % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ------------------------------------------------------------------ fprintf(fid,'SALIDA V(0,1,2),I(0,1,2) Volt, Amp, cartesiana \n'); fprintf(fid,'\n'); fprintf(fid,'Vm0 :%8.0f+i(%-8.0f)V',real(VVm0),imag(VVm0)); fprintf(fid,'\tVm1 :%8.0f+i(%-8.0f)V',real(VVm1),imag(VVm1)); fprintf(fid,'\tVm2 :%8.0f+i(%-8.0f)V',real(VVm2),imag(VVm2)); fprintf(fid,'\n'); fprintf(fid,'Vp0 :%8.0f+i(%-8.0f)V',real(VVp0),imag(VVp0)); fprintf(fid,'\tVp1 :%8.0f+i(%-8.0f)V',real(VVp1),imag(VVp1)); fprintf(fid,'\tVp2 :%8.0f+i(%-8.0f)V',real(VVp2),imag(VVp2)); fprintf(fid,'\n'); fprintf(fid,'Vs0 :%8.0f+i(%-8.0f)V',real(VVs0),imag(VVs0)); fprintf(fid,'\tVs1 :%8.0f+i(%-8.0f)V',real(VVs1),imag(VVs1)); fprintf(fid,'\tVs2 :%8.0f+i(%-8.0f)V',real(VVs2),imag(VVs2)); fprintf(fid,'\n'); fprintf(fid,'Vr0 :%8.0f+i(%-8.0f)V',real(VVr0),imag(VVr0)); fprintf(fid,'\tVr1 :%8.0f+i(%-8.0f)V',real(VVr1),imag(VVr1)); fprintf(fid,'\tVr2 :%8.0f+i(%-8.0f)V',real(VVr2),imag(VVr2)); fprintf(fid,'\n\n'); % --------------------------------------------------------------- fprintf(fid,'Im0 :%8.0f+i(%-8.0f)A',real(IIm0),imag(IIm0)); fprintf(fid,'\tIm1 :%8.0f+i(%-8.0f)A',real(IIm1),imag(IIm1)); fprintf(fid,'\tIm2 :%8.0f+i(%-8.0f)A',real(IIm2),imag(IIm2)); fprintf(fid,'\n'); fprintf(fid,'Ip0 :%8.0f+i(%-8.0f)A',real(IIp0),imag(IIp0)); fprintf(fid,'\tIp1 :%8.0f+i(%-8.0f)A',real(IIp1),imag(IIp1)); fprintf(fid,'\tIp2 :%8.0f+i(%-8.0f)A',real(IIp2),imag(IIp2)); fprintf(fid,'\n'); fprintf(fid,'Is0 :%8.0f+i(%-8.0f)A',real(IIs0),imag(IIs0)); fprintf(fid,'\tIs1 :%8.0f+i(%-8.0f)A',real(IIs1),imag(IIs1)); fprintf(fid,'\tIs2 :%8.0f+i(%-8.0f)A',real(IIs2),imag(IIs2)); fprintf(fid,'\n'); fprintf(fid,'Ir0 :%8.0f+i(%-8.0f)A',real(IIr0),imag(IIr0)); fprintf(fid,'\tIr1 :%8.0f+i(%-8.0f)A',real(IIr1),imag(IIr1)); fprintf(fid,'\tIr2 :%8.0f+i(%-8.0f)A',real(IIr2),imag(IIr2)); fprintf(fid,'\n'); fprintf(fid,'Ism0 :%8.0f+i(%-8.0f)A',real(IIsm0),imag(IIsm0)); fprintf(fid,'\tIsm1 :%8.0f+i(%-8.0f)A',real(IIsm1),imag(IIsm1)); fprintf(fid,'\tIsm2 :%8.0f+i(%-8.0f)A',real(IIsm2),imag(IIsm2)); fprintf(fid,'\n'); fprintf(fid,'Isr0 :%8.0f+i(%-8.0f)A',real(IIsr0),imag(IIsr0)); fprintf(fid,'\tIsr1 :%8.0f+i(%-8.0f)A',real(IIsr1),imag(IIsr1)); fprintf(fid,'\tIsr2 :%8.0f+i(%-8.0f)A',real(IIsr2),imag(IIsr2)); fprintf(fid,'\n'); fprintf(fid,'Irp0 :%8.0f+i(%-8.0f)A',real(IIrp0),imag(IIrp0)); fprintf(fid,'\tIrp1 :%8.0f+i(%-8.0f)A',real(IIrp1),imag(IIrp1)); fprintf(fid,'\tIrp2 :%8.0f+i(%-8.0f)A',real(IIrp2),imag(IIrp2)); fprintf(fid,'\n'); fprintf(fid,'Imp0 :%8.0f+i(%-8.0f)A',real(IImp0),imag(IImp0)); fprintf(fid,'\tImp1 :%8.0f+i(%-8.0f)A',real(IImp1),imag(IImp1)); fprintf(fid,'\tImp2 :%8.0f+i(%-8.0f)A',real(IImp2),imag(IImp2)); fprintf(fid,'\n'); if imptransfer==1 fprintf(fid,'Izsr0:%8.0f+i(%-8.0f)A',real(IIzsr0),imag(IIzsr0)); fprintf(fid,'\tIzsr1:%8.0f+i(%-8.0f)A',real(IIzsr1),imag(IIzsr1)); fprintf(fid,'\tIzsr2:%8.0f+i(%-8.0f)A',real(IIzsr2),imag(IIzsr2)); fprintf(fid,'\n'); end % ------------------------------------------------------------------ % C3.4 SALIDA V(a,b,c),I(a,b,c) Volt,Amp cartesiana % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ------------------------------------------------------------------ fprintf(fid,'\n'); fprintf(fid,'SALIDA V(a,b,c),I(a,b,c) Volt,Amp cartesiana\n'); fprintf(fid,'\n'); fprintf(fid,'Vma :%8.0f+i(%-8.0f)pu',real(VVma),imag(VVma)); fprintf(fid,'\tVmb :%8.0f+i(%-8.0f)pu',real(VVmb),imag(VVmb)); fprintf(fid,'\tVmc :%8.0f+i(%-8.0f)pu',real(VVmc),imag(VVmc)); fprintf(fid,'\n'); fprintf(fid,'Vpa :%8.0f+i(%-8.0f)pu',real(VVpa),imag(VVpa)); fprintf(fid,'\tVpb :%8.0f+i(%-8.0f)pu',real(VVpb),imag(VVpb)); fprintf(fid,'\tVpc :%8.0f+i(%-8.0f)pu',real(VVpc),imag(VVpc)); fprintf(fid,'\n'); fprintf(fid,'Vsa :%8.0f+i(%-8.0f)pu',real(VVsa),imag(VVsa)); fprintf(fid,'\tVsb :%8.0f+i(%-8.0f)pu',real(VVsb),imag(VVsb)); fprintf(fid,'\tVsc :%8.0f+i(%-8.0f)pu',real(VVsc),imag(VVsc)); fprintf(fid,'\n'); fprintf(fid,'Vra :%8.0f+i(%-8.0f)pu',real(VVra),imag(VVra)); fprintf(fid,'\tVrb :%8.0f+i(%-8.0f)pu',real(VVrb),imag(VVrb)); fprintf(fid,'\tVrc :%8.0f+i(%-8.0f)pu',real(VVrc),imag(VVrc)); fprintf(fid,'\n\n'); fprintf(fid,'Ima :%8.0f+i(%-8.0f)pu',real(IIma),imag(IIma)); fprintf(fid,'\tImb :%8.0f+i(%-8.0f)pu',real(IImb),imag(IImb)); fprintf(fid,'\tImc :%8.0f+i(%-8.0f)pu',real(IImc),imag(IImc)); fprintf(fid,'\n'); fprintf(fid,'Ipa :%8.0f+i(%-8.0f)pu',real(IIpa),imag(IIpa)); fprintf(fid,'\tIpb :%8.0f+i(%-8.0f)pu',real(IIpb),imag(IIpb)); fprintf(fid,'\tIpc :%8.0f+i(%-8.0f)pu',real(IIpc),imag(IIpc)); fprintf(fid,'\n'); fprintf(fid,'Isa :%8.0f+i(%-8.0f)pu',real(IIsa),imag(IIsa)); fprintf(fid,'\tIsb :%8.0f+i(%-8.0f)pu',real(IIsb),imag(IIsb)); fprintf(fid,'\tIsc :%8.0f+i(%-8.0f)pu',real(IIsc),imag(IIsc)); fprintf(fid,'\n'); fprintf(fid,'Ira :%8.0f+i(%-8.0f)pu',real(IIra),imag(IIra)); fprintf(fid,'\tIrb :%8.0f+i(%-8.0f)pu',real(IIrb),imag(IIrb)); fprintf(fid,'\tIrc :%8.0f+i(%-8.0f)pu',real(IIrc),imag(IIrc)); fprintf(fid,'\n'); fprintf(fid,'Isma :%8.0f+i(%-8.0f)pu',real(IIsma),imag(IIsma)); fprintf(fid,'\tIsmb :%8.0f+i(%-8.0f)pu',real(IIsmb),imag(IIsmb)); fprintf(fid,'\tIsmc :%8.0f+i(%-8.0f)pu',real(IIsmc),imag(IIsmc)); fprintf(fid,'\n'); fprintf(fid,'Isra :%8.0f+i(%-8.0f)pu',real(IIsra),imag(IIsra)); fprintf(fid,'\tIsrb :%8.0f+i(%-8.0f)pu',real(IIsrb),imag(IIsrb)); fprintf(fid,'\tIsrc :%8.0f+i(%-8.0f)pu',real(IIsrc),imag(IIsrc)); fprintf(fid,'\n'); fprintf(fid,'Irpa :%8.0f+i(%-8.0f)pu',real(IIrpa),imag(IIrpa)); fprintf(fid,'\tIrpb :%8.0f+i(%-8.0f)pu',real(IIrpb),imag(IIrpb)); fprintf(fid,'\tIrpc :%8.0f+i(%-8.0f)pu',real(IIrpc),imag(IIrpc)); fprintf(fid,'\n'); fprintf(fid,'Impa :%8.0f+i(%-8.0f)pu',real(IImpa),imag(IImpa)); fprintf(fid,'\tImpb :%8.0f+i(%-8.0f)pu',real(IImpb),imag(IImpb)); fprintf(fid,'\tImpc :%8.0f+i(%-8.0f)pu',real(IImpc),imag(IImpc)); fprintf(fid,'\n'); if imptransfer==1 fprintf(fid,'Izsra:%8.0f+i(%-8.0f)pu',real(IIzsra),imag(IIzsra)); fprintf(fid,'\tIzsrb:%8.0f+i(%-8.0f)pu',real(IIzsrb),imag(IIzsrb)); fprintf(fid,'\tIzsrc:%8.0f+i(%-8.0f)pu',real(IIzsrc),imag(IIzsrc)); fprintf(fid,'\n'); end % ****************************************************************** case{4}, % OVA polar: 21, 67N, V(0,1,2),I(0,1,2), V(a,b,c),I(a,b,c) % --- --- % ****************************************************************** % ------------------------------------------------------------------ % ** C4 ****************** SALIDA 21, Ohm , polar ****************** % ------------------------------------------------------------------ % Sm(e1,e3),Sp_2,Sr_1,Rm(e1,e2),Rp_2,Rs_1 % ------------------------------------------------------------------ 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(SSm);fprintf(fid,'Sm=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_arg(RRp);fprintf(fid,'Rp=%7.2f(%-5.1f)(Ohm)\n',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_argz(Sm_ZAB*zbase);fprintf(fid,'Sm_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sm_ZBC*zbase);fprintf(fid,'Sm_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sm_ZCA*zbase);fprintf(fid,'Sm_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sm_ZAG*zbase);fprintf(fid,'Sm_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sm_ZBG*zbase);fprintf(fid,'Sm_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sm_ZCG*zbase);fprintf(fid,'Sm_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_argz(Sr_ZAB*zbase);fprintf(fid,'Sr_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sr_ZBC*zbase);fprintf(fid,'Sr_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sr_ZCA*zbase);fprintf(fid,'Sr_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sr_ZAG*zbase);fprintf(fid,'Sr_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sr_ZBG*zbase);fprintf(fid,'Sr_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Sr_ZCG*zbase);fprintf(fid,'Sr_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_argz(Rp_ZAB*zbase);fprintf(fid,'Rp_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rp_ZBC*zbase);fprintf(fid,'Rp_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rp_ZCA*zbase);fprintf(fid,'Rp_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rp_ZAG*zbase);fprintf(fid,'Rp_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rp_ZBG*zbase);fprintf(fid,'Rp_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rp_ZCG*zbase);fprintf(fid,'Rp_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_argz(Rs_ZAB*zbase);fprintf(fid,'Rs_ZAB=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rs_ZBC*zbase);fprintf(fid,'Rs_ZBC=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rs_ZCA*zbase);fprintf(fid,'Rs_ZCA=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rs_ZAG*zbase);fprintf(fid,'Rs_ZAG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rs_ZBG*zbase);fprintf(fid,'Rs_ZBG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); [mod,arg]=mod_argz(Rs_ZCG*zbase);fprintf(fid,'Rs_ZCG=%7.2f(%-5.1f)(Ohm)\n',mod,arg); fprintf(fid,'\n'); % ----------------------------------------------------------------------- % ** C4 ****************** SALIDA 67N, Volt, Amp, Polar ***************** % ----------------------------------------------------------------------- % Sm(e1,e3),Sp_2,Sr_1,Rm(e1,e2),Rp_2,Rs_1 % ----------------------------------------------------------------------- fprintf(fid,'\n'); fprintf(fid,'SALIDA 67N, Volt, Amp, polar\n'); fprintf(fid,'\n'); fprintf(fid,'Sm_67N:\tVspol=%-8.0f(V)\tIsmop=%-8.0f(A)\tAngDirSm=%-5.1f\n',VVspol,IIsmop,AngDirSm); fprintf(fid,'Sr_67N:\tVspol=%-8.0f(V)\tIsrop=%-8.0f(A)\tAngDirSr=%-5.1f\n',VVspol,IIsrop,AngDirSr); fprintf(fid,'Rp_67N:\tVpol=%-8.0f(V)\tIrpop=%-8.0f(A)\tAngDirRp=%-5.1f\n',VVrpol,IIrpop,AngDirRp); fprintf(fid,'Rs_67N:\tVrpol=%-8.0f(V)\tIrsop=%-8.0f(A)\tAngDirRs=%-5.1f\n',VVrpol,IIrsop,AngDirRs); fprintf(fid,'\n'); % ------------------------------------------------------------------ % ** C4 ********* SALIDA V(0,1,2), I(0,1,2) Volt,Amp polar ******** % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,Izsr % ------------------------------------------------------------------ fprintf(fid,'\n'); fprintf(fid,'SALIDA V(0,1,2), I(0,1,2) Volt-Amp 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(VVs0);fprintf(fid,'Vs0 =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVs1);fprintf(fid,'Vs1 =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVs2);fprintf(fid,'Vs2 =%8.0f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(VVr0);fprintf(fid,'Vr0 =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVr1);fprintf(fid,'Vr1 =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVr2);fprintf(fid,'Vr2 =%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(IIsm0);fprintf(fid,'Ism0 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsm1);fprintf(fid,'Ism1 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsm2);fprintf(fid,'Ism2 =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IIsr0);fprintf(fid,'Isr0 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsr1);fprintf(fid,'Isr1 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsr2);fprintf(fid,'Isr2 =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IIrp0);fprintf(fid,'Irp0 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIrp1);fprintf(fid,'Irp1 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIrp2);fprintf(fid,'Irp2 =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IImp0);fprintf(fid,'Imp0 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IImp1);fprintf(fid,'Imp1 =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IImp2);fprintf(fid,'Imp2 =%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 ******** SALIDA V(a,b,c), I(a,b,c) Volt,Amp polar ********* % ------------------------------------------------------------------ % Vm,Vp_2,Vs,Vr % Im,Ip_2,Is,Ir,Ism(e1,e3),Isp_2,Isr_1,Irm(e1,e2),Irp_2,Irs_1,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(VVsa);fprintf(fid,'Vsa =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVsb);fprintf(fid,'Vsb =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVsc);fprintf(fid,'Vsc =%8.0f(%-5.1f)(V)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(VVra);fprintf(fid,'Vra =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVrb);fprintf(fid,'Vrb =%8.0f(%-5.1f)(V)\t',mod,arg); [mod,arg]=mod_arg(VVrc);fprintf(fid,'Vrc =%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(IIsma);fprintf(fid,'Isma =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsmb);fprintf(fid,'Ismb =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsmc);fprintf(fid,'Ismc =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IIsra);fprintf(fid,'Isra =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsrb);fprintf(fid,'Isrb =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIsrc);fprintf(fid,'Isrc =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IIrpa);fprintf(fid,'Irpa =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIrpb);fprintf(fid,'Irpb =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IIrpc);fprintf(fid,'Irpc =%8.0f(%-5.1f)(A)',mod,arg); fprintf(fid,'\n'); [mod,arg]=mod_arg(IImpa);fprintf(fid,'Impa =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IImpb);fprintf(fid,'Impb =%8.0f(%-5.1f)(A)\t',mod,arg); [mod,arg]=mod_arg(IImpc);fprintf(fid,'Impc =%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 :'); fprintf(fid,'\n'); end % end del while variassalidas 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.


ANÁLISIS DE ACTUACIÓN DE LAS PROTECCIONES 21 Y 67N ANTE FALTAS SIMPLES, MULTIPLES E INTERCIRCUITO EN LÍNEAS ELÉCTRICAS SOBRE LOS MISMOS APOYOS

: RUIZ LOZANO, JOSÉ LUIS
: Ingeniería Industrial
Contenido del proyecto:
Directorio raíz  >  z_Prog  >  PC  >  PC124ml  >  FC124ml.m