plot[1/(x^2),abs[1/x]] from -5 to 5