input latexmp; setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp"); input textpath; prologues:=2; input geometriesyr16; figure(-7u,0,13u,10u); pair A,B,P,Q[],M[]; A=u*(4,3); B-A=u*(1,0.2); P=u*(3,0.75); for k=-25 upto 25: Q[k]=(k/3)[A,B]; M[k]=demidroite(P,Q[k]) intersectionpoint cercles(Q[k],4u); endfor; drawoptions(dashed evenly withcolor gris); trace droite(A,B); drawoptions(withcolor rouge); path conchoide; conchoide=M[-25] for k=-24 upto 25: --M[k] endfor; trace conchoide; drawoptions(withcolor bleu); trace textpath("\Large Conchoïde",conchoide,0.75); fin; end