Plot[Exp[-1/(1-x^2)],{x,-4,4}]