30 setxunit
-4 4 setxrange
-4 4 setyrange
traceaxes
axesarrow
marks
/id { setxvar x } def
mixte
xmin xmax {id} Courbe
/f {
setxvar
x 1 add
1 x sub
div
ln
2 div
} def
/g {
tanh
} def
/h1 { setxvar 1 } def
/h2 { setxvar -1 } def
/d1 {-1 -4 -1 4} def
/d2 {1 -4 1 4} def
continu
{h1} courbe
{h2} courbe
d1 droite
d2 droite
pointilles
{g} courbe
continu
2 setlinewidth
bleu
-0.9999 0.9999 {f} Courbe
|