next up previous contents index
suivant: La taille monter: Un exercice tiré des précédent: L'énoncé   Table des matières   Index

Le dessin

Pour faire le dessin on écrit une procédure récursive arbre qui renvoie 0 quand elle se termine et qui a comme paramètres : A le point de plantation, l la longueur du tronc AB, t l'angle que fait AB avec le sol, n le nombre d'années. Ainsi le point B a comme affixe A+l*exp(i*t).
On verra le dessin dans l'écran DispG (session->montrer->DispG).
  arbre(A,l,t,n):={
    local B;
    B:=A+l*exp(i*t);
    segment(A,B);
    if (n>0){
      arbre(B,l*0.5,t+pi/6,n-1);
      arbre(B,l*0.75,t-pi/6,n-1);
    } 
    return 0;
  }:;


Documentation de giac écrite par Renée De Graeve