-3 4 setxrange
-3 6 setyrange

jpegmode
tracerepere
marks

/f {
   setxvar
                             	  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
                             	  %% representation de la pile %%
                             	  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   1 x add                        %%  x+1                      %%
   -2 x mul Exp                   %%  x+1, exp (-2x)           %%
   mul                            %% (x+1) exp (-2x)           %%   
   x add                          %% (x+1) exp (-2x) + x       %%
   1 add                          %% (x+1) exp (-2x) + x + 1   %%
} def
%% on pose la derivee nulle puisqu'on ne veut que les tangentes horizontales
/f' {
   setxvar
   0
} def

{f} courbe
1.8 settailletangente
0 (f) tangente
-1 0 {f} Hachcourbe
O point
-1 0 point

/g {
   setxvar
   x 1 add
} def

setTimesItalic
   (C) Xmax dup f ultext
   (f) indice
   (O) O dltext

setSymbol
   (D) Xmin dup g drtext

mixte
{g} courbe