Présentation de parabole_01.jps

%% auteur : 

/width 250 def
/height 250 def
/border 7.5 def
/xmin -10 def
/xmax 10 def
/ymin -10 def
/ymax 10 def
xticks
yticks
xsubticks
ysubticks
/xtkstep 1 def
/ytkstep 1 def
/xsubtkstep .5 def
/ysubtkstep .5 def
/xmkstep 2 def
/ymkstep 2 def
xmarks
ymarks
traceOx
traceOy
axeOxarrow
axeOyarrow
unites
xmarks
ymarks
jpegmode
/f {setxvar
    3 x 2 exp mul
} def
/g {setxvar
    0.5 x 2 exp mul
} def
/h {setxvar
    -5 x 2 exp mul
} def
/i {setxvar
    2 x 2 exp add
} def
/j {setxvar
    -5  x 2 exp add
} def
/k {setxvar
    -0.333 x 2 exp mul
} def



gsave
   bleu
   .8 setlinewidth
   continu
   {f} courbe
grestore
gsave
   rouge
   .8 setlinewidth
   continu
   {g} courbe
grestore
gsave
   vert
   .8 setlinewidth
   continu
   {h} courbe
grestore
gsave
   noir
   .8 setlinewidth
   continu
   {i} courbe
grestore
gsave
   orange
   .8 setlinewidth
   continu
   {j} courbe
grestore
gsave
   magenta
   .8 setlinewidth
   continu
   {k} courbe
grestore