結果 : mathematica find max value of function