%% auteur : 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 [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