Mathematica evaluate equation integral