xPoints = 8 (slider from 1 to 15, step 1)
yPoints = 6 (slider from 1 to 15, step 1)
xStep: (x(Corner[3]) - x(Corner[1])) / xPoints
yStep: (y(Corner[3]) - y(Corner[1])) / yPoints
Lattice = Join(Sequence[Sequence[Corner[1] + (i * xStep, j * yStep), i, 0, xPoints], j, 0, yPoints])
f(x, y) = 2 * x^(2) + 3 * y^(2)
f_x = Derivative(f, x)
f_y = Derivative(f, x)
A = (-1.6, 2.66)
GradA: (f_x(A), f_y(A))
ScaleFactor = 6.5 (slider from 1 to 20, step 0.1)
VecGradA = Vector(A, A + GradA / ScaleFactor)
B = (0.86, 3.2800000000000002)
u = GradientVector(f, B, ScaleFactor)
NumPoints = Length(Lattice)
Counter = 22 (slider from 1 to NumPoints, step 1)
RovingVector = GradientVector(f, Element[Lattice, Counter], -ScaleFactor)
C = (-2.52, -1.96)
D = (-1.56, -1.94)
E = (-1, -2)
List2: {C, D, E}
FieldVector = Sequence(Vector[GradientVector[f, Element[Lattice, i], -ScaleFactor]], i, 1, NumPoints)
FieldVector2 = Sequence(Vector[GradientVector[f, Element[List2, i], -ScaleFactor]], i, 1, 3)

Tool: GradientVector
Function, Point, Scale Factor
Input: f, A, ScaleFactor
Output: VecGradA

f(x, y) = 2 * x^(2) + 3 * y^(2)
f_x = Derivative(f, x)
f_y = Derivative(f, x)
GradA: (f_x(x(A), y(A)), f_y(x(A), y(A)))
VecGradA = Vector(A, A + GradA / ScaleFactor)