-7 9 setxrange
-8 8 setyrange
1 1 setsubtkstep
2 2 settkstep
2 2 setmkstep
/H {3 ln dup} def
/f {
setxvar
x 2 sub 12 x Exp 3 add div add
} def
/f' {
pop 0
} def
marks
traceaxes
ticks
subticks
H point
3 settailletangente
H pop tracetangente
tracecourbe
mixte
/g {2 sub} def
tracegcourbe
setTimesItalic
(H) H uptext
(C) 3 dup f uptext
(D) xmin .75 mul dup g downrighttext
(2) indice
/g {2 add} def
tracegcourbe
(D) 5 dup g uplefttext
(1) indice
|