%% PhS
%%
%% échelle et étendue de l'image
60 setxunit
-1 6.8 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.5 1.6 2 1.6] (]-) ligne
[2 0.8 2.8 0.8] (]-[) ligne
[2.8 2 3.6 2] (]-) ligne
[3.6 1.3 4.4 1.3] (]-[) ligne
[4.4 -0.7 5.7 -0.7] (]-) ligne
[0.5 2.2 2 1.6 2.8 -0.9 3.6 2 4.4 1.2 5.7 -0.7] points
1 setlinewidth
vert
pointilles
[0.5 0 0.5 2.2] (-) ligne
[2 0 2 1.6] (-) ligne
[2.8 -0.9 2.8 2] (-) ligne
[3.6 0 3.6 2] (-) ligne
[4.4 -0.7 4.4 1.3] (-) ligne
[5.7 0 5.7 -0.7] (-) ligne
/fillstyle {hachure} def
bleu
continu
0.5 2 {1.6} Hachcourbe
2 2.8 {0.8} Hachcourbe
2.8 3.6 {2} Hachcourbe
3.6 4.4 {1.3} Hachcourbe
/fillstyle {rouge /hangle hangle 90 add store hachure} def
4.4 5.7 {-0.7} Fillcourbe
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic
|