function plot19c(L,Lt,Latm,Lttm,Latp,Lttp,zl1u,pzona,proteccion,extremo,tramo,L1,L2,L3,L4,L5)

% DATOS
%L=100;
%zl1u=0.16+0.42i;
%pzona=0.8;
%pd=zeros(1,10);
%pd=[14+6i 16+10i 18+15i 19+18i 21+23i 22+27i 24+31i 26+35i 27+40i 29+44i];

% CIRCULO MHO
%if proteccion==m1 | proteccion==m2
%L=Lma;   
%elseif proteccion==p1 | proteccion==p2
%L=Lpa;
%end

zl1=zl1u*L;
zl1pzona=zl1*pzona;
centro=zl1pzona/2;
recentro=real(centro);
imcentro=imag(centro);
radio=sqrt(recentro^2+imcentro^2);
extizq=recentro-radio;
extder=recentro+radio;
intervaloX=extder-extizq;
incrementoX=intervaloX/100;
X=zeros(1,101);
Y1=zeros(1,101);
Y2=zeros(1,101);
X(1)=extizq;
Y1(1)=imcentro;
Y2(1)=imcentro;
for n=2:100
   X(n)=X(n-1)+incrementoX;
   Y1(n)=imcentro+sqrt(radio^2-(X(n)-recentro)^2);
   Y2(n)=imcentro-sqrt(radio^2-(X(n)-recentro)^2);
end
X(101)=extder;
Y1(101)=imcentro;
Y2(101)=imcentro;
Xreves=X(:,101:-1:1);
XX=zeros(1,202);
XX=[X Xreves];
Y2reves=Y2(:,101:-1:1);
Y1Y2=zeros(1,202);
Y1Y2=[Y1 Y2reves];
plot(XX,Y1Y2,'g')
axis('equal')
modzl1u=abs(zl1u);
Lmodzl1u=L*modzl1u;
axis([-Lmodzl1u Lmodzl1u -0.5*Lmodzl1u 1.5*Lmodzl1u]);
grid
xlabel('R')
ylabel('X')

% LINEA
%hold on
rezl1=real(zl1);
imzl1=imag(zl1);
%incrX3=rezl1/10;
%X3=zeros(1,11);
%Y3=zeros(1,11);
%X3(1)=0;
%Y3(1)=0;
factor=imzl1/rezl1;
%for m=2:10
%   X3(m)=X3(m-1)+incrX3;
%   Y3(m)=X3(m)*factor;
%end
%X3(11)=rezl1;
%Y3(11)=imzl1;
%plot(X3,Y3,'b')
%hold off

hold on
%rezl1=real(zl1);
%imzl1=imag(zl1);
X3=zeros(1,2);
Y3=zeros(1,2);
X3(1)=0;
Y3(1)=0;
X3(2)=rezl1;
Y3(2)=imzl1;
plot(X3,Y3,'b')
hold off



% LINEA CON ASTERISCOS
X4=zeros(1,11);
Y4=zeros(1,11);
incrX4=rezl1*(Lt/L)/10;

if strcmp(extremo,'m1') 
X4(1)=rezl1*(Latm/L);
elseif strcmp(extremo,'p1') 
X4(1)=rezl1*(Latp/L);
elseif strcmp(extremo,'m2')
X4(1)=rezl1*(Lttm/L);
elseif strcmp(extremo,'p2') 
X4(1)=rezl1*(Lttp/L);
end   
Y4(1)=X4(1)*factor;
for s=2:11
  X4(s)=X4(s-1)+incrX4;
  Y4(s)=X4(s)*factor;
end
hold on
plot(X4,Y4,'b+')
hold off

% TEXTOS
hold on
switch(tramo)
  
case {1},  % tramo 1
if strcmp(extremo,'m1')
t=text(3,0,'S');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'X');
set(u,'Color',[0 0 1])
e=text(X4(11)+3,Y4(11),'E1');
set(e,'Color',[0 0 1])
elseif strcmp(extremo,'m2')  
t=text(3,0,'X');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'S');
set(u,'Color',[0 0 1])
e=text(X4(1)+3,Y4(1),'E1');
set(e,'Color',[0 0 1])
elseif strcmp(extremo,'p1')  
t=text(3,0,'S');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'Y');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E1');
set(e1,'Color',[0 0 1])

real_e2=rezl1*((L1+L2)/L);
imag_e2=real_e2*factor;
e2=text(real_e2+3,imag_e2,'E2');
set(e2,'Color',[0 0 1])

elseif strcmp(extremo,'p2')  
t=text(3,0,'Y');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'S');
set(u,'Color',[0 0 1])
e=text(X4(1)+3,Y4(1),'E1');
set(e,'Color',[0 0 1])

