A:=point(0); B:=point(4); C:=point(4+6*i); D:=point(6*i); quadrilatere(A,B,C,D); assume(s=[2,0,6]); S:=point(s*i); m:=mediatrice(B,S); R:=inter_unique(m,droite(A,B)); T:=inter_unique(m,droite(C,B)); equation(m); r:=coordonnees(R); t:=normal(coordonnees(T)); AT:=aire(triangle(R,B,T));
On tape (voir minia.xws):
A:=point(0); B:=point(4); C:=point(4+6*i); D:=point(6*i); quadrilatere(A,B,C,D); assume(a=[1,0,4]); R:=point(a); S:=inter(cercle(R,4-a),segment(A,D))[0]; m:=mediatrice(B,S); T:=inter_unique(m,droite(C,B)); equation(m); coordonnees(S); normal(coordonnees(T)); AT:=aire(triangle(R,B,T)); plotfunc(AT-5,a); segment(R,a+i*(AT-5));