%% auteur : 

%% auteur : 

-1.2 20 setxrange
-1.5 2 setyrange
30 setxunit
150 setyunit
2 setlinewidth
axesarrow
traceaxes
xticks
yticks

/A{10 0} def
/B{10 -0.5} def

/C{0 1.257} def
/D{0 0.75} def
/E{30 0.75} def
/F{30 1.257} def


gsave

/fillstyle {0.8 setgray fill} def

   .8 setlinewidth
   [C D E F] polygone*

grestore


/fillstyle {blanc fill} def

/G{10 1.25} def
pointilles
[A G]  ligne
continu

<latex>
\center
 rang à partir duquel\\
tous les points\\
sont dans la bande choisie
</latex>
boxit
10 -0.5 [2 dup] dctexlabel



<latex>
$p$
</latex>
boxit
10.8 0 [1.8 dup] uctexlabel


<latex>
$n$
</latex>
19.5 0 [2.5 dup] dctexlabel


<latex>
$u_n$
</latex>
0 2 [2.5 dup] dltexlabel
<latex>
I
</latex>

 0 1 [2 dup] cltexlabel
/H{0 1.257} def
/I{0 0.75} def


3 setlinewidth
[H I] (]-[) ligne








/f{setxvar
2 x mul 5 add 2 x mul div
}def

[2 20 1 stepto] dup (f) apply fuz {times2} plot

1 setlinewidth
[A B] (->) ligne

<latex>
$\ell$
</latex>
boxit
 0 1 [2 dup] crtexlabel


<latex>
O
</latex>

 0 0 [2 dup] dltexlabel