Gravitación Universal

[champy]

Compartela si quieres y le damos un vistazo entre todos. Yo estaba pensando si utilizar OpenGL y pasar el mio a 3D, podría ser curioso.

[[Delphius]]

Dos cosas:
1) Se obtiene mejores resultados si se hace uso de DoubleBuffered
2) Cuando se está trabajando con números muy chicos o muy grandes es deseable emplear la función Hypot; que por cierto dicho sea de paso Delphi ya la tiene implementada (al menos desde D6). Parece ser que a muchos se les escapa este detallito.

Lo demás sería pulir un poco el código, que hay partes que se podría mejorar, e incluso algunos cálculos redundantes.
Por lo demás, interesante.

Saludos,

[champy]

Si quieres mejorar algo Delphius, eres libre de hacerlo, es más, hasta te lo agradecería. Seguro que algo se puede aprender despues revisando las modificaciones.

Un lugar donde sé que se están haciendo cálculos redundantes es a la hora de calcular la fuerza entre dos objetos si esta fuerza ya se había calcula en dirección opuesta y el resultado es exactamente el mismo, me explico.

3 objetos 1, 2, 3, calculo las fuerzas entre ellos
1 -> 2 = 1N
1 -> 3 = 1N
En el segundo ya tengo algún cálculo repetido
2 -> 1 = 1N <- Este calculo sería prescindible puesto que ya se había obtenido esta fuerza en 1-> 2
2 -> 3 = 1N
En el tercer objeto
3 -> 1 = 1N <- Prescindible, ya la sabiamos de antes
3 -> 2 = 1N <- Prescindible, ya la sabiamos de antes

Esto eliminaría como la mitad de los cálculos, aunque no sé muy bien como implementarlo