real_e2=rezl1*(L5/L);
imag_e2=real_e2*factor;
e2=text(real_e2+3,imag_e2,'E2');
set(e2,'Color',[0 0 1])

end

case {2},  % tramo 2
if strcmp(extremo,'m1')
t=text(3,0,'X');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'R');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E1');
set(e1,'Color',[0 0 1])
e2=text(X4(11)+3,Y4(11),'E2');
set(e2,'Color',[0 0 1])
elseif strcmp(extremo,'m2')  
t=text(3,0,'R');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'X');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])
e2=text(X4(11)+3,Y4(11),'E1');
set(e2,'Color',[0 0 1])
elseif strcmp(extremo,'p1')  
t=text(3,0,'S');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'Y');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E1');
set(e1,'Color',[0 0 1])
e2=text(X4(11)+3,Y4(11),'E2');
set(e2,'Color',[0 0 1])
elseif strcmp(extremo,'p2')  
t=text(3,0,'Y');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'S');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])
e2=text(X4(11)+3,Y4(11),'E1');
set(e2,'Color',[0 0 1])
end

case {3},  % tramo 3
if strcmp(extremo,'m1')
t=text(3,0,'X');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'R');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])

real_e1=rezl1*(L4/L);
imag_e1=real_e1*factor;
e1=text(real_e1+3,imag_e1,'E1');
set(e1,'Color',[0 0 1])

elseif strcmp(extremo,'m2')  
t=text(3,0,'R');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'X');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E2');
set(e1,'Color',[0 0 1])

real_e1=rezl1*((L4+L2)/L);
imag_e1=real_e1*factor;
e1=text(real_e1+3,imag_e1,'E1');
set(e1,'Color',[0 0 1])

elseif strcmp(extremo,'p1')  
t=text(3,0,'Y');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'R');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])
elseif strcmp(extremo,'p2')  
t=text(3,0,'R');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'Y');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E2');
set(e1,'Color',[0 0 1])
end

case {4},  % tramo 4
if strcmp(extremo,'m1')
t=text(3,0,'S');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'X');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E1');
set(e1,'Color',[0 0 1])
elseif strcmp(extremo,'m2')  
t=text(3,0,'X');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'S');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E1');
set(e1,'Color',[0 0 1])
elseif strcmp(extremo,'p1')  
t=text(3,0,'R');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'X');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E1');
set(e1,'Color',[0 0 1])

real_e2=rezl1*(L3/L);
imag_e2=real_e2*factor;
e2=text(real_e2+3,imag_e2,'E2');
set(e2,'Color',[0 0 1])

elseif strcmp(extremo,'p2')  
t=text(3,0,'X');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'R');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E1');
set(e1,'Color',[0 0 1])

real_e2=rezl1*((L4+L2)/L);
imag_e2=real_e2*factor;
e2=text(real_e2+3,imag_e2,'E2');
set(e2,'Color',[0 0 1])

end

case {5},  % tramo 5
if strcmp(extremo,'m1')
t=text(3,0,'S');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'Y');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])

real_e1=rezl1*(L1/L);
imag_e1=real_e1*factor;
e1=text(real_e1+3,imag_e1,'E1');
set(e1,'Color',[0 0 1])

elseif strcmp(extremo,'m2')  
t=text(3,0,'Y');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'S');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E2');
set(e1,'Color',[0 0 1])

real_e1=rezl1*((L5+L2)/L);
imag_e1=real_e1*factor;
e1=text(real_e1+3,imag_e1,'E1');
set(e1,'Color',[0 0 1])

elseif strcmp(extremo,'p1')  
t=text(3,0,'R');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'Y');
set(u,'Color',[0 0 1])
e1=text(X4(1)+3,Y4(1),'E2');
set(e1,'Color',[0 0 1])
elseif strcmp(extremo,'p2')  
t=text(3,0,'Y');
set(t,'Color',[0 0 1])
u=text(rezl1+3,imzl1,'R');
set(u,'Color',[0 0 1])
e1=text(X4(11)+3,Y4(11),'E2');
set(e1,'Color',[0 0 1])

end

end  % end switch tramo

f=text(X4(3)+3,Y4(3),'0.2');
set(f,'Color',[0 0 1])
g=text(X4(9)+3,Y4(9),'0.8');
set(g,'Color',[0 0 1])

hold off

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
	<head>
            <title>e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.</title>

                <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta name="description" content="Buscador de proyectos ETSI" />
