Fichier 548.jps — Modifié le 11 Mars 2006 à 10 h 53
%% PhS gh
%%
%% Èchelle et Ètendue de l'image
60 setxunit
-2.5 2.5 setxrange
-1 6 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)
/ydet1 {
1 dict begin
/t exch def
t dup mul
end
} def
/ydet2 {
1 dict begin
/t exch def
t 1 add
end
} def
/ydet3 {
1 dict begin
/t exch def
1 t 1 add div
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 -1 settrange
{xdet} {ydet1} courbeparam
-1 0 settrange
{xdet} {ydet2} courbeparam
0 2 settrange
{xdet} {ydet3} courbeparam
[-2 -2 ydet1] points
[-1.01 -1.01 ydet1 -1 -1 ydet1] (-[) ligne
[-1 -1 ydet2] points
[-0.01 -0.01 ydet2 0 0 ydet2] (-[) ligne
[0 0] points
[0.01 0.01 ydet3 0 0 ydet3] (-[) ligne
[1.99 1.99 ydet3 2 2 ydet3] (-[) ligne
[2 5] points
1 setlinewidth
vert
pointilles
[-2 0 -2 -2 ydet1] (-) ligne
[-1 0 -1 -1 ydet1] (-) ligne
[0 0 0 0 ydet2] (-) ligne
[2 0 2 5] (-) ligne