100 setxunit
18 setfontsize
-.5 5 setxrange
-.5 5 setyrange

tracerepere
marks

setTimesItalic
   (O) O drtext


/fundemi {
  setxvar 
  x sqrt 
} def

/f0 {
  setxvar 
  1
} def

/f1 {
  setxvar 
  x  
} def

/f2 {
  setxvar 
  x 3 exp 
} def

/inv {
  setxvar 
  1 x div 
} def

2 setlinewidth

bleu 0 xmax {fundemi} Courbe
setSymbol (0<a<1) 4.5 2.4 text
rouge 0 xmax {f0} Courbe
setSymbol (a=0) 4.5 1.2 text
vert 0 xmax {f1} Courbe
setSymbol (a=1) 4.5 4.2 text
orange 0 xmax {f2} Courbe
setSymbol (a>1) 1.8 4.2 text
noir 0.01 xmax {inv} Courbe
setSymbol (0<a) 4.5 0.3 text