Hi, also ich beschäftige mich zur zeit mit rekursionsgrafiken und im speziellen mit der kochkurve
doch so ganz kappiere ich das nicht
1. problem
Delphi-Quellcode:
procedure koch (ordnung: Integer; laenge, winkel: Real);
begin
if ordnung = 0
then
begin
x := x+laenge*cos(winkel);
y := y-laenge*sin(winkel);
PaintBox.Canvas.LineTo (Round(x), Round(y));
end
else
begin
koch (ordnung-1, laenge / 3, winkel);
winkel := winkel + pi / 3;
koch (ordnung-1, laenge / 3, winkel);
winkel := winkel - 2 * pi / 3;
koch (ordnung-1, laenge / 3, winkel);
winkel := winkel + pi / 3;
koch (ordnung-1, laenge / 3, winkel);
end;
end;
müsste es hier nicht so sein dass die procedur immerwieder schon beim ersten koch aufruf nach begin wiederholt wird und die darauffolgenden befehle garnicht an die reihe kommen? schließlich wird schon mit dem 1. befehl die procedur erneut aufgerufen, eben bis die ordnung = 0 ist
versteh nicht wie die darauffolgenden befehle aufgerufen werden können, vllt nur ein denkfehler von mir irgendwie
2. problem
ja mein 2. problem ist eigentlich das mit den winkel und dem pi, wie kommt man auf die formel die den winkel ändern lässt und warum 2 mal die gleiche formel und dazwischen eine andere? selbst würdich da wohl nie draufkommen
ja das wärs auch, den rest versteh ich soweit
hab leider kein schönes tutorial gefunden in dem mal richtig das ganze erklärt wurde und musste es mir deswegen soweit nur an dem quellcode beibringen
ich hoffe hier kann mir wer helfen
danke schonmal
mfg gnui