2 replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/ edited Apr 13 '17 at 12:55 Because of this commentthis comment the following becomes too long to be just a comment so here you go: tt1 = Table[ z /. Solve[z^2 == x^2 y - z, z, Method -> Reduce], {x, 0, 5,1}, {y, 0, 5, 1}]; Max[tt1] Table[{x, y}, {x, 0, 5, 1}, {y, 0, 5, 1}][[Sequence @@ (First@Position[tt1, Max[tt1]])[[;; 2]]]]  1/2 (-1 + Sqrt[501]) {5, 5}  Because of this comment the following becomes too long to be just a comment so here you go: tt1 = Table[ z /. Solve[z^2 == x^2 y - z, z, Method -> Reduce], {x, 0, 5,1}, {y, 0, 5, 1}]; Max[tt1] Table[{x, y}, {x, 0, 5, 1}, {y, 0, 5, 1}][[Sequence @@ (First@Position[tt1, Max[tt1]])[[;; 2]]]]  1/2 (-1 + Sqrt[501]) {5, 5}  Because of this comment the following becomes too long to be just a comment so here you go: tt1 = Table[ z /. Solve[z^2 == x^2 y - z, z, Method -> Reduce], {x, 0, 5,1}, {y, 0, 5, 1}]; Max[tt1] Table[{x, y}, {x, 0, 5, 1}, {y, 0, 5, 1}][[Sequence @@ (First@Position[tt1, Max[tt1]])[[;; 2]]]]  1/2 (-1 + Sqrt[501]) {5, 5}  1 answered Aug 1 '14 at 11:56 Öskå 7,74533 gold badges2525 silver badges4747 bronze badges Because of this comment the following becomes too long to be just a comment so here you go: tt1 = Table[ z /. Solve[z^2 == x^2 y - z, z, Method -> Reduce], {x, 0, 5,1}, {y, 0, 5, 1}]; Max[tt1] Table[{x, y}, {x, 0, 5, 1}, {y, 0, 5, 1}][[Sequence @@ (First@Position[tt1, Max[tt1]])[[;; 2]]]]  1/2 (-1 + Sqrt[501]) {5, 5}