fraktaler Berg

Fiete · Beiträge: 617 Erhaltene Danke: 364 W7 Delphi 6 pro

Das Programm simuliert die Entstehung eines Berges.
Der erste Berg ist ein Dreieck :wink:

, dieses Ausgangsdreieck wird in vier ähnliche Dreiecke zerlegt, indem für jede Seite der Mittelpunkt bestimmt wird. Dies wird für jedes Dreieck durchgeführt. Jeder neuberechnete Eckpunkt wird um einen zufälligen Wert in x- und y-Richtung verschoben. Es entsteht eine Struktur die einem Berg ähnelt.
Viel Spaß beim experimentieren.
[url]en.wikipedia.org/wiki/File:Animated_fractal_mountain.gif[/url]
Gruß
Fiete
Edit1: der Berg kann jetzt auch massiv sein, es gibt vier Schichten - Schnee, Stein, Bäume und Meer

Einloggen, um Attachments anzusehen!

_________________
Fietes Gesetz: use your brain (THINK)

Hidden · Verfasst: Mo 27.09.10 20:47

E: Das kommt in meine Software demnächst auch, dann sieht die ständig aktuell aus :dance2:

markieren

Delphi-Quelltext

1:
2:

DecodeDate(Now,Jahr,Monat,Tag);
Caption:='Fraktaler Berg   Anno '+IntToStr(Jahr)+'  © Fiete';

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme