1  Conjugaison harmonique
  2  %@GIAC:
  3  S:=point(0);
  4  J:=point(1);
  5  I:=point(2+2*i);
  6  A:=point(4+6*i);
  7  droite(A,J);
  8  droite(S,I);
  9  droite(S,J);
 10  M:=element(droite(S,I),5/2);
 11  N:=inter_droite(droite(A,M),droite(S,J));
 12  droite(A,M);
 13  segment(I,N);
 14  segment(J,M);
 15  K:=inter_droite(droite(I,N),droite(J,M));
 16  L:=lieu(K,M);
 17  B:=conj_harmonique(I,J,A);
 18  // droite(S,B);
 19  %@STYLE:
 20  global: v=1  clip=1  cadre=[-1,-1,11,7]
 21  L: c=Peru
 22  S,J,I: p=ulft
 23  N,M,A: p=top
 24  K: p=bot
 25  B: p=llft