1 %%% --------------------------------------------------------------------------
2 %%% mp-gdd %%% Courbes du second degré
3 %%% --------------------------------------------------------------------------
5 if unknown Pi: input gdd-fct; fi;
7 %%% --------------------------------------------------------------------------
9 %%% --------------------------------------------------------------------------
11 % Parabole par Foyer-Directrice.
15 vardef ParaboleFD(expr F,D) =
17 (u,v,w) = EquationDroite(D);
18 d := u * gddA[F] + v * gddB[F] + w;
19 i := -gddParabolePar-1;
21 (i*(v,-u)+((i*i-d*d)/(2d))*(u,v))
22 for i:= -gddParabolePar upto gddParabolePar:
23 ..(i*(v,-u)+((i*i-d*d)/(2d))*(u,v))
28 % Parabole par Foyer-Sommet
29 vardef ParaboleFS(expr F,S) =