Mobdification de Courbe en CourbeDat dans gdd.mp, ajout des variable gddXlabel et...
[mp-gdd.git] / 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

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.