25 setxunit
7.5 setborder
90 setangle_repere
-5 5 setxrange
-5 5 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep

traceaxes

30 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth

tracerepere marks

setTimesItalic
   (O) O drtext
   
setTimes (x) 4.8 0.2 cctext

setTimes (y)  -0.2 4.8 cctext



.75 setlinewidth
continu
noir
/X {settvar
    t t mul neg 
} def
/Y {settvar
    t 2 mul 
} def
  -5  5 {X} {Y} Courbeparam
  
  
-1 0 /A defpoint
[A] points
setTimes (F) -1 -0.3 cctext

setTimes (D) 1.2 -4.2 cctext

.75 setlinewidth
continu
noir
/X {settvar
    1 
} def
/Y {settvar
    t
} def
  -8  8 {X} {Y} Courbeparam