Fichier cissoidedroite.mp (figure 1) — Modifié le 12 Avril 2008 à 23 h 21

cissoidedroite.mp (figure 1)
Source

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