close all
clear all

% Cargo la Imagen Inicial
Imagen_Inicial=imread('01_original.bmp'); 
figure(1)
imshow(Imagen_Inicial)

% Obtenemos la componente verde
Verde=double(Imagen_Inicial(:,:,2))/255;
figure(2)
imshow(Verde)

%Obtenemos el filtro de media aritmetica grande y se lo aplicamos a la
%componente verde
Filtro_Media=fspecial('average',[60,60]);
Imagen_Filtrada=imfilter(Verde,Filtro_Media);
figure(3)
imshow(Imagen_Filtrada)

Imagen_Normalizada=Imagen_Filtrada-Verde;
figure(4)
imshow(Imagen_Normalizada)

[Filas,Columnas]=size(Imagen_Normalizada);

%Eliminamos el borde de la imagen a traves de la mascara
Mascara=imread('01_Mask.gif');

for i=1:Filas
    for j=1:Columnas
        if Mascara(i,j)==0
            Imagen_Normalizada(i,j)=0;
        end
    end
end

figure(5)
imshow(Imagen_Normalizada)
            
%Thin Vessel enhancement
H1=1/6*[-1 -1 -1; 2 2 2; -1 -1 -1];
H2=1/6*[2 -1 -1; -1 2 -1; -1 -1 2];
H3=1/6*[-1 2 -1; -1 2 -1; -1 2 -1];
H4=1/6*[-1 -1 2; -1 2 -1; 2 -1 -1];

Orientacion_0=imfilter(Imagen_Normalizada,H1);
Orientacion_45=imfilter(Imagen_Normalizada,H2);
Orientacion_90=imfilter(Imagen_Normalizada,H3);
Orientacion_135=imfilter(Imagen_Normalizada,H4);

for i=1:Filas
    for j=1:Columnas
        m=1;
        X(m)=Orientacion_0(i,j);
        m=m+1;
        X(m)=Orientacion_45(i,j);
        m=m+1;
        X(m)=Orientacion_90(i,j);
        m=m+1;
        X(m)=Orientacion_135(i,j);
        Realzado(i,j)=max(X);
    end
end

Imagen_Realzada=Imagen_Normalizada+Realzado;

So8=strel('disk',8);
Sc=strel('disk',1);
TopHat8=Imagen_Realzada-min(imopen(imclose(Imagen_Realzada,Sc),So8),Imagen_Realzada);

figure(6)
imshow(Imagen_Realzada)
        
% Obtenemos gradientes en direccion x e y 
[GradienteX,GradienteY]=gradient(TopHat8);

% Obtenemos la magnitud del gradiente 
Mag_Gradiente=sqrt(GradienteX.^2+GradienteY.^2);

% Obtenemos la orientacion del gradiente forzando que atan(0/0)=0 y asi no
% de error
for f=1:Filas
    for c=1:Columnas
        if GradienteX(f,c)==0 && GradienteY(f,c)==0
            Orient_Gradiente(f,c)=0;
        else
            Orient_Gradiente(f,c)=atan(GradienteY(f,c)/GradienteX(f,c));
        end
    end
end

% N*N tamaño de la vecindad alrededor de (i,j)
N=31;

% Obtenemos el valor M que se utilizara posteriormente para hacer los
% sumatorios y delimitarlos
M=(N-1)/2;

% Pasamos a Calcular el angulo de anisotropia, utilizando variables
% desconocidas hasta ahora que se explicaran a medida que vayan apareciendo
Angulo_Anisotropia=[]; 

% Analizamos primero las M primeras filas
Contador_F=0;
for i=1:M
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   
            for n=(M-Contador_C):(N-1)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=1:M
    for j=(M+1):(Columnas-M)
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   
            for n=0:(N-1)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=1:M
    Contador_C=0;
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

