Source
%% auteur : Gaëtan Guillon

1 setxyrapport
40 setxunit
7.5 setborder
90 setangle_repere
-1 4 setxrange
-4 6 setyrange
[0.5 0.5 ] {orange} Quadrillage
/quadrillagegray 0.4 def
0.1 setquadrillagexstep
0.1 setquadrillageystep
quadrillage
1 1 settkstep
%.5 .5 setsubtkstep
0.5 0.5 setmkstep
1 setlinewidth
8 setfontsize
ticks
subticks
marks
traceaxes
axesarrow
.75 setlinewidth
unites

%<tex>
%$\vec \imath $
%</tex>
%.5 0 [1 dup] dctexlabel

%<tex>
%$\vec \jmath $
%</tex>
%0 .5 [1 dup] cltexlabel


/f {setxvar
#rpn#   x*(2*x-5)+ln(x)
} def
gsave
   noir
   1 setlinewidth
   continu
  0.00001  6 {f} Courbe
grestore

%setTimes
%(0,75) 0.75 0 [0.75 dup] dctext
%(heures) 2.4 0 [0.75 dup] dctext
%(glycémie) 0.1 2.4 [0.75 dup] {90} cltext
%<tex>
%$(C_f)$
%</tex>
%2.35 1.1 cctexlabel 

%/A {0.75 0.75 f} def
%/B {0.75 0} def
%pointilles
%[A B] ligne

%/C {2.5 2.5 f} def
%C point
%/D {0 0 f} def
%D point