Fichier art_01.jps — Modifié le 11 Mars 2006 à 10 h 56

art_01.pdf
Source
/width 250 def
/height 250 def
/border 7.5 def
/xmin -5 def
/xmax 5 def
/ymin -5 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
    x 2 div Exp
    x -2 div Exp add
    2 div
    2 mul
    -0.3 add
} def
/g {setxvar
    x 3 div Exp
    x -3 div Exp add
    2 div
    3 mul
} def
/h {setxvar
    x 4 div Exp
    x -4 div Exp add
    2 div
    4 mul
    -0.5 add
} def
/i {setxvar
    x 1.5 div Exp
    x -1.5 div Exp add
    2 div
    1.5 mul
    -1.5 add
} def
/j {setxvar
    x 1.2 div Exp
    x -1.2 div Exp add
    2 div
    1.2 mul
    -4 add
} 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
   orange
   .8 setlinewidth
   continu
   {i} courbe
grestore
                        
gsave
   rose
   .8 setlinewidth
   continu
   {j} courbe
grestore