Présentation de parabole.jps

/syracuse/bbgraf/albums/coniques/parabole.jpg
%% auteur : gh 100 setxunit -2 2 setxrange -3 3 setyrange /O {0 0} def /f {sqrt 2 mul} def /g {sqrt 2 mul neg} def /F {1 0} def /D {-1 0 -1 1} def traceaxes axesarrow 16 setfontsize setTimesItalic (O) O dltext 1.2 setlinewidth continu bleu [F] points D droite 16 setfontsize setTimesItalic (F) F dltext (D) -1 0 0 3 addv dltext 2 setlinewidth rouge 0.0001 2 {f} Courbe 0.0001 2 {g} Courbe 1.2 setlinewidth noir /x 0.5 def /M {x dup f} def /H {-1 x f} def [M H] points setTimesItalic (M) M ultext (H) H cltext F M (-) line M H (-) line <tex> $$ p/2 $$ </tex> F [1.5 1.5] drtexlabel <tex> $$ -p/2 $$ </tex> -1 0 [1.5 1.5] dltexlabel