bewege A 

k = -0.75 (slider from -6 to 6, step 0.05)
a: 1 / 5
xmin = -2 (slider from -10 to 15, step 1)
xmax = 14 (slider from -10 to 15, step 1)
ymin = -5 (slider from -10 to 15, step 1)
ymax = 6 (slider from -10 to 15, step 1)
mm = Sequence(Sequence[yy + (cos(xx) * ℯ^((a * xx))), xx, xmin, xmax], yy, ymin, ymax)
rr = 0.5
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 = (12, -3)
B = (14.51805692352778, 4.714413971788549)
C = (16.218056923527776, 4.714413971788549)
K: (0, k)
ax: x(A)
ay: y(A)
fA(x) = (exp(x) * (20 / 41 - ((1 / 41 * exp((-ax))) * ((-41 * ay) + (20 * exp(ax)) - ((20 * exp(ax / 5)) * cos(ax)) + ((25 * exp(ax / 5)) * sin(ax)))))) - ((5 / 41 * exp(x / 5)) * ((4 * cos(x)) - (5 * sin(x))))
fk(t) = (20 * exp(t) / 41) + (exp(t) * k) - ((20 / 41 * exp(t / 5)) * cos(t)) + ((25 / 41 * exp(t / 5)) * sin(t))