Bewege A und B waagerecht

refresh
Strg f

a = -11.408213088472742
b = -11.495426555912212
p: y = 6.8
g(x) = (-x)
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: (a, 0)
h(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)))))
gl1: x = 0
l1 = Sequence(y^(2) = 9 - (5 * m), m, -7.2, 1.8, 0.6)
C = (-13.690845357534844, -12.191611065274959)
B: (b, p(-15))
f(x) = (3 * (((y(B) - 3) * ℯ^((1.2 * b))) + ((3 + y(B)) * ℯ^((1.2 * x)))) / (((3 - y(B)) * ℯ^((1.2 * b))) + ((3 + y(B)) * ℯ^((1.2 * x)))))
q: h
l3 = Sequence((3 * (((y(B) - 3) * ℯ^((1.2 * b))) + ((3 + y(B)) * ℯ^((1.2 * x)))) / (((3 - y(B)) * ℯ^((1.2 * b))) + ((3 + y(B)) * ℯ^((1.2 * x))))), b, -15, 15, 2.5)
l4 = Sequence((3 * (((y(A) - 3) * ℯ^((1.2 * a))) + ((3 + y(A)) * ℯ^((1.2 * x)))) / (((3 - y(A)) * ℯ^((1.2 * a))) + ((3 + y(A)) * ℯ^((1.2 * x))))), a, -10, 10, 2.5)
D = (-14.383739256733671, 0.031978271394472624)
E = (-12.581327596317943, 0.031978271394472624)