autocrop
%% http://www.mat.ulaval.ca/anum/ch5/html/node10c.html
1.5 1.5 scale
setTimes

-1 18 setxrange
-15 2 setyrange
30 setxunit

/A {0 0} def
/B {2 0} def
/C {4 0} def
/D {6 0} def

(n) A bctext
(simpson) B bctext
(trapèzes) C bctext
(Romberg) D bctext

0 -20 translate

/affiche {
1 dict begin
   /n exch def
   bleu
   n chaine cvs A bctext
   noir
   0 1 {dup mul neg Exp} n simpson chaine cvs B bctext
   0 1 {dup mul neg Exp} n methodetrapeze chaine cvs C bctext
   0 1 {dup mul neg Exp} 10 n -6 div exp romberg chaine cvs D bctext
end
} def

gsave
   1 1 15 {
      2 mul 
      affiche
      0 -15 translate
   } for
grestore

8 setfontsize
setTimes
(voir http://www.mat.ulaval.ca/anum/ch5/html/node10c.html) 0 1.2 brtext

boxit
/linearc .2 def
#tex# Calcul de $\displaystyle {\int_0^1 e^{-x^2} \, dx}$
3 -8.5 [1.5 dup] cctexlabel