Fichier triangles.mp (figure 1) — Modifié le 1 Juillet 2011 à 07 h 05
1 Triangles en spirale 2 %@GIAC: 3 A:=point(0); 4 B:=point(2); 5 C:=point(0.8+1.2*i); 6 7 spirale(A,B,C,n) := { 8 local j,k,t; 9 print(triangle(A,B,C)); 10 k:=longueur(A,C)/longueur(A,B); 11 t:=angle(A,B,C); 12 for (j:=1;j<=n;j++){ 13 B:=C; 14 C:=similitude(A,k,t,B); 15 print(triangle(A,B,C)); 16 } 17 }; 18 spirale(A,B,C,8); 19 %@STYLE: 20 global: grille=0 unite=3cm 21 A: p=lft 22 B: p=rt