Can mathematic derive best equation to use, ...
No, I am afraid, you have to try with some general expression or with some clever assumptions. Here is a first attempt. Let data
be your data, then:
{{xmin, xmax}, {ymin, ymax}} = Most[MinMax /@ Transpose[data]];
(* assumed simple model: *)
model = (a0 + a1 x + a2 x^2 + a3 x^3) + (b0 + b1 y + b2 y^2);
(* calculation of the parameters: *)
params = FindFit[data, model, {a0, a1, a2, a3, b0, b1, b2}, {x, y}];
(* plot of the data: *)
gr = Graphics3D[{PointSize[Large], Point[data]}];
(* plot of the model using the calculated parameters: *)
p3D = Plot3D @@ {model /. params, {x, xmin, xmax}, {y, ymin, ymax}};
(* showing both in the same graphic: *)
Show[p3D, gr]
