Édition du fichier 8818.jps

%% PhS
%%

%% échelle et étendue de l'image
60 setxunit
-1 6  setxrange
-1 4  setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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
coul1
continu
-2 2.5 settrange
{xdet 2.5 add} {ydet} courbeparam

/fillstyle {hachure} def
0.5 5 {-2.5 add ydet} Fillcourbe

1 setlinewidth

noir
continu
[0.5 0 0.5 -2 ydet] (-) ligne
[5 0 5 2.5 ydet] (-) ligne

rouge
2 setlinewidth
[0 1.836 5.5 1.836] (-) ligne

1 setlinewidth
pointilles
[5 2.5 ydet 5 1.836] (-) ligne

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% texte
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setTimesItalic

noir
<latex>
$\displaystyle\frac{1}{b-a}\int_{a}^{b}f$
</latex>
4 3  [2 dup] cctexlabel

vert
<latex>
$a$
</latex>
0.5 -0.3 [2 dup] cctexlabel

<latex>
$b$
</latex>
5 -0.4 [2 dup] cctexlabel

Tapez les 3 lettres : AWE