![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
![]() 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:
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 Última edición por Cesar Junior fecha: 30-09-2008 a las 16:53:13. |
#2
|
|||
|
|||
Hola de nuevo,
la gracia de la 'erosion' seria transformar a negro aquellos pixeles que tienen alguno de sus pixeles colindantes en negro tambien...quedaria algo asi :
mas o menos...como ves, se miran los pixeles colindantes o el mismo, y si alguno de ellos es clBlack, entonces el destino se pinta tambien clBlack. Saludos. Última edición por coso fecha: 30-09-2008 a las 19:41:57. |
#3
|
|||
|
|||
Cita:
E intentado de varias forma, pro no logre exito, se que el problema esta en la programacion q hago, pero no logro corrigir, com origen, destino : TCanvas, no compila, para en origen.Width me dice q no es valido, e intentado de otras formas pero no logre |
#4
|
|||
|
|||
vaya, es cierto : lo escribi de memoria y resulta que TCanvas no tiene ni width ni height. Supongo q entiendes mas o menos como funciona : es bastante modificable a, por ejemplo, TImage, TPicture o lo que estes usando para guardar las imagenes. Saludos.
Última edición por coso fecha: 02-10-2008 a las 15:56:40. |
#5
|
|||
|
|||
Coso e intentado de esta forma pero tbm no me dio resultado, conste q si creo un origen y un destino no me compila, me da una mesage de falta de parametros, y como esta abajo solo invierte los colores
Código Delphi [-] procedure Erosionar( ABmp : TBitmap); var i, j : integer; begin for i := 0 to ABmp.Width do for j := 0 to ABmp.Height do begin if (ABmp.Canvas.Pixels[i-1,j-1] = clwhite) or (ABmp.Canvas.Pixels[i ,j-1] = clwhite) or (ABmp.Canvas.Pixels[i+1,j-1] = clwhite) or (ABmp.Canvas.Pixels [i-1,j] = clwhite) or (ABmp.Canvas.Pixels [i ,j] = clwhite) or (ABmp.Canvas.Pixels [i+1,j] = clwhite) or (ABmp.Canvas.Pixels [i-1,j+1] = clwhite) or (ABmp.Canvas.Pixels [i ,j+1] = clwhite) or (ABmp.Canvas.Pixels[i+1,j+1] = clwhite) then ABmp.Canvas.Pixels[i,j] := clblack else ABmp.Canvas.Pixels[i,j] := clwhite; end; end; |
#6
|
|||
|
|||
bueno...habia puesto...
Cita:
Cita:
|
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Procesamiento De Archivos De Audio Y Video | JCVCARMONA | Varios | 3 | 22-01-2011 02:20:18 |
Libreria de procesamiento de imagen | JCarlosas | Gráficos | 3 | 15-05-2007 17:51:00 |
procesamiento de voz | elcigarra | Varios | 0 | 26-01-2006 13:05:29 |
Como dar Prioridad de Procesamiento a una Aplicación???? | AGAG4 | Varios | 3 | 19-05-2005 18:15:31 |
MS intenta patentar el uso de XML en el procesamiento de textos | kinobi | Debates | 4 | 25-01-2004 04:02:08 |
![]() |
|