Blame view

Giac_maj/giac-1.4.9/examples/geo/lieu4 406 Bytes
6663b6c9   adorian   projet complet av...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  A:=point(-3.84000000000,1.95000000000);
  B:=point(-2.16000000000,-0.723000000000);  
  C:=point(1.30000000000,0.710000000000); 
  triangle(A,B,C);
  u:=element(-4..4,0.182);
  M:=element(droite(B,C),u);
  D:=element(droite(A,B));
  D1:=droite(D,M);
  E:=(inter(droite(A,C),D1))[0];
  C1:=circonscrit(B,D,M);
  C2:=circonscrit(E,C,M);
  L:=inter(C1,C2);
  if (affixe(L[0])==affixe(M)) {Q:=L[1];} else {Q:=L[0];};
  P:=Q;
  lieu(P,D);