Rekurzív görbék rajzolása

Képek forrása:

http://hu.wikipedia.org

http://info.berzsenyi.hu

Saját képek

Koch-görbe

Koch-görbe

eljárás Koch :a :n

ha :n=1 [e :a]

ha :n>1 [Koch :a/3 :n-1 b 60

Koch :a/3 :n-1 j 120

Koch :a/3 :n-1 b 60

Koch :a/3 :n-1]

vége

Hópehely

• Szabályos n-szög oldalaira Koch-görbét illesztünk: hópihe :a :n :db
• hópihe 200 5 3

eljárás hópihe :a :n :db

ism :db [Koch :a :n j 360/:db]

vége

​

Sierpinski-háromszög

Sierpinski-háromszög lépései

sier_hsz 100 1

sier_hsz 100 2

sier_hsz 100 3

sier_hsz 100 4

Sierpinski-háromszög

eljárás sier_hsz :a :sz

hszög :a

ha :sz>1

[ism 3 [ sier_hsz :a/2 :sz-1

tf e :a j 120 tl ] ]

vége

​

„Fénymásoló-transzformáció”

Sierpinski-szőnyeg

Sierpinski-szőnyeg lépései

szőnyeg 300 1

szőnyeg 300 2

szőnyeg 300 3

Sierpinski-szőnyeg eljárás

eljárás szőnyeg :a :sz

tf e :a/3 j 90 e :a/3 b 90 tl

négyzet :a/3

tf b 90 e :a/3 j 90 h :a/3 tl

ha :sz>1

[ism 4 [szőnyeg :a/3 :sz-1 tf e :a/3 tl

szőnyeg :a/3 :sz-1 tf e 2*:a/3 j 90 tl]]

vége