Hot answers tagged

3

You can extract the data from the plot and look for the maximum z value: p = Plot3D[new[α, χ, 0.9] - old[0.9], {α, 0, 2 π}, {χ, 0, π}, MaxRecursion -> 0, AxesLabel -> Automatic, PlotPoints -> 20] Cases[p, GraphicsComplex[pts_, __] :> MaximalBy[pts, Last], -1] (* {{{2.31486, 2.14951, 0.145981}}} *) However be aware that the result depends ...



Only top voted, non community-wiki answers of a minimum length are eligible