Présentation de etud_003.jps

/syracuse/texpng/jpv/database/term/sti/analyse/exp/etud_003.jpg
-10 5 setxrange -8.5 8 setyrange 2 2 setmkstep 1 1 setsubtkstep 2 2 settkstep /f { setxvar 2 x mul 4 sub x Exp mul } def /f' { setxvar x Exp x 1 sub 2 mul mul } def .5 setlinewidth 3 settailletangente 1 (f) tangente 10 settailletangente 0 (f) tangente tracerepere marks 1 dup f dashpoint /hstep 3 def /hwidth .4 def 0 2 {f} Hachcourbe .9 setlinewidth {f} courbe setTimesItalic (C) 2.3 dup f drtext (f) indice (T) 2 -7 cctext