Forum: Multimedia
by Medium,
6. Mär 2014
Ups, stimmt. Ich hatte nur den vorhandenen Code im Editor zusamengeschnippelt und nicht viel geprüft/getestet. Mir ging es eher darum zu zeigen, dass man einiges an Ballast gegenüber der Rekursion los werden kann, und sich auch die Lesbarkeit erhöht (ich finde Rekursion immer sehr aufwändig nachzuvollziehen im Kopf).
Forum: Multimedia
by Medium,
5. Mär 2014
Und hier eine iterative:
function zaehler(x, y, a, b: Real): Integer;
begin
result := 0;
repeat
x := x*x + y*y + a;
y := 2*x*y + b;
Inc(result);
until (result>100) or ((x*x+y*y)>=4);
Forum: Multimedia
by Medium,
5. Mär 2014
@Rekursion: In diesem Fall hier (Mandelbrot Fraktal) ist Geschwindigkeit nicht ganz unwichtig, da der gesamte Prozess sonst echt lahm werden kann. Und die Iteration eines Punktes geht - wie der Name der Operation schon so freundlich suggeriert - völlig klaglos und performat iterativ. Es drängt sich in meinem Hirn sogar geradezu als der "natürliche" Weg auf. (Und ja, TCanvas.Pixels bremst hier...