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
|