Source
20 setfontsize
0.5 setxyrapport
28.3465 setxunit
7.5 setborder
90 setangle_repere
-3 13 setxrange
-0.5 5 setyrange
/quadrillagegray 0.3 def
1 setquadrillagexstep
0.5 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 1 setmkstep
ticks
subticks
marks
traceaxes
unites
/f {setxvar
#rpn#   4 - Exp(-x)*(x+2)^2
} def
/g {setxvar
#rpn#   4
} def
gsave
   rouge
   .75 setlinewidth
   continu
 2.5 neg 12  {f} Courbe
grestore
gsave
   bleu
   .75 setlinewidth
   continu
 2.5 neg 12  {g} Courbe
grestore

gsave

bleu
setTimes
#latex#${\Delta}$
5 4.25 [2 2] crtexlabel

rouge
setTimes
#latex#${\mathcal{C}}$
5 3.5 [2 2] crtexlabel

grestore 

setTimesItalic
#latex#${\overrightarrow{i}}$
0.5 0 [1.5 1.5] dctexlabel
#latex#${\overrightarrow{j}}$
0 0.5 [1.5 1.5] cltexlabel

(O) 0 0 dltext