%Analizamos desde la fila M+1 hasta la Fila-M
for i=(M+1):(Filas-M)
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-1)   % Recorremos todas las filas
            for n=(M-Contador_C):(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    
    for j=(M+1):(Columnas-M)
        
        resultado_num=0;
        resultado_den=0;
        
        for m=0:(N-1)   % Recorremos todas las filas
            for n=0:(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
       
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
    end
    
    Contador_C=0;
     
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-1)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
end

% Analizamos las ultimas M Filas

Contador_F=0;
for i=(Filas-M+1):Filas
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   % Recorremos todas las filas
            for n=(M-Contador_C):(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=(Filas-M+1):Filas
    for j=(M+1):(Columnas-M)
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   
            for n=0:(N-1)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=(Filas-M+1):Filas
    Contador_C=0;
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=(Mag_Gradiente(i-M+m,j-M+n)^2)*(sin(2*Orient_Gradiente(i-M+m,j-M+n)));
                resultado_provisional_den=(Mag_Gradiente(i-M+m,j-M+n)^2)*(cos(2*Orient_Gradiente(i-M+m,j-M+n)));
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_den==0 && resultado_num==0
            Angulo_Anisotropia(i,j)=0;
        else
            Angulo_Anisotropia(i,j)=0.5*atan(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

figure(7)
imshow(Angulo_Anisotropia)
Angulo_Orientacion=Angulo_Anisotropia+(pi/2); % Deben estar todos comprendidos entre 0 y pi
Angulo_Anisotropia=abs(Angulo_Anisotropia);


figure(8)
imshow(Angulo_Anisotropia)
figure(9)
imshow(Angulo_Orientacion)

% Calculamos la coherencia

Coherencia=[];

Contador_F=0;
for i=1:M
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   % Recorremos todas las filas
            for n=(M-Contador_C):(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=1:M
    for j=(M+1):(Columnas-M)
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   
            for n=0:(N-1)   
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=1:M
    Contador_C=0;
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=(M-Contador_F):(N-1)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

%Analizamos desde la fila M+1 hasta la Fila-M
for i=(M+1):(Filas-M)
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-1)   % Recorremos todas las filas
            for n=(M-Contador_C):(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        
        Contador_C=Contador_C+1;
    end
    
    for j=(M+1):(Columnas-M)
        
        resultado_num=0;
        resultado_den=0;
        
        for m=0:(N-1)   % Recorremos todas las filas
            for n=0:(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end      
        
    end

    Contador_C=0; 
    
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-1)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
end

% Analizamos las ultimas M Filas

Contador_F=0;
for i=(Filas-M+1):Filas
    Contador_C=0;
    for j=1:M
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   % Recorremos todas las filas
            for n=(M-Contador_C):(N-1)   % Recorremos todas las columnas dentro de cada fila
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;
for i=(Filas-M+1):Filas
    for j=(M+1):(Columnas-M)
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   
            for n=0:(N-1)   
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
    end
    Contador_F=Contador_F+1;
end

Contador_F=0;

for i=(Filas-M+1):Filas
    Contador_C=0;
    for j=(Columnas-M+1):Columnas
        resultado_num=0;
        resultado_den=0;
        for m=0:(N-2-Contador_F)   
            for n=0:(N-2-Contador_C)   
                resultado_provisional_num=Mag_Gradiente(i-M+m,j-M+n)*cos(Orient_Gradiente(i-M+m,j-M+n)-Angulo_Anisotropia(i,j));
                resultado_provisional_den=Mag_Gradiente(i-M+m,j-M+n);
                
                resultado_num=resultado_num+resultado_provisional_num;
                resultado_den=resultado_den+resultado_provisional_den;
            end
        end
        if resultado_num==0&resultado_den==0
            Coherencia(i,j)=0;
        else        
            Coherencia(i,j)=Mag_Gradiente(i,j)*(resultado_num/resultado_den);
        end
        Contador_C=Contador_C+1;
    end
    Contador_F=Contador_F+1;
end

figure(10)
imshow(Coherencia)

Maximo_Valor=max(max(Coherencia));

Coherencia_Maxima=Coherencia/Maximo_Valor;
figure(11)
imshow(Coherencia_Maxima)

<!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>DETECCIÓN DE VASOS EN IM�GENES DE FONDO DE OJO</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>Rodríguez Rodríguez, María</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Telecomunicación</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/11528">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11528/direccion/Carpeta+2+-+Ficheros+Matlab%252F">Carpeta 2 - Ficheros Matlab</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="use/abreproy/11528/direccion/Carpeta+2+-+Ficheros+Matlab%252FRao%26Schunk.m%252F">Rao&Schunk.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>