Source
20 setfontsize

1 setxyrapport
56.91 setxunit
7.5 setborder
90 setangle_repere
-1.5 5.5 setxrange
-0.5 6 setyrange
gsave
/gris_clair {0.85 0.85 0.85 setrgbcolor} def
[0.25 0.25] gris_clair Quadrillage
grestore
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
unites
/f {setxvar
#rpn#   e^(-x)*(2*x^2+x+1)
} def


<tex>
$\vec \imath $
</tex>
.4 -.1 [2 dup] dctexlabel

<tex>
$\vec \jmath $ 
</tex>
-.1 .2 [2 dup] ultexlabel

gsave
noir
setTimesItalic
(O) O dltext
grestore

gsave
bleu
<tex>
$C_f$
</tex>
4.25 1.1 [2 dup] dctexlabel
grestore

gsave
/vert_clair {0.1 0.9 0.2 setrgbcolor} def
/hcolor {vert_clair} def
traceaxes
marks
{f} courbe
0 5 {f} Hachcourbe

traceaxes
grestore

gsave
   bleu
   1 setlinewidth
   continu
 xmin xmax  {f} Courbe
grestore

pointilles
[5 0 5 0.377] ligne