60 setxunit
18 setfontsize
-3 3 setxrange
-3 3 setyrange
tracerepere
marks
/f {
cosh
} def
/g {
sinh
} def
/h {
setxvar
x Exp 2 div
} def
/f' { setxvar
0
} def
/g' { setxvar
1
} def
noir
1 settailletangente %% taille de la tangente
0 (f) tangente %% trace d'une tangente
2 settailletangente %% taille de la tangente
0 (g) tangente %% trace d'une tangente
2 setlinewidth
bleu
{f} courbe
rouge
{g} courbe
noir pointilles
{h} courbe
noir
setTimesItalic
(O) O drtext
(ch) -1.6 dup f dltext
(sh) -1.5 dup g ultext
<tex>
$$
y = {1\over 2} e^x
$$
</tex>
-2.2 dup h [2 dup] uctexlabel
|