Fichier cissoidedroite.mp (figure 1) — Modifié le 12 Avril 2008 à 23 h 21
input latexmp;
setupLaTeXMP(class="article",options="12pt",fontencoding="T1",inputencoding="latin1",language="frenchb",packages="fourier,textpathmp");
input textpath;
prologues:=2;
input geometriesyr16;
figure(0,-5u,10u,15u);
pair O,A,B,N[],P[],M[];
O=u*(3,5);
A-O=u*(4,0);
path cc,dd;
cc=cercles(iso(O,A),A);
dd=perpendiculaire(O,A,A);
B=rotation(O,A,90);
marque_p:="plein";
for k=-150 step 1 until 168:
N[k]=pointarc(cc,k);
P[k]=dd intersectionpoint droite(O,N[k]);
M[k]=demidroite(O,N[k]) intersectionpoint cercles(O,abs(N[k]-P[k]));
%drawoptions(dashed dashpattern(on12bp off6bp on3bp off6bp) withcolor gris);
%trace cercles(O,abs(N[k]-P[k]));
%trace droite(O,N[k]);
%drawoptions(withcolor rouge);
%pointe(M[k]);
endfor;
drawoptions(dashed evenly withcolor gris);
trace cc;
trace segment(O,A);
trace dd;
trace codeperp(B,A,O,5);
drawoptions(withcolor rouge);
path cissoided;
cissoided=M[-150]
for k=-149 step 1 until 168:
--M[k]
endfor;
trace cissoided;
drawoptions(withcolor bleu);
trace textpath("\Large Cissoïde droite",cissoided,0.35);
fin;
end