j3m

Logo

« Formellement cet univers est un univers d'une fonction d'une variable réelle avec deux primitives de base appelées avance et tourne. On obtient de nouvelles fonctions par concaténation de ces deux primitives. Pour simplifier l'écriture, on introduit aussi une fonction primitive répète qui à partir d'un entier naturel n et d'une fonction f consiste à concaténer n fois la fonction f avec elle-même.
Un tel univers n'a d'intérêt qu'avec son interprétation géométrique : dans un plan orienté, une tortue est un couple composé d'un point du plan et d'une orientation par rapport à une direction fixe du plan. 
Pour déplacer la tortue, 
_avance (L) demande à la tortue d'avancer d'une longueur L dans la direction définie par son orientation en laissant un trace de son déplacement ;
_ tourne (A) demande à la tortue de tourner de l'angle A dont la mesure en degrés est A.»

(APMEP,BV 515, page 455, Roger Cuppens)


Patrick
Index
Procédures
  1. av n
  2. re n
  3. td n 
  4. tg n
  5. lc
  6. bc
  7. av n; td m
  8. ct
  9. mt
  10. vg
  11. rep n [av m; td p]
  12. Polygone  régulier à n côtés : rep n[ av L; td (360/L)]
  13. def f: (x,y)->x^2+y^2
  14.  si (x>0) alors [av 50] sinon [re 50]
  15. boucle k de 1 à 12 [av k*20; td 90; écris k]
  16. pour carre taille
    av taille
    td 90
    fin


Fractales von Koch :
pour flocon n taille
si (n==0) alors  [ av taille ] sinon  [ flocon n-1  taille/3 ; td 60;  flocon n-1 taille/3; tg 120; flocon n-1 taille/3;  td 60;  flocon n-1 taille/3 ]
fin

rep 3  [  flocon 3 200 ; tg 120 ]


pour carre n taille
si (n==0) alors  [ av taille ] sinon  [ carre n-1 taille/3
tg 90
carre n-1 taille/3
td 90
carre n-1 taille/3
td 90
carre n-1 taille/3
tg 90
carre n-1 taille/3]
fin