如何用mathematica求这个积分?