Source
%% auteur : 

90 setangle_repere
-3.2 7 setxrange
-8 2.6 setyrange
/quadrillagegray 0.4 def
1 setquadrillagexstep
1 setquadrillageystep
quadrillage
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
subticks
marks
traceaxes
unites
/f {setxvar
#rpn#   0.0004044366*x^7-0.002160299*x^6-0.01820935*x^5+0.07477522*x^4+0.1776286*x^3-0.1646595*x^2-0.7518683*x-2
} def
/g {setxvar
#rpn#   (2/5)*x-2
} def
gsave
   %bleu
   0.75 setlinewidth
   continu
  3 neg  7 {f} Courbe
grestore
gsave
   %rouge
   0.75 setlinewidth
   continu
  3 neg 7 {g} Courbe
grestore

/A {-3 2} def
/B {-3 -3.2} def
/O {0 0} def
/I {1 0} def
/J {0 1} def

12 setfontsize
setTimesItalic
    (O) O dltext
    (I) I uctext
    (J) J crtext

%% definition du label
<tex>
$$
   y=f(x)
$$
</tex>

A crtexlabel 


%% definition du label
<tex>
$$
   y=g(x)
$$
</tex>

B crtexlabel