%% 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
$$
p/2
$$
F [1.5 1.5] drtexlabel
$$
-p/2
$$
-1 0 [1.5 1.5] dltexlabel