Forum: Object-Pascal / Delphi-Language
Delphi
by grizzly,
21. Mai 2007
Falls doch mal jemand schnell mit dem Algorithmus von Herrn Mandelbrot ein wenig herumspielen will: Im Anhang ist der Source-Code zu meinem Testprogramm. (Testprogramm! d.h. keine Kommentare! ;))
Achtung: Wenn man Randseed nicht ändert, dann erhält man immer dieselbe Landkarte.
Ein AVI mit der Erschaffung einer Insel gibt es hier (2MB).
Gruß
Michael
Forum: Object-Pascal / Delphi-Language
Delphi
by grizzly,
20. Mai 2007
Mittlerweile weiß ich wenigstens wieder, wo ich von diesem Verfahren gelesen hatte:
Benoît B. Mandelbrot, Die fraktale Geometrie der Natur, Birkhäuser Verlag, 1987.
Irgendwo in der Mitte des Buches gibt es ein Kapitel "Die Erzeugung eines Brown-Reliefs", in dem der Algorithmus beschrieben wird (allerdings ein klein wenig anders, als ich ihn in Erinnerung hatte: Der Höhenunterschied zwischen...
Forum: Object-Pascal / Delphi-Language
Delphi
by grizzly,
15. Mär 2007
Für mein Beispiel oben wollte ich kein komplettes Programm posten. Deshalb habe ich alles in die Prozedur selbst reingeworfen. Natürlich sollte man so eine Struktur nicht auf dem Stack allokieren. Aber um den Algorithmus zu illustrieren schien mir das vertretbar. Tut mir leid, wenn deswegen jemand seinen Stack eingerannt hat - hoffentlich erholt er sich wieder... ;)
Hier die Stack-sichere...
Forum: Object-Pascal / Delphi-Language
Delphi
by grizzly,
14. Mär 2007
Was heißt "schön rund"?
Ich habe vor Jahren mal von einen ganz simplen Ansatz gelesen, solche Karten zu erstellen:
1. Du beginnst mit einer leeren Karte (Alles 0)
2. Du erzeugst Dir eine zufällige Trennlinie durch Deine Karte
3. Alle Punkte auf der einen Seite der Karte erhöhst Du um eins, die anderen verminderst Du um eins.
Die Schritte 2 und 3 ein paar hundert mal wiederholen...