40 setxyrapport
10000 setxunit
7.5 setborder
90 setangle_repere
-.01 0.02 setxrange
-.1 1.2 setyrange
1 1 settkstep
.5 .5 setsubtkstep
0.005 0.1 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   1-Exp (-710 * x)
} def
/g {setxvar
#rpn#   0.5
} def
gsave
   bleu
   .75 setlinewidth
   continu
 0 0.01  {f} Courbe
grestore
gsave
   rouge
   .75 setlinewidth
   continu
   {g} courbe
grestore

/alpha 0.00097 def

[alpha 0 alpha dup g] ligne
#tex# $\alpha $
alpha 0 [1.5 dup] dctexlabel