list1 = Sequence(Sequence[Vector[(i, j), (i + 0.1 / sqrt(1 + (2 i j)^(2)), j - 0.2 i j / sqrt(1 + (2 i j)^(2)))], i, -2.2, 2.2, 0.2], j, -2.2, 2.2, 0.2)
A = (-0.7918518518518518, 0.64)
f(x) = y(A) exp(x(A)^(2) - x^(2))