結果 : mathematica find maximum of interpolating function