Présentation de 3539.jps

-1 8 setxrange -8 2 setyrange tracerepere marks /f { setxvar x dup mul -4 div x ln add .5 add } def /f' {pop 0} def 3 5 {f} Hachcourbe gsave pointilles [3 0 3 dup f] ligne [5 0 5 dup f] ligne grestore 2 settailletangente 2 sqrt (f) tangente medium setlinewidth .00001 xmax (f) Courbe