clc
clear

idif_simulada(150,9,3,11)=0;
Numero_Linea(150,1)= 0;
Longitud(150,1)=0;
Resistencia_de_Falta(150,1)=0;
Nombre_Linea(150,1)={'Nombre'};
Rg=[0.1, 1, 10, 100, 1000];
Rff=0.1;
numfalta(150,9,1,11)=0;
Localizador


set_param('Localizador/Falta','FaultA','off','FaultB','off','FaultC','off','GroundFault','off'); %0
 for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,1)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,1)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,1)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,1)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end


set_param('Localizador/Falta','FaultA','on','FaultB','off','FaultC','off','GroundFault','on'); %AG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,2)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,2)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,2)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,2)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end

 set_param('Localizador/Falta','FaultA','off','FaultB','on','FaultC','off','GroundFault','on'); %BG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,3)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,3)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,3)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,3)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end
    
 set_param('Localizador/Falta','FaultA','off','FaultB','off','FaultC','on','GroundFault','on'); %CG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,4)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,4)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,4)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,4)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
  end
 
   set_param('Localizador/Falta','FaultA','off','FaultB','on','FaultC','on','GroundFault','on'); %BCG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,5)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,5)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,5)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,5)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
  end
 
 set_param('Localizador/Falta','FaultA','on','FaultB','off','FaultC','on','GroundFault','on'); %CAG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,6)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,6)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,6)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,6)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end
 
 set_param('Localizador/Falta','FaultA','on','FaultB','on','FaultC','off','GroundFault','on'); %ABG
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120)
             I2_120=I2(120)
             I0_120=I0(120)
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,7)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,7)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,7)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,7)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
  end
 
   set_param('Localizador/Falta','FaultA','off','FaultB','on','FaultC','on','GroundFault','off'); %BC
 for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,8)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,8)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,8)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,8)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end
  
  set_param('Localizador/Falta','FaultA','on','FaultB','off','FaultC','on','GroundFault','off'); %CA
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,9)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,9)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,9)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,9)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end
 
 set_param('Localizador/Falta','FaultA','on','FaultB','on','FaultC','off','GroundFault','off'); %AB
  for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,10)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,10)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,10)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,10)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
  end

  set_param('Localizador/Falta','FaultA','on','FaultB','on','FaultC','on','GroundFault','off'); %ABC
 for linea=1:30
     for R=1:5
         Rfg=Rg(R);
         for dist=0.1:0.1:0.9
             run('localizador_Linea_Real_Con_Calculo_de_Distancia.m');
             I1_120=I1(120);
             I2_120=I2(120);
             I0_120=I0(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),1,11)=I1(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),2,11)=I2(120);
             idif_simulada(30*(linea-1)+R,int16(dist*10),3,11)=I0(120);
             run('Tipofalta2')
             numfalta(30*(linea-1)+R,int16(dist*10),1,11)=tipf;
         end
         Nombre_Linea(30*(linea-1)+R,1)={'Nombre'};
         Numero_Linea(30*(linea-1)+R,1)=linea;
         Longitud(30*(linea-1)+R,1)=Long;
         Resistencia_de_Falta(30*(linea-1)+R,1)=Rff;
     end
 end