Taylorentwicklung der Sinuskurve mit einem Schieberegler

tay(n, x) := block( [ts,z],
   [ts : taylor(sin(z), z, 0, n)],
   subst(z=x, ts)
)$

list:2*range(1,10)-1;

n ... Parameter
list ... aus der Werteliste

with_slider(n, list,
   [sin(x), '(tay(n, x))],[x, -9, 9],[y, -2, 2])$

Markiere den Grafen und verändere den Schieberegler. Schrittweise
erhält man Taylorentwicklungen höheren Grades.