Once created I cannot make this box go away
In[1]:= Clear[a, b];
nmax = 10;
mmax = 15;
pts = Flatten[Table[{i - mmax/2, j - mmax/2, N[i^2 + j^2 - 5*i*j]}, {i, mmax}, {j, mmax}], 1];
f1 = Sum[a[i]*x^i, {i, nmax}];
f2 = Sum[b[i]*y^i, {i, nmax}];
fpp = Expand[f1*f2];
f = Function[{x, y}, Evaluate[fpp]];
EE = Expand[Sum[Sqrt[1/mmax^2*(f[pts[[i,1]], pts[[i,2]]] - pts[[i,3]])^2], {i, mmax*mmax}]];
v = Join[Table[a[i], {i, nmax}], Table[b[i], {i, nmax}]];
w = v /. NMinimize[EE, v][[2]];
MapThread[Set, {v, w}];
In[13]:= a[1]
Out[13]= -0.024081
In[14]:= b[10]
Out[14]= 0.042064
