["var('x')\nx0  = 0\nf   = sin(x)*e^(-x)\np   = plot(f,-1,5, thickness=2)\ndot = point((x0,f(x=x0)),pointsize=80,rgbcolor=(1,0,0))\n@interact\ndef _(order=(1..12)):\n  ft = f.taylor(x,x0,order)\n  pt = plot(ft,-1, 5, color='green', thickness=2)\n  html('$f(x)\\;=\\;%s$'%latex(f))\n  html('$\\hat{f}(x;%s)\\;=\\;%s+\\mathcal{O}(x^{%s})$'%(x0,latex(ft),order+1))\n  show(dot + p + pt, ymin = -.5, ymax = 1)", "sage", "[]"]