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[1.8 - (0.2 * yy^(2)), xx, xmin, xmax], yy, ymin, ymax)
phi = 0.7235987755982988
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 = (-3, 0)
f(x) = (3 * (((y(A) - 3) * ℯ^((1.2 * x(A)))) + ((3 + y(A)) * ℯ^((1.2 * x)))) / (((3 - y(A)) * ℯ^((1.2 * x(A)))) + ((3 + y(A)) * ℯ^((1.2 * x)))))
g: y = 3
h: y = -3