27 respuestas en este tema

[jorgeu]

Vaya jorgeu, que ud es mas matemático que informático 

Hubo un tiempo en que era la misma cosa. Nos hemos alejado mucho de eso.

[JoAnCa]

Pues modificando un poco las formulas que me diste, llegue a estas

      cx:=30+(i-((CantCol-1)*(i div CantCol))-1)*60;
      cy:=10+(i div CantCol)*70;

Con esto logro mas filas y columnas, agrupando mas los nodos
En las imagenes muestro el grafo creado y mostrando la ruta mas corta

Me quedan aún algunos detalles, no se me ubican bien la posicion del peso de los arcos

... y la curva no me ha salido todavía

Archivos adjuntos

•  1956_889a70823e840e70fb1ca3478deeaa8e8ca05fd9.jpg   9,9KB   0 descargas
•  1954_247a08819532ac8884b976ceaf3ecb59810c9b55.jpg   10,06KB   0 descargas

[jorgeu]

luce muy bien felicitaciones 

[JoAnCa]

Pues en mi busqueda de algoritmos, pues tambien tenia que implementar el de Kruskal para obtener el arbol de minima expansión a partir del mismo Grafo, me encontré algo muy interesante ...

Dibujar el grafo con el raton a gusto del usuario 

http://www.delphifor...ary/Default.htm

Aquí encontré esas Library's que resuelven varios algoritmos matemáticos, entre ellos Dijkstra, Kruskal y Prim, los cuales necesitaba para resolver el problema

Combinando "mi creación" con los ejemplos de Gary Darby de delphiforfun logré terminar por fin el soft

[jorgeu]

acá es donde le vemos la importancia a los foros. Mucho conocimiento compartido que luego viene a resolvernos el trabajo 

A celebrar pues! 

[egostar]

Caramba!!!!, A eso le llamo llevar a buen puerto un proyecto

Lo dicho

A celebrar !!!!!!

       

Salud OS

[Delphius]

Que buena noticia que hayas podido avanzar. 

Yo de grafos no recuerdo nada...  Hace años que no pienso en árboles y grafos... la última vez que los "toqué" fue en Estructuras de Datos y Algoritmos y en Lenguajes II.... empleando Turbo Pascal 7  y ya llovió bastante de eso... semanas atormentándome con grafos, árboles y punteros.

Saludos,

[jorgeu]

Que buena noticia que hayas podido avanzar. 

Yo de grafos no recuerdo nada...  Hace años que no pienso en árboles y grafos... la última vez que los "toqué" fue en Estructuras de Datos y Algoritmos y en Lenguajes II.... empleando Turbo Pascal 7  y ya llovió bastante de eso... semanas atormentándome con grafos, árboles y punteros.

Saludos,

Ni pensar que alguna vez quise especializarme en estructuras de datos y hacer vida académicas. Tal como dices ya llovió bastante de eso...