Source
%% PhS
%% 

%% Èchelle et Ètendue de l'image
60 setxunit
-1 6  setxrange
-2 3  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 1 add div t abs sqrt mul 0.5 sub 1.5 mul t 0.1 mul 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



1.5 setlinewidth
coul1

[0 2 1 2] (-[) ligne
[1 -1 2 -1] (]-[) ligne
[2 1.5 3.5 1.5] (]-[) ligne
[3.5 -1 4 -1] (-[) ligne
[4 2 5 2] (]-[) ligne

[0 2 1 1 2 -1.5 3.5 -1 4 0.7 5 0] points


1 setlinewidth
vert
pointilles
[1 -1 1 2] (-) ligne
[2 -1.5 2 1.5] (-) ligne
[3.5 -1 3.5 1.5] (-) ligne
[4 -1 4 2] (-) ligne
[5 0 5 2] (-) ligne


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