Source
2 setxyrapport
56.693 setxunit
7.5 setborder
90 setangle_repere
-1.5 7 setxrange
-3 20 setyrange
/quadrillagegray 0.2 def
0.5 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
1 2 setmkstep
18 setfontsize
ticks
marks
traceaxes
unites
/f {setxvar
#rpn#   2*x*(6-x)
} def
gsave
   bleu
   1 setlinewidth
   continu
 0 6  {f} Courbe

/A {0.1 1.18} def
/B {0.5 5.5} def
/C {1 10} def
/D {1.5 13.5} def
/E {2 16} def

/F {2.25 16.88} def
/G {2.5 17.5} def
/H {2.75 17.88} def
/I {2.9 17.98} def
/J {3 18} def

/K {3.1 17.98} def
/L {3.25 17.88} def
/M {3.5 17.5} def
/N {3.75 16.88} def
/O {4 16} def

/P {4.5 13.5} def
/Q {5 10} def
/R {5.5 5.5} def
/S {5.9 1.18} def

[ A B C D E F G H I J K L M N O P Q R S] plot

<tex>
$y=A(x)$
</tex>

5.25 8 [2 2] crtexlabel
grestore

/f {setxvar
#rpn#   10
} def


gsave
rouge
1 setlinewidth
   pointilles
 0 xmax  {f} Courbe
[C 1 0] ligne
[Q 5 0] ligne

<tex>
$y=10$
</tex>

5.5 10 [2 2] urtexlabel
grestore

/f {setxvar
#rpn#   16
} def


gsave
vert
1 setlinewidth
   pointilles
 0 xmax  {f} Courbe
[E 2 0] ligne
[O 4 0] ligne

<tex>
$y=16$
</tex>

5.5 16 [2 2] urtexlabel
grestore


gsave
magenta
1 setlinewidth
   pointilles
[3 -3 3 20] ligne
[0 18 3 18] ligne

<tex>
$x=3$
</tex>

3 19 [2 2] crtexlabel
grestore

   
%% adresse IP : 82.230.142.134