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