Source
%% auteur : Peric
-7.9 7.9 setxrange
-4.9 5.9 setyrange
28.45 setxunit
%25 setyunit
1 setxmkstep
1 setymkstep

/xmarkstyle {[1.3 dup] dctext} def
/ymarkstyle {[1.3 dup] ultext} def
/quadrillagewidth[.5 .4 .1] def
pointilles
gris
%[1 1]{0.7 setlinewidth} Quadrillage
noir
continu
1.4 setlinewidth
%0.5 0.5 setsubtkstep
traceaxes
ticks
marks
%tracerepere
%axesarrow

%/f {setxvar x 1 exch div} def
/f {setxvar
#rpn# 1/x
} def
/g {setxvar
#rpn# (2*x+1)/(x+1)
} def
%/f2 {setxvar
%#rpn# -1/x
%} def
/f2{f neg} def
/f3{1 add f2} def


/A{1 dup f} def
/B{0.5 dup f} def
/C{2 dup f} def
/D{-1 dup f} def
/E{-0.5 dup f} def
/F{-2 dup f} def

gsave
[A B C D E F] {plus3} papply
1.5 setlinewidth
xmin 0.01 neg {f} Courbe
0.01 xmax {f} Courbe
rouge 
2 setlinewidth
xmin 0.01 neg -1 add {g} Courbe
0.01 -1 add xmax {g} Courbe
grestore

gsave
1 setlinewidth
xmin 0.01 neg {f2} Courbe
0.01 xmax {f2} Courbe
pointilles
xmin 0.01 neg -1 add {f3} Courbe
0.01 -1 add xmax {f3} Courbe
grestore

gsave
0.75 setlinewidth
[0.3 dup f 3.2 4.2 ] (*-) ligne
[0.3 dup f2 3.2 -3.8 ] (*-) ligne
[0.8 dup f3 4.2 -1.8] (*-) ligne
[-1.5 dup g -4.2 4.2] (*-) ligne

/a {-0.7} def
2 setlinewidth
[a dup f2 a 1 sub dup f3] (->) ligne
[a 1 sub dup f3 a 1 sub dup g] (->) ligne
grestore


2 setlinewidth
<latex>
$\mathcal{H}$
</latex>
0.7 5 [2 dup] cctexlabel

<latex>
$\mathcal{H}'$
</latex>
0.8 -4 [2 dup] cctexlabel

<latex>
$\displaystyle\frac{1}{x}$
</latex>
3.2 4.2 [2 dup] crtexlabel
<latex>
$\displaystyle\frac{-1}{x}$
</latex>
3.2 -3.8 [2 dup] crtexlabel
<latex>
$\displaystyle\frac{-1}{x+1}$
</latex>
4.2 -1.8 [2 dup] crtexlabel
<latex>
$\displaystyle 2-\frac{1}{x+1}$
</latex>
-4.2 4.2 [2 dup] cltexlabel


<latex>
$-\overrightarrow{i}$
</latex>
-1 1.9 [2 dup] cctexlabel
<latex>
$2\overrightarrow{j}$
</latex>
-2.1 2.1 [2 dup] cctexlabel

rouge
<latex>
$\mathcal{C}$
</latex>
6 2 [2 dup] uctexlabel