Fichier 195.jps — Modifié le 11 Mars 2006 à 10 h 53
-1 9 setxrange
-1 10 setyrange
tracerepere
marks
/f {
setxvar
x 3 exp 5 24 div mul
x dup mul 21 8 div mul sub
x 235 24 div mul add
59 8 div sub
} def
1 8 {f} Courbe
[1 3 5 7 8] {dup f dashpoint} apply
setTimesItalic
(C) 7.5 dup f ultext