%% auteur : 

15 setfontsize
0.8 setxyrapport
5.67 setxunit
7.5 setborder
90 setangle_repere
-5 150 setxrange
-5 150 setyrange
/quadrillagegray 0.4 def
2.5 setquadrillagexstep
2.5 setquadrillageystep
quadrillage
2.5 2.5 settkstep
5 .5 setsubtkstep
10 10 setmkstep
ticks
xsubticks
marks
traceaxes
axesarrow

/f {setxvar
#rpn# x^2/(254*0.8)
} def

/g {setxvar
#rpn# x^2/(254*0.4)
} def





<tex>
\vbox {\hsize 15mm \parindent 0pt
$$f= 0,8$$
}
</tex>

%<tex>

 %  
%</tex>

/dx_boxit 2 def
/dy_boxit 2 def
%/fillstyle {jaune fill} def
/linearc .05 def
boxit
130 95 [2 dup] cctexlabel

setTimes
(O) O drtext
setTimesItalic

((distance en mètres)) 0 ymax (0 -10) brtext
((vitesse en km/h)) xmax 0 (-20 0) ultext
noir
1.5 setlinewidth
0 150  {f} Courbe
0 150  {g} Courbe


<tex>
\vbox {\hsize 15mm \parindent 0pt
$$f= 0,4$$
}
</tex>

%<tex>

 %  
%</tex>

/dx_boxit 2 def
/dy_boxit 2 def
%/fillstyle {jaune fill} def
/linearc .05 def
boxit
110 140 [2 dup] cctexlabel