solve for z d/dz Sum[(x[k] - z)^2, {k, 1, n}] = 0