15 setxunit
%%% les bornes sur les axes
-8 5 setxrange
-1 8 setyrange

%%% les ticks sur les axes
2 2 setmkstep
2 2 settkstep
1 1 setsubtkstep

/f {
   Exp 
}  def

/f' {
   Exp
} def

tracerepere
marks

1.2 setlinewidth
{f} courbe

.6 setlinewidth
/tailletangente 5 def
0 (f) tangente

setTimesItalic
   (y = e) 2.2 6.5 rtext
   (x) exposant

/T1 {
   setxvar
   1 x add
} def

#tex# $y = 1 + x$
1.7 dup T1 urtexlabel