Présentation de lect_006.jps

/syracuse/bbgraf/albums/analyse_2nd/lect_006.jpg
-4 4 setxrange -1 5 setyrange traceaxes axesarrow [-.5 1 2.5 4] {ymark} apply [-3 -1 0 1 2 3] {xmark} apply /f { setxvar %% 269 72 div %% 125 36 div x mul add %% 53 72 div x dup mul mul add %% x dup mul mul x 3 exp 3 x mul sub } def /A {-3 -.5} def /A1 {-2 1} def /A2 {-2.5 .5} def /B {-1 1} def /B2 {-.5 1} def /B1 {-.5 0} def /C {0 0} def /C2 {.5 0} def /C1 {.75 .75} def /D {1 1} def /D2 {1.25 1.35} def /D1 {1.5 1.8} def /E {2 2.5} def /E1 {2.5 3.3} def /F {3 4} def /scurveto { 3 {3 1 rollp yunit mul exch xunit mul exch } repeat curveto } def [A B C D E F] dashpoints medium setlinewidth newpath A smoveto A2 A1 B scurveto B2 B1 C scurveto C2 C1 D scurveto D2 D1 E scurveto E E1 F scurveto stroke %[A1 A2 B1 B2 C1 C2 D1 D2 E1] points %[A B C D E F] (times) plot setTimesItalic (x ) xmax 0 ultext (y ) 0 ymax dltext