-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
|