Osserva la crescita della curva di Koch
Dimensione=300
n=1, 2, 3, 4, 5
Curva chiusa
Se la curva di Koch si usa per i 3 lati di un triangolo equilatero allora diventa il fiocco di neve di Koch
Dimensione=300
n=1, 2, 3, 4
Dimensione=400
n=5
dimensione=400
ricorsione=5
GLOBAL d
;----------------------------------------------------------------
TO koch n
GLOBAL d
IF n==1 [
FORWARD d[n]
] [
koch(n-1) LEFT 60
koch(n-1) RIGHT 120
koch(n-1) LEFT 60
koch(n-1)
]
END
; --- impostazioni generali
CLEARSCREEN
HIDETURTLE
PENSIZE 1
PENCOLOR “blue”
FILLCOLOR “cyan”
; --- calcolo anticipato delle lunghezze dei lati
d=(ricorsione+1)*[0]
d[ricorsione]=dimensione
FOR i IN RANGE ricorsione-1 0 -1 [ d[i]=d[i+1]/3 ]
; --- disegna i 3 rami del cristallo di neve
RIGHT 30 koch(ricorsione)
RIGHT 120 koch(ricorsione)
RIGHT 120 koch(ricorsione)
FILL