 |
A következő feladathoz két teknősre van szükségünk. eljárás csövek ism 15 [tv! 25 tsz! "kék korkor e 10 j 4 tsz! "zöld korkor e 10 j 5 tsz! "szürke korkor e 10 j 6 tsz! "sötétkék korkor e 10 j 7] t2'ism 15 [t2'tv! 25 t2'tsz! "kék t2'korkor t2'e 10 t2'j 4 t2'tsz! "rózsaszín t2'korkor t2'e 10 t2'j 5 t2'tsz! "szürke t2'korkor t2'e 10 t2'j 6 t2'tsz! "kék t2'korkor t2'e 10 t2'j 7] vége
eljárás korkor ism 360 [e 1 j 1 ] vége |
 |
eljárás mandala tv! 10 tsz! "kék ism 36 [ism 360 [e 1 j 1] j 20] tv! 5 tsz! "fehér ism 36 [ism 360 [e 1 j 1] j 20] tv! 2 tsz! "kék ism 36 [ism 360 [e 1 j 1] j 20] vége |
 |
eljárás téglalap ism 2 [e 30 j 90 e 100 j 90] vége
eljárás forgó ism 1000 [tollszín! "zöldesbarna téglalap j 60 téglalap j 2 e 1 tollszín! "sötétkék téglalap j 90 téglalap e 1 j 1 tollszín! "sárga téglalap j 90 téglalap e 1 j 1 tollszín! "lila téglalap j 90 téglalap] haza vége haza parancs: a teknős visszamegy a kiindulási pozícióba.
|
A fraktálok olyan alakzatok, melyek önhasonlóak, vagyis kisebb részük kinagyítva olyan, mint az eredeti. Ilyen például a természetben a fa is. Az alábbi kis rekurzív program egy ilyen fát rajzol. Amikor elágazáshoz érünk, akkor a fa eljárás az eredeti hossz 2/3 részével mindkét irányba újra meghívásra kerül, hiszen onnan és azokban az irányokba fog tovább nőni a fa. A szintszámot ilyenkor csökkentjük, és mikor az összes szintnek megfelelő farész is megrajzolásra került, befejeződik az eljárás.
 |
Eljárás fa :szint :hossz e :hossz ha :szint>1 [j 45 fa :szint-1 2/3*:hossz b 90 fa :szint-1 2/3*:hossz j 45 ] h :hossz vége
Hívjuk meg az eljárást az alábbi paraméterekkel: fa 10 30 fa 10 100 fa 20 100 |
 |
Az eljárást körbeforgatva "gyönyörű csipketerítőt" kapunk:
eljárás faforog |
Licensed under the Creative Commons Attribution Share Alike License 4.0