-10 2 setxrange
-2 10 setyrange
tracerepere
marks
/f {
setxvar
-1
1 x 1 sub div
add
1
x 1 sub dup mul 2 mul div
add
} def
/f' {
setxvar
x neg
x 1 sub 3 exp
div
} def
1.2 setlinewidth
xmin .9999 {f} Courbe
3 settailletangente
0 (f) tangente
.8 setlinewidth
mixte
{pop -1} courbe
1 ymin 1 ymax droite
|