Présentation de 841.jps

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