Fichier tangente_parabole.jps — Modifié le 11 Mars 2006 à 10 h 52
%% 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