equimore(m,n,p,q,r,s):={ assume(a1=0.3); assume(a2=0.4); A:=[0,1+i*texpand(tan(a1)),1+i*texpand(tan(2*a1)), 1+i*texpand(tan(pi/3+a1)),1+i*texpand(tan(2*a1+2*pi/3)), 1+i*texpand(tan(a1+2*pi/3)),1+i*texpand(tan(pi/3+2*a1))]; B:=[1,i*texpand(tan(2*a2)),i*texpand(tan(a2)), i*texpand(tan(2*a2+2*pi/3)),i*texpand(tan(a2+pi/3)), i*texpand(tan(pi/3+2*a2)),i*texpand(tan(2*pi/3+a2))]; C0:=texpand(tan(a2*3)/(tan(a1*3)+tan(a2*3))*(1+i*tan(a1*3))); C:=[C0,C0+1+i*texpand(tan(pi/3+2*a1-a2)), C0+1+i*texpand(tan(2*pi/3+a1-2*a2)), C0+1+i*texpand(tan(2*pi/3+2*a1-a2)), C0+1+i*texpand(tan(pi/3+a1-2*a2)), C0+1+i*texpand(tan(2*a1-a2)),C0+1+i*texpand(tan(a1-2*a2))]; P:=affixe((inter(droite(A[0],A[m]),droite(B[0],B[n])))[0]); Q:=affixe((inter(droite(B[0],B[p]),droite(C[0],C[q])))[0]); R:=affixe((inter(droite(C[0],C[r]),droite(A[0],A[s])))[0]); lpq:=longueur2(P,Q); lpr:=longueur2(P,R); lqr:=longueur2(Q,R); return([normal(lpq-lpr),normal(lpq-lqr)]); };On fait Charger session du menu Fich de xcas et on selectionne equimorley du répértoire examples/geo pour exécuter ce fichier, puis :