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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
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 |