# Animation Taylorentwicklung

***************************************
Dokumentnummer: D1640
***************************************
Quelle: wxMaxima-Dokumentation

Das animierte Bild anklicken und dann den Schieberegler bewegen

tay(n, x) := block( 
   [ts : taylor(sin(x__), x__, 0, n)], 
   subst(x__=x, ts) 
)$ 
with_slider( 
   /* first two arguments are the parameter and parameter values */ 
   n, 2*range(1, 10)-1, 
   /* the rest of arguments are for plot2d command */ 
   [sin(x), '(tay(n, x))], 
   [x, -9, 9], 
   [y, -2, 2] 
)$