/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created by wxMaxima version 0.7.5 ] */

/* [wxMaxima: title   start ]
Animation Taylorentwicklung
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
***************************************
Dokumentnummer: D1640
***************************************
Quelle: wxMaxima-Dokumentation
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Das animierte Bild anklicken und dann den Schieberegler bewegen
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
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] 
)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$