A bewegen

ymax = 6 (slider from -10 to 15, step 1)
ymin = -5 (slider from -10 to 15, step 1)
xmax = 8 (slider from -10 to 15, step 1)
xmin = -8 (slider from -10 to 15, step 1)
rr = 0.5
mm = Sequence(Sequence[xx / 2 - ((0.5 * xx) * yy), xx, xmin, xmax], yy, ymin, ymax)
Richtungsfeld = Sequence(Sequence[Vector[(i - (rr * cos(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))), j - (rr * sin(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1])))), (i + (rr * cos(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))), j + (rr * sin(atan(Element[Element[mm, j - ymin + 1], i - xmin + 1]))))], i, xmin, xmax], j, ymin, ymax)
A = (-2.26, -0.66)
f(x) = ((y(A) - 1) * ℯ^((x(A))^(2) / 4 - x^(2) / 4)) + 1
g: y = 1
B = (9.02, 4.376)
C = (10.72, 4.376)