Source
%% PhS
%% 

%% Èchelle et Ètendue de l'image
60 setxunit
-1 6  setxrange
-1 4  setyrange


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  DANGER !! Il ne faut pas utiliser de variables
%%  DANGER !! qui commence par les lettres :
%%  DANGER !! xmin, xmax, ymin et ymax...
%%  DANGER !! Utiliser x_min, y_min...
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% procÈdures
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%% on donne ici x(t)
/xdet {
1 dict begin
	/t exch def
	t
end
	} def

%% on donne ici y(t)
/ydet {
1 dict begin
	/t exch def
	t dup mul dup mul -0.05 mul t dup mul 0.3 mul add t 0.3 mul add 1 add
end
	} def


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% dÈfinitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% tracÈs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% tracÈ des axes et du point Origine
1 setlinewidth
15 setfontsize
noir
continu
traceaxes
marks
tracerepere



2 setlinewidth
coul1
continu
-2 0 settrange
{xdet 2.5 add} {ydet} courbeparam
0 2.5 settrange
{xdet 2.5 add} {ydet 1.3 add} courbeparam


[2.49 0 ydet 2.5 0 ydet] (-[) ligne
[2.5 0 ydet 1.3 add 2.51 0 ydet 1.3 add] (]-) ligne

[2.5 1.5] points

1 setlinewidth
vert
pointilles
[0.5 0 0.5 -2 ydet] (-) ligne
[2.5 0 2.5 0 ydet 1.3 add] (-) ligne
[5 0 5 2.5 ydet 1.3 add] (-) ligne


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic


vert
<latex>
$a$
</latex>
0.5 -0.4 [2 dup] cctexlabel


% <latex>
% $d$
% </latex>
% 2.5 -0.4 [2 dup] cctexlabel

<latex>
$b$
</latex>
5 -0.4 [2 dup] cctexlabel