function [Vessel_Centerline_Segments,Possible_Vessel_Centerline_Segments,Sub_Intensidad,Sub_Candidates]=VasosSemiDefinitivos(Intensidad,Candidates,Filas,Columnas,Sumareg) [F,C]=size(Candidates); Maximo_Intensidad=max(Intensidad); Umbral_Intensidad=0.3*Maximo_Intensidad; Vessel_Centerline_Segments=zeros(Filas,Columnas); Possible_Vessel_Centerline_Segments=zeros(Filas,Columnas); Sub_Intensidad=0; Sub_Candidates=0; z=1; for i=1:F if Intensidad(i)>=Umbral_Intensidad longitud=Candidates(i,3); for j=4:2:(2*longitud+3) Vessel_Centerline_Segments(Candidates(i,j),Candidates(i,j+1))=1; end else longitud=Candidates(i,3); Sub_Intensidad(z)=Intensidad(i); Sub_Candidates(z,1:2*longitud+3)=Candidates(i,1:2*longitud+3); z=z+1; for j=4:2:(2*longitud+3) Possible_Vessel_Centerline_Segments(Candidates(i,j),Candidates(i,j+1))=Sumareg(Candidates(i,j),Candidates(i,j+1)); end end end