Présentation de etud_001.jps

/syracuse/texpng/jpv/database/term/sti/analyse/exp/etud_001.jpg
-5 12 setxrange -10 7 setyrange /f { setxvar 5 x sub x neg Exp sub } def /f' {pop 0} def /unites {} def gsave .25 setlinewidth tracerepere 3.8 settailletangente 0 (f) tangente 5.8 settailletangente /f' {pop 4} def 5 ln neg (f) tangente grestore 2 2 setmkstep marks {neg} courbe 1.2 setlinewidth {f} courbe /hangle 30 def /hstep 4 def 0 2 {f} Hachcourbe mixte .8 setlinewidth {neg 5 add} courbe pointilles [2 0 2 dup f] ligne <tex> $\cal C$ </tex> -2.5 dup f [1.5 dup] ultexlabel setTimesItalic (O) O dltext (D) -1 6 dltext (A) 5 ln neg dup neg dltext setSymbol (D) -4 4 urtext