Édition du fichier 1346.jps

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

0 0 [2 dup] dltexlabel

Tapez les 3 lettres : AWE