<meta name="author" content="Daniel Callejo"/>
<meta name="author" content="Federico L&oacute;pez"/>
<meta name="author" content="Juli&aacute;n P&eacute;rez"/>
<meta name="author" content="Jos&eacute; Mar&iacute;a Vidal Vidal"/>
<base href="https://biblus.us.es/bibing/proyectos/" /><link rel="shortcut icon" href="./favicon.ico" />
<link rel="stylesheet" href="./publico/css/estructura.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/bootstrap.css" type="text/css" media="screen"/>
<link rel="stylesheet" href="./publico/css/enlaces-capas.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/pestanas.css" type="text/css"  /> 
<link rel="stylesheet" href="./publico/css/formularios.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/lightbox.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/autocompleter.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/resultados.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/milista.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/explorador.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/ultimos.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/contactar.css" type="text/css"  />
<!-- <link rel="stylesheet" href="./css/print.css" type="text/css" media="print" /> -->
<script src="./publico/javascript/jquery-1.9.1.min.js" type="text/javascript"></script>
<script src="./publico/javascript/bootstrap.js" type="text/javascript"></script>

<script src="./publico/javascript/mootools-1.2.4-core.js" type="text/javascript"></script>
<script src="./publico/javascript/mootools-1-1.2.4.2-more.js" type="text/javascript"></script>
<script src="./publico/javascript/targetbl.js" type="text/javascript"></script>
<script src="./publico/javascript/mensajes.js" type="text/javascript"></script>
<script src="./publico/javascript/form.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Observer.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.Request.js" type="text/javascript"></script>
<script src="./publico/javascript/domready.js" type="text/javascript"></script>

<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-2HP38G406P"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-2HP38G406P');
</script>



<script type="text/javascript">
function seleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=1
}
function deseleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=0
} 
</script>
	</head>
    <body style="min-width: 960px; background-color: #e2e2e2; height: 100%">	
		<a name="arriba"></a>
<div>
<div id="header">
    <table id="Tabla_01" height="105" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_01.jpg" width="3" height="105" alt="">
        </td>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_02.jpg" width="100" height="105" alt="">
        </td>
        <td width="100%" align="right"  style="min-width: 613px; background-repeat: no-repeat; background-position: top right; font-size: medium; font-weight: bold; color: white;">
            <table width="100%" height="105" border="0">
                <tr>
                    <td style=" vertical-align: top; width: 547px">
                        <!-- <a style="text-decoration: none" href="./"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a> -->
                        <a style="text-decoration: none" href="https://biblus.us.es/bibing/proyectos/"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a>
                     </td>
                     <td  background="./publico/imagenes/cabecera/banner_new2_04.jpg" style="background-repeat: no-repeat; background-color: #c6d4e8;"><br><br><br>
                         &nbsp;
                        </td>
                    </tr>
             </table>
        </td>
    </tr>
    <tr style="border-top: 1px solid #ffffff;">
        <td colspan="3" id="menu_sup" style="font-size: small; text-align: right; background-color: #9c1f2f; vertical-align: bottom">
                                     

                                <a href="https://biblus.us.es/bibing/proyectos/" class="enlace " style=" color: #ffffff">Inicio&nbsp;&nbsp;|</a>
                                <a href="https://biblus.us.es/bibing/proyectos/acerca/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Acerca de&nbsp;&nbsp;|</a>
                                
                                <a href="https://biblus.us.es/bibing/proyectos/contactar/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Contactar&nbsp;&nbsp;</a>
                         <!--       <a href="https://biblus.us.es/bibing/proyectos/ayuda/" style=" color: #ffffff" class="enlace  ">&nbsp;&nbsp;Ayuda&nbsp;&nbsp;|</a> -->
                                <!-- <form id="idioma" class=""  method="post" action="">
                                <div class="inline" style="color: white">
                                <input type="submit" class="tipo_letra " style=" color: #ffffff"name="idioma" value="Castellanossss" />&nbsp;&nbsp;
                                </div>	
                                </form> -->

                                </td>

    </tr>
    </table>
</div>
<br><br>
<div class="colmask rightmenu">
<div class="panel panel-default" style="margin:20px">
            <div class="panel-heading"><h4>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</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>Ruiz Lozano, José Luis</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Industrial</b></h5></div><div class="panel-body"><div class="contenido_proyecto"><div class="titulo2_explorador">Contenido del proyecto:</div><div class="ruta"><a href="use/abreproy/4273">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/4273/direccion/z_Prog%252F">z_Prog</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/4273/direccion/z_Prog%252FPGc%252F">PGc</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/4273/direccion/z_Prog%252FPGc%252FPG54ic2%252F">PG54ic2</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/4273/direccion/z_Prog%252FPGc%252FPG54ic2%252FPLOT19C.M%252F">PLOT19C.M</a></div><div class="listing"></div></div></div></div>
</div>
</div>

        
	</body>
 
 
<!-- Inicio Google Analytics -->
<!--
	<script type="text/javascript">
		var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
		document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
	</script>
	
	<script type="text/javascript">
		try {
		var pageTracker = _gat._getTracker("UA-7789620-1");
		pageTracker._trackPageview();
	} 
		catch(err) {}
	</script>
-->
<!-- Fin Google Analytics -->

</html>