%% auteur : 90 setangle_repere -3.2 7 setxrange -8 2.6 setyrange /quadrillagegray 0.4 def 1 setquadrillagexstep 1 setquadrillageystep quadrillage 1 1 settkstep .5 .5 setsubtkstep 1 1 setmkstep ticks subticks marks traceaxes unites /f {setxvar #rpn# 0.0004044366*x^7-0.002160299*x^6-0.01820935*x^5+0.07477522*x^4+0.1776286*x^3-0.1646595*x^2-0.7518683*x-2 } def /g {setxvar #rpn# (2/5)*x-2 } def gsave %bleu 0.75 setlinewidth continu 3 neg 7 {f} Courbe grestore gsave %rouge 0.75 setlinewidth continu 3 neg 7 {g} Courbe grestore /A {-3 2} def /B {-3 -3.2} def /O {0 0} def /I {1 0} def /J {0 1} def 12 setfontsize setTimesItalic (O) O dltext (I) I uctext (J) J crtext %% definition du label $$ y=f(x) $$ A crtexlabel %% definition du label $$ y=g(x) $$ B crtexlabel