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