[Cesar Junior]

Hola amigos, aqui nuevamente a pedir ayuda a usteds, explicando resumidamente cual es el trabajo realizado, estoy con un proyecto de un sistema para contar objetos automaticamente usando imagenes, ya aqui en el forum el problema de contar fue solucionado usando el algoritmo de coso que es asi:

Código Delphi [-]
 
procedure TForm1.Rellena_colonia(i,j : integer; col,rel : TColor; im : TImage; var tam : integer);
begin
        if (i = 0) or (j = 0) or (i > Im.Width) or (i > Im.Height) then exit;
        if Im.Canvas.Pixels[i,j] <> col then exit;
        Im.Canvas.Pixels[i,j] := rel;
        inc(tam);
        rellena_colonia(i-1,j-1,col,rel,im,tam);
        rellena_colonia(i  ,j-1,col,rel,im,tam);
        rellena_colonia(i+1,j-1,col,rel,im,tam);
        rellena_colonia(i-1,j  ,col,rel,im,tam);
        rellena_colonia(i  ,j  ,col,rel,im,tam);
        rellena_colonia(i+1,j  ,col,rel,im,tam);
        rellena_colonia(i-1,j+1,col,rel,im,tam);
        rellena_colonia(i  ,j+1,col,rel,im,tam);
        rellena_colonia(i+1,j+1,col,rel,im,tam);

end;
 
procedure TForm1.BitBtn6Click(Sender: TObject);
var
        i,j : integer;
        colonias : integer;
        tam: integer;
begin

        colonias := 0;
        for i := 0 to Image1.Width do
        for j := 0 to Image1.Height do
        if Image1.Canvas.Pixels[i,j] = clBlack then
        begin
             tam := 0;

             rellena_colonia(i,j,clBlack,clRed,Image1,tam);
             //ShowMessage(inttostr(tam)); // tamaño de colonia
             if tam > quantidade then
             inc(colonias);
        end;
        Label2.Caption := inttostr(colonias);
        Label2.Visible:=true;
end;

Este algoritmo funciona depues de una imagen ser binarizada, contamos los objetos de interes usando el color para busqueda asi incrementar el contador, como los objetos que este trabajo propone contar son circulares esto funciona de maravilha, aplicando y haciendo pruebas con varias imagenes llegamos a un problema, cuando dos objetos circulares estan mui pegados, en el momento de la binarizacion estos se quedan unidos, ai el proceso de contar toma este objeto como uno solo, buscando soluciones para este problema encontramos una morfología matematica conocida como erosion, que consiste en desgastar los bordes de los objetos teniendo como padrón una imagen pr estabelecida, para tener una idea algunos links de sitios que explican mejor el processo de erosión

http://www.uaem.mx/cicos/memorias/5tocic2006/Articulos/articulo8.pdf


el link abajo es de una pagina en portugues, tine unas imagenes explicativas para mejorar el entendimiento, a todos aquellos que de dispongan a ayudar desde ya les agradesco!!!!!


http://www.ene.unb.br/~juliana/cursos/semana/aulas/see-pi-jfc-3-2x1.pdf


este aqui abajo explica bien en español el funcionamiento de erosión

http://wellpath.uniovi.es/es/conteni...ml/binaria.htm