Fichier 546.jps — Modifié le 11 Mars 2006 à 10 h 53
%% PhS
%%
%% échelle et étendue de l'image
60 setxunit
-1 6.5 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.4 mul add t -0.3 mul add 1.5 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
noir
continu
-2 2.5 settrange
{xdet 2.5 add} {ydet} courbeparam
/fillstyle {hachure} def
1 setlinewidth
coul1
continu
[0.5 0 0.5 -2 ydet] (-) ligne
[5 0 5 2.5 ydet] (-) ligne
[0.5 0 0.5 dup -2.5 add ydet 1.8 0.5 -2.5 add ydet 1.8 0] polygone*
[1.8 0 1.8 dup -2.5 add ydet 3.5 1.8 -2.5 add ydet 3.5 0] polygone*
[3.5 0 3.5 dup -2.5 add ydet 4.2 3.5 -2.5 add ydet 4.2 0] polygone*
[4.2 0 4.2 dup -2.5 add ydet 5 4.2 -2.5 add ydet 5 0] polygone*
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic