next up previous contents index
suivant: Les tours de Hanoï monter: Les dessins récursifs précédent: Exercice   Table des matières   Index

Les cercles

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