Achtung sinnfrei! Vogelsimulation

[guidok]

Hallo,

um mir die Zeit etwas zu vertreiben habe ich mich daran gemacht einen Schwarm Vögel zu programmieren.

Anbei mein Ergebnis.

Jeder Vogel ist ein Object, das einfache Regeln befolgt:

1. Er versucht immer dahin zu fliegen, wo am meisten Vögel sind.
2. Er versucht einen gewissen Mindestabstand einzuhalten (das klappt nicht so gut).

Dazu kommen noch ein paar zufallsbasierte Richtungswechsel und eine begrenzte "Sichtweite" eines Vogels.

Bin erst mal ganz zufrieden damit, auch wenn die Geschwindigkeit nicht ganz berauschend ist, so dass ich die Anzahl nicht weiter erhöhen kann. Wäre interessant nach einem schnellen Weg zu suchen, um die o.g. Kriterien zu erfüllen. Vielleicht hat ja jemand Lust dazu?

[Synollus]

Kleiner Tipp gegens Flackern:

DoubleBuffered := True; im FormCreate-Ereignis setzen.

[mr_emre_d]

Zitat von alzaimar:

Vor 150 Jahren (geschätzt ) habe ich das hier irgendwo gefunden. Ein sehr schönes, beinahe wissenschaftliches Tool.

Nur so nebenbei:
in der Vector Unit ist in der Zeile 144 & 154 ( selbe procedure * 2 ) ein Fehler:
es müsste so heißen - tempX := Y*Vector.Z - Z*Vector.Y;



Gute Nacht an alle