Fichier hyperbole_02.jps — Modifié le 26 Juin 2006 à 14 h 57

hyperbole_02.pdf
Source
%% PhS
%% fig_conique_04

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 {3} def
/c {3.8} def
/b {c c mul a a 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


/R11 {a neg b} def
/R12 {a b} def
/R21 {a neg b neg} def
/R22 {a b neg} def
/omeg {F O milieu} def
/Ry {1 e e mul 1 exch div sub sqrt a mul} def
/R {Kx neg Ry} def



/xdet {settvar t t mul b b mul div 1 add sqrt a mul} def
/ydet {settvar t} def


/Mx {b 1.3 mul xdet} def
/My {b 1.3 mul ydet} def
/M {Mx My} def
/H {M Kp Kp+ orthoproj} def



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


[O F Fp S1 S2 B K Kp M] points
F Fp -0.5 1.5 bddroite
[O 0 -6.5 addv O 0 6.5 addv] ligne


b -2.2 mul b 2.2 mul settrange
{xdet} {ydet} courbeparam
{xdet neg} {ydet} courbeparam

vert
[K+ K-] ligne
[Kp+ Kp-] ligne


rouge
[Fp M] ligne
Fp 1 0 addv Fp M 1 (->) tripointarc

bleu
pointilles
[R11 R12 R22 R21] polygone
continu
R11 R22 -1 2 bddroite
R12 R21 -1 2 bddroite


%% texte

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

  (M) M  crtext

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

rouge
<tex>
$ \theta $
</tex>
 Fp 1.5 0.7 addv [2 dup] ultexlabel