Wolfram|Alpha Clip 'n Share
Arrow ContourPlot[Sum[D[Exp[-1/t^2],{t,n}]*x^(2*n)/Factorial[2*n],{n,0,7}],{x,0,7},{t,0,7}]
This clip was created on March 21, 2013, with Wolfram|Alpha. Compute full result