Fichier 069.jps — Modifié le 11 Mars 2006 à 10 h 53

069.pdf
Source
%% 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