Présentation de 1625.jps

/syracuse/bbgraf/tmp/1625.jpg
25 setxunit 7.5 setborder 90 setangle_repere -2 10 setxrange -2 10 setyrange /quadrillagegray 0.4 def 1 setquadrillagexstep 1 setquadrillageystep quadrillage 1 1 settkstep .5 .5 setsubtkstep 1 1 setmkstep ticks subticks marks traceaxes axesarrow unites /f {setxvar #rpn# (x-3)^2 + 1 } def /g {setxvar #rpn# x+1 } def gsave bleu .75 setlinewidth continu {f} courbe grestore gsave orange .75 setlinewidth continu xmin 0 {g} Courbe 1.5 6 {g} Courbe grestore gsave rose continu /hstep 4 store /hangle 15 store 2 3 {f} {g} Hachcourbes grestore gsave gris continu /hstep 4 store /hangle -45 store {f} {g} hachcourbes grestore 2.8 settailletangente 1 {f} tangente 2 {f} tangente 3 {f} tangente