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[yy + sin(xx), 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 = (4.078, 2.146)
f(x) = ((-(1 / 2)) * (cos(x) + sin(x))) + ((y(A) + (1 / 2 * (cos(x(A)) + sin(x(A))))) * exp(x - x(A)))
g(x) = ((-(1 / 2)) * (cos(x) + sin(x)))
B = (9.124, 4.164)
C = (10.824, 4.164)