%% 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

1.2 setlinewidth
continu
bleu
[F] points
D droite
16 setfontsize
setTimesItalic
   (F) F dltext
   (D) -1 0 0 3 addv dltext

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

1.2 setlinewidth
noir
/x 0.5 def
/M {x dup f} def
/H {-1 x f} def
[M H] points
setTimesItalic
   (M) M ultext
   (H) H cltext
F M (-) line
M H (-) line

<tex> 
$$
p/2
$$ 
</tex> 
F  [1.5 1.5] drtexlabel 

<tex> 
$$
-p/2
$$ 
</tex> 
-1 0  [1.5 1.5] dltexlabel