Présentation de tangente_ellipse.jps

%% PhS

%% fig_conique_16


35 setxunit
-8 8  setxrange
-6.5 6.5 setyrange

/bddroite {
8 dict begin
	/kd exch def
	/kg exch def
	/By exch def
	/Bx exch def
	/B {Bx By} def
	/Ay exch def
	/Ax exch def
	/A {Ax Ay} def
	gsave
	[A A B vecteur kg mulv addv A A B vecteur kd mulv addv] ligne
	grestore
end
	} def

%% definition des points


/a {6} def
/c {5} def
/b {a a mul c c mul sub sqrt} def
/e {c a div} def
/Kx {a e div} def
/K {Kx neg 0} def
/K+ {K 0 6 addv} def
/K- {K 0 -6 addv} def
/Kp {Kx 0} def
/Kp+ {Kp 0 6 addv} def
/Kp- {Kp 0 -6 addv} def
/O {0 0} def
/F {c neg 0} def
/Fp {c 0} def
/S1 {a neg 0} def
/S2 {a 0} def
/B {0 b} def

/xdet {settvar t cos a mul} def
/ydet {settvar t sin b mul} def


/Mx {60 xdet} def
/My {60 ydet} def
/M {Mx My} def
/H {M Kp Kp+ orthoproj} def

/bissec {F M Fp bissectrice} def
/bixx {bissec O S2 interdroite}def
/Mbixx {M bixx vecteur} def
/T {bissec M perp  Kp Kp+ interdroite} def
/MT {M T vecteur} def


/theta1 {c neg a div arccos} def
/Fcons1 {theta1 xdet theta1 ydet} def
/Fcons2 {theta1 neg xdet theta1 neg ydet} def


%% traces

/coul1 {188 255 div 128 255 div 9 255 div setrgbcolor} def


[O F Fp S1 S2 B K Kp M T H Fcons1 Fcons2] points
[K -0.5 0 addv Kp 0.5 0 addv] ligne
[O 0 -6.5 addv O 0 6.5 addv] ligne


0 360 settrange
{xdet} {ydet} courbeparam

vert
[K+ K-] ligne
[Kp+ Kp-] ligne
M H Kp angledroit
pointilles
[M H] ligne


bleu
continu
[F M Fp T] ligne
M Fp T angledroit
F M bixx 0.5 (=) tripointarc
bixx M Fp 0.7 (=) tripointarc


coul1
continu
M bixx -0.5 1.5 bddroite
M T -1.3 1.8 bddroite
T M bixx angledroit

rouge
Fcons1 Fcons2 -0.2 1.2 bddroite
K Fcons1 -0.05 1.3 bddroite
K Fcons2 -0.2 1.3 bddroite

%% texte


setTimesItalic
noir
  (O) O dltext
  (F) F drtext
  (F') Fp dctext
  (B) B ultext

<tex>
$ S_1 $
</tex>
  S1 [1.3 dup] dltexlabel

<tex>
$ S_2 $
</tex>
  S2 [1.3 dup] drtexlabel



bleu
  (M) M (-5 3) uctext

vert
  (K) K (0 -3) dltext
  (K') Kp drtext
  (H) H crtext
  (D) K 0 -5 addv [1.5 dup] crtext
  (D') Kp 0 -5 addv [1.5 dup] cltext


coul1
  (T) T urtext