15 setxunit
%%% les bornes sur les axes
-8 8 setxrange
-5 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) -6 0 uctext
   (x) exposant

/T1 {
   setxvar
   1 x add
} def
/T2 {
   setxvar
   1 x add x dup mul 2 div add
} def
/T3 {
   setxvar
#rpn# 1 + x + (x^2)/2 + (x^3)/6
} def

pointilles
{T2} courbe
mixte 
{T3} courbe

#tex# $y = 1 + x$
1.5 dup T1 crtexlabel
#tex# $$y = 1 + x + {x^2\over 2}$$
2 dup T2 crtexlabel
#tex# $$y = 1 + x + {x^2\over 2} + {x^3\over 6}$$
/fillstyle {blanc fill} def
/linearc .5 def
(A) Rnode
-3.5 dup T3 crtexlabel