mathematica求最优值问题