gdd-c2d.mp

   1 %%% --------------------------------------------------------------------------
   2 %%% mp-gdd %%% Courbes du second degré
   3 %%% --------------------------------------------------------------------------
   4
   5 if unknown Pi: input gdd-fct; fi;
   6
   7 %%% --------------------------------------------------------------------------
   8 %%% Paraboles
   9 %%% --------------------------------------------------------------------------
  10
  11 % Parabole par Foyer-Directrice.
  12
  13 gddParabolePar := 15;
  14
  15 vardef ParaboleFD(expr F,D) =
  16   save u, v, w, d, i;
  17   (u,v,w) = EquationDroite(D);
  18   d := u * gddA[F] + v * gddB[F] + w;
  19   i := -gddParabolePar-1;
  20   (
  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))
  24     endfor
  25   ) shifted PairImp(F)
  26 enddef;
  27
  28 % Parabole par Foyer-Sommet
  29 vardef ParaboleFS(expr F,S) =
  30 enddef;
  31
  32 endinput