Source
28.4527 setxunit %% 10 mm
%40 setxunit
-2 9 setxrange
-1.5 1.5 setyrange

%[1 1 .5 .5 .1 .1] {orange} Quadrillage

traceaxes marks axesarrow

/f {setxvar x Cos} def

1.5 setlinewidth
{f} courbe 

1.54 0 point