Fichier feuerbach.mp (figure 1) — Modifié le 1 Juillet 2011 à 18 h 33
1 Théorème de Feuerbach 2 %@GIAC: 3 ceuler(A,B,C) := { 4 return circonscrit(milieu(A,B),milieu(B,C),milieu(C,A)); 5 }; 6 A:=point(0); 7 B:=point(3); 8 C:=point(2+i); 9 T1:= triangle(A,B,C); 10 droite(A,B);droite(B,C);droite(C,A); 11 C0 := inscrit(A,B,C); 12 C1 := exinscrit(A,B,C); 13 C2 := exinscrit(B,C,A); 14 C3 := exinscrit(C,A,B); 15 CE := ceuler(A,B,C); 16 %@STYLE: 17 global: v=1 clip=1 cadre=[-1,-1,4,3] 18 global: droite_c=0.5white droite_e=0.6 unite=1.5cm cercle_c=0.5white grille=0 19 T1: fill=(0.7,0.7,0.1); 20 CE: c=red 21 A: p=ulft 22 B: p=urt 23 %@eof: