Présentation de art_01.jps

/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