récursif

[jmmeny]

J'essaie les programmes récursifs trouvés ici :
http://www-fourier.ujf-grenoble.fr/~par ... cascas.pdf (page 60)

par exemple :

sapin(x,y):={
DispG();
if (abs(x-y)<0.5) {segment(x,y); return 0;}
sapin(x,x+(y-x)*0.5*exp(i));
sapin(x,x+(y-x)*0.5*exp(-i));
segment(x,(3*x+y)/4);
sapin((3*x+y)/4,y);
}


mais tout ce que j'obtiens, c'est le 0 final. Comment afficher les segments ?

[parisse]

Normalement, une fenetre DispG devrait s'ouvrir avec le dessin. Vous pouvez aussi la faire apparaitre manuellement avec Cfg->Montrer->Montrer DispG