next up previous contents index
suivant: Des arbres monter: Des spirales précédent: Une spirale   Table des matières   Index

Une spirale plus générale

On tape :
//chaque segment de la spirale est obtenu par similitude de rapport k 
//k=rapport et t=angle de rotation (externe)
//n=nombre de segments a construire
spirale(l,k,t,n):={
for (j:=1;j<=n;j++){
avance(l);
tourne_gauche(t);
l:=k*l;
}
};
ou encore avec la recursivité
//n=nombre de segments a construire=nombre d'appels recursifs
spiraler(l,k,t,n):={
if (n>0) {
 avance(l);
 tourne_gauche(t);
 spiraler(l*k,k,t,n-1);
   } 
};
On tape par exemple :
spiraler(90,0.8,60,20)
On obtient :

\begin{pspicture}(0.0000,0)(14,5)
\psset{unit=0.02cm}
\psset{linewidth=.5pt}
\ps...
...364.7489,172.8935)
\psline(364.7489,172.8935)(365.3975,174.0168)
\end{pspicture}



Documentation de giac écrite par Renée De Graeve