%% 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
%
%$\vec \imath $
%
%.5 0 [1 dup] dctexlabel
%
%$\vec \jmath $
%
%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
%
%$(C_f)$
%
%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