Présentation de pbm_002.jps

/syracuse/texpng/jpv/database/term/sti/analyse/exp/pbm_002.jpg
-5 10 setxrange -4 7 setyrange /unites {} def tracerepere 2 2 setmkstep marks /f {setxvar #rpn# x - (x+1) / Exp (x) } def /f' {setxvar #rpn# (x + Exp (x)) / Exp (x) } def .5 setlinewidth /dotscale {.6 dup} def /arrowscale {.6 dup} def 5 settailletangente -1 (f) tangente 3 settailletangente -1 0 .01 {dup Exp add} dich_solve /alpha exch def alpha (f) tangente gsave pointilles [alpha 0 alpha dup f] ligne grestore alpha xtick .8 setlinewidth {f} courbe mixte {} courbe #tex# $\cal C$ -1.8 dup f cltexlabel setTimesItalic (O) O drtext (D) -3 dup bltext (I) -1 dup cltext setSymbol (a) alpha 0 uctext