%% auteur : gh
100 setxunit
-2 2 setxrange
-3 3 setyrange

/O {0 0} def
/f {sqrt 2 mul} def
/g {sqrt 2 mul neg} def
/F {1 0} def
/D {-1 0 -1 1} def

traceaxes
axesarrow
16 setfontsize
setTimesItalic
   (O) O dltext

2 setlinewidth
continu
noir
[F] points
D droite

4 setlinewidth
0.0001 2 {f} Courbe
0.0001 2 {g} Courbe