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 (01) 1.8 4.2 text
noir 0.01 xmax {inv} Courbe
setSymbol (0