suivant: Les tours de Hanoï
monter: Les dessins récursifs
précédent: Exercice
Table des matières
Index
L'utilisateur choisit un entier n.
Sur le cercle de de centre d'affixe a et de rayon r on dessine
le cercle et les n points d'affixe ak:=r*exp(2.*i*k*pi/n pour
k=0..n-1.
On recommence pour chaque k avec des cercles de de centre d'affixe
ak et de rayon r/2. Et ainsi de suite à partir des points obtenus
en divisant à chaque étape le rayon par 2. Écrire un programme qui
réalise p étapes de ce processus.
On tape :
cercles(a,r,n,p):={
local P,L,k,j;
P:=NULL;
si p<1 alors retourne NULL fsi;
pour k de 0 jusque n-1 faire
P:=P,point(a+r*exp(2.*i*pi*k/n),affichage=p+epaisseur_point_2);
fpour;
L:=cercle(a,r),P;
pour j de 0 jusque n-1 faire
L:=L,cercles(affixe(P[j]),r/2,n,p-1);
fpour;
retourne L;
}
:;
On tape :
cercles(0,20,5,4)
Documentation de giac écrite par Renée De Graeve