Présentation de equ2_017.jps

-7 2 setxrange
-2.5 6.5 setyrange

traceaxes
axesarrow
marks
/f {setxvar
    1
    3 x mul Exp 2 mul add
    x Exp 4 mul sub
} def
/g {pop 1} def

2 settailletangente
/f' {pop 0} def
2 3 div ln 2 div tracetangente
/f' {pop 2} def
0 tracetangente

mixte
{g} courbe
continu
medium setlinewidth
{f} courbe

setSymbol
   (D) Xmin 1 urtext
setTimesItalic
   (C) .8 4 text
   (f) indice