Fichier 2340.jps — Modifié le 21 Mars 2007 à 18 h 27
50 setxunit
7.5 setborder
90 setangle_repere
-1.2 8.5 setxrange
-1 3.5 setyrange
%[1 1 .5 .5 .1 .1] {orange} Quadrillage
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
traceaxes
axesarrow
/f {setxvar
#rpn# 1-2*Sin (x-1) * Cos (2*x-2)
} def
/g {setxvar
#rpn# 3-2*x
} def
gsave
bleu
1 setlinewidth
continu
1 7 {f} Courbe
grestore
gsave
noir
.5 setlinewidth
continu
0.5 1.5 {g} Courbe
grestore
pointilles
[1 0 1 1 0 1] ligne
[1.4 0 1.4 0.2 0 0.2] ligne
[0 0.45 1.4 0.45] ligne
1 1 point
1.4 0.2 point
1.4 0.45 point