plot([(e^x)*(1-x^2),1+x,e^x],(x,-1,1))