28.4527 setxunit %% 10 mm
18 setxunit
-6 2 setxrange
-1 6 setyrange

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

%tracerepere marks
%traceaxes
%axesarrow

bleu
/X {settvar
#rpn#   2*t-t^2/5
} def
/Y {settvar
#rpn#   2*t+1.5*t^2
} def
  1.5 neg  1 {X} {Y} Courbeparam
noir
0 0 point

1.8 setlinewidth
[0 0 1.4 1.4] (->) ligne
[0 0 -1.4 1.4] (->) ligne

1 setlinewidth
pointilles
/Omega {-2.35 2.35} def
Omega 3.33 cercle
Omega point