Nome generico per le curve che riempiono il piano.
Dimensione=300
n=1, 2, 3
Dimensione=400
n=4
dimensione = 400
ricorsione=4
GLOBAL d
;-----------------------------------------------------------------------------------------------
TO peano n
GLOBAL d
IF n==1 [
FORWARD d[n]
] [
peano(n-1)
peano(n-1) LEFT 90
peano(n-1) LEFT 90
peano(n-1) LEFT 90
peano(n-1)
peano(n-1) LEFT 90
peano(n-1) LEFT 90
peano(n-1) RIGHT 90
peano(n-1)
]
END
;-------------------------------------------------------------------------------------------------
CLEARSCREEN
HOME
HIDETURTLE
PENSIZE 1
PENCOLOR “blue”
d=(ricorsione+1)*[0]
d[ricorsione]=dimensione
FOR i IN RANGE ricorsione-1 0 -1 [
d[i]=d[i+1]/3
]
RIGHT 90
peano(ricorsione)