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
|