Ver Mensaje Individual
  #4  
Antiguo 05-11-2005
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
¿Puede ser así?

Cita:
Empezado por JXJ
este tipo de cosas de reconocer formas....
me han dicho que tienen que ver con la programacion de
redes neuronales
¿Redes nueornales? Eso me huele complicado.... y creo que lo es, ¿que acaso no está relacionado con lo que es IA (Inteligencia Artificial)?
Debe haber algo más simple.

Por ejemplo yo estaba pensando en hacer un "tablero" con una estructura adecuada de nodos (con punteros, oviamente) donde cada nodo representa un punto de cada cuadrícula. NOTA: para que esto funcione, habría que identificar a cada nodo. Entonces, si se puede hacer algún procedimiento hipotético BuscarVecinos() y se pasa como parámetro dicho identificador que devuelva algún valor booleano que refleje si hay un rectángulo.

NOTA:
1. Habría que contemplar si el nodo en cuestión está ubicado en las esquinas.
2. Se entiende por nodo vecino a todo nodo que lo "rodee" al mismo. Claro está que un nodo tendrá entonces cuatro punteros.

Algo así:
nodo1 - nodo2 - nodo3
| | |
nodo4 - nodo5 - nodo6
| | |
nodo7 - nodo8 - nodo9

Cada línea representaría el enlace de los nodos.
Crearía una clase que hiciera lo siguiente:

Hasta el momento podría ser así:
Código Delphi [-]
procedure CrearTablero(Tamanno: integer);
// crea el tablero con una estructura de nodos
 
function BuscarVecinos(IDNodo: TIDNodo): boolean;
// buscar vecinos: si encuentra a los vecinos marcados 
//(hay una línea entre ellos) indica que se ha formado un cuadrado
 
// estructura de nodo
Nodo = ^TNodo;
TNodo = record
Marcado: boolean;
Vecino1,Vecino2,Vecino3,Vecino4: Nodo;
end;

No se si me explico.
__________________
Delphius
[Guia de estilo][Buscar]

Última edición por Delphius fecha: 05-11-2005 a las 06:39:13. Razón: aclaraciones
Responder Con Cita