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