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 / xx^(2) - yy / xx, 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.2, -1.36)
f(x) = ((x(A) * y(A)) - ln(abs(x(A))) + ln(abs(x))) / x
B = (9.544, 4.32)
C = (11.244, 4.32)