assume(a1=0.3); assume(b1=0.4); A:=point(0); B:=point(1); C:=point(texpand(tan(b1*3)/(tan(a1*3)+ tan(b1*3))*(1+i*tan(a1*3)))); P:=point(texpand(tan(b1)/(tan(a1)+ tan(b1))*(1+i*tan(a1)))); R:=(inter(droite(0,1+i*texpand(tan(2*a1))), droite(C,C+1+i*texpand(tan(pi/3+2*a1-b1)))))[0]; Q:=(inter(droite(1,i*texpand(tan(2*b1))), droite(C,C+1+i*texpand(tan(2*pi/3+a1-2*b1)))))[0]; triangle(A,R,C); triangle(B,Q,C); triangle(A,P,B); triangle(P,Q,R); pq:=longueur2(P,Q); pr:=longueur2(P,R); qr:=longueur2(Q,R); [normal(pq-pr),normal(pq-qr)];On obtient lors de l'execution de demomorley1 ( faire Charger session du menu Fich de xcas et selectionner demomorley1 du répértoire examples/geo pour exécuter ce fichier):
assume(a1=0.3); assume(b1=0.4); A:=point(0); B:=point(1); C:=point(texpand(tan(b1*3)/(tan(a1*3)+ tan(b1*3))*(1+i*tan(a1*3)))); P:=point(texpand(tan(b1)/(tan(a1)+ tan(b1))*(1+i*tan(a1)))); R:=(inter(droite(0,1+i*texpand(tan(2*a1))), droite(C,C+1+i*texpand(tan(pi/3+2*a1-b1)))))[0]; Q:=(inter(droite(1,i*texpand(tan(2*b1))), droite(C,C+1+i*texpand(tan(2*pi/3+a1-2*b1)))))[0]; U:=point(texpand(tan(2*b1)/(tan(2*a1)+ tan(2*b1))*(1+i*tan(2*a1)))); W:=(inter(droite(0,1+i*texpand(tan(a1))), droite(C,C+1+i*texpand(tan(2*pi/3+a1-2*b1)))))[0]; V:=(inter(droite(1,i*texpand(tan(b1))), droite(C,C+1+i*texpand(tan(pi/3+2*a1-b1)))))[0]; triangle(A,R,C); triangle(B,Q,C); triangle(A,P,B); triangle(P,Q,R); triangle(P,Q,W); triangle(P,V,R); triangle(U,Q,R); pq:=longueur2(P,Q); pr:=longueur2(P,R); qr:=longueur2(Q,R); ur:=longueur2(U,R); uq:=longueur2(U,Q); vr:=longueur2(V,R); vp:=longueur2(V,P); pw:=longueur2(P,W); qw:=longueur2(Q,W); [normal(pq-pr),normal(pq-qr),normal(uq-ur),normal(vp-vr), normal(pw-qw)];On obtient lors de l'execution de demomorley2 :