Fichier 112.jps — Modifié le 11 Mars 2006 à 10 h 53
%% auteur :
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 2 3 2] (]-[) ligne
[3 -1 4 -1] (-[) ligne
[4 2 5 2] (]-[) ligne
[0 2 1 1 2 -1.5 3 -1 4 0.7 5 0] points
1 setlinewidth
vert
pointilles
[1 -1 1 2] (-) ligne
[2 -1.5 2 2] (-) ligne
[3 -1 3 2] (-) ligne
[4 -1 4 2] (-) ligne
[5 0 5 2] (-) ligne