Présentation de tangente_parabole.jps

%% PhS

%% fig_conique_15


40 setxunit
0 12  setxrange
-1.5 7 setyrange

%% definition des points

/H1 {0 0} def
/H2 {11.7 0} def
/V1 {2 -1.8} def
/V2 {2 6.2} def
/K {2 0} def
/Fx {4} def
/F {Fx 0} def
/Sx {3} def
/S {Sx 0} def
/S+ {Sx 7} def
/S- {Sx -2} def
/D {1.8 6} def
/p {2} def
/e {1} def
/A {p 2 mul Sx add dup Sx sub} def
/Axx {p 2 mul Sx add 0} def
/Ayy {Sx p 2 mul} def
/B {p 2 div Sx add p} def
/Byy {Sx p} def

%% parametrage de la parabole

/rhox {settvar t cos e mul neg 1 add 1 exch div p mul t cos mul} def
/rhoy {settvar t cos e mul neg 1 add 1 exch div p mul t sin mul} def


/Mx {70 rhox Fx add} def
/My {70 rhoy} def
/M {Mx My} def

/H {M V1 V2 orthoproj} def
/HFv {H F vecteur} def
/HFg {HFv -0.2 mulv H addv} def
/HFd {HFv 0.2 mulv F addv} def

/I {H F milieu} def
/T {V1 V2 M I interdroite} def

/TMv {T M vecteur} def
/TMg {TMv -0.5 mulv T addv} def
/TMd {TMv 1.6 mulv M addv} def


%% traces

continu
[K F M F S A Axx Ayy H I T B Byy] points
[H1 H2] ( ->) ligne
[V1 V2] ligne
[S- S+] ( ->) ligne
[M F] ligne
[M H] ligne
[HFg HFd] ligne
[T F] ligne

M H T angledroit
M F T angledroit
F I M angledroit

40 320 settrange
{rhox Fx add} {rhoy} courbeparam


/coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def
coul1
[TMg TMd] ligne


vert
pointilles
[Axx A Ayy] ligne
[F B Byy] ligne

rouge
continu
[S Sx 0.8 add 0] ( ->) ligne
[S Sx 0.8] ( ->) ligne


%% texte


setTimesItalic
bleu
   (K) K dltext
   (F) F dltext
   (D) D [1.5 dup] ltext
   (M) M uctext
   (H) H cltext
   (S) S dltext
   (T) T (-4 0) cltext
   (I) I (-4 0) cltext
vert
   (-p/2) K (0 -15) dltext
   (p/2) F (0 -15) dltext
   (A) A drtext
   (2p) Axx dctext
   (2p) Ayy cltext
   (p) Byy cltext


bleu		  
<tex>
$ \Delta $
</tex>
(x) 9 0 [1.7 dup] dctexlabel