Présentation de 1000.jps

/syracuse/bbgraf/tmp/1000.jpg
100 setxunit 7.5 setborder 90 setangle_repere -2 2 setxrange -2 2 setyrange 1 1 settkstep .5 .5 setsubtkstep 1 2 setmkstep ticks subticks marks traceaxes axesarrow unites /f {setxvar #rpn# x*sqrt(1+x^2) } def /g {setxvar #rpn# x } def gsave bleu .75 setlinewidth continu {f} courbe grestore gsave bleu continu /hstep 4 store /hangle 15 store 0 1 {pop ymin 1 sub} {f} Hachcourbes grestore 2.8 settailletangente 1 {f} tangente 2 {f} tangente 3 {f} tangente