-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