Fractales.
Cette courbe remplissant l'espace fut inventé par David Hilbert, mathématicien allemand du début 1900. La procédure utilise un système parité +1 ou -1 pour déterminer si elle doit tourner à gauche ou à droite afin que tout se connecte parfaitement. Chaque courbe joint d'un chemin continu le coin inférieur gauche au coin supérieur droit.
Pour lancer les courbes de Hilbert d'ordre 0-4 successivement:
|
# Commande principale: demarrer 7
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour initialise :level donne "size 180/(puissance 2 :level) #global value levecrayon fixexy (:size/2)-180 (:size/2)-180 fixecap 90 baissecrayon fin pour hilbert :level :parity si :level < 0 [stop] tournegauche :parity*90 hilbert :level-1 0-:parity avance :size tournedroite :parity*90 hilbert :level-1 :parity avance :size hilbert :level-1 :parity tournedroite :parity*90 avance :size hilbert :level-1 0-:parity tournegauche :parity*90 fin pour demarrer :level new fcc 2 initialise :level hilbert :level 1 fin |
Pour lancer les courbes de Hilbert d'ordre 0-4 successivement:
|
pour hberts new repetepour [level 1 4] [fcc :level ftc 6-:level initialise :level hilbert :level 1 attends 60] fin |
demarrer 7
