waagerecht = Segment((-1, 0), (1, 0))
senkrecht = Segment((0, 0), (0, 1))
p = 2.813 (slider from -5 to 3, step 0.001)
Ani = CurveCartesian(t / sinh(ℯ^(p)), (cosh(t) - 1) / sinh(ℯ^(p)), t, (-ℯ^(p)), ℯ^(p))
A: (((-ℯ^(p))) / sinh(ℯ^(p)), (cosh(ℯ^(p)) - 1) / sinh(ℯ^(p)))
r = 0.01 (slider from 0 to 1, step 0.001)
cA = Circle(A, r)
B: (ℯ^(p) / sinh(ℯ^(p)), (cosh(ℯ^(p)) - 1) / sinh(ℯ^(p)))
cB = Circle(B, r)
KurveA = CurveCartesian(((-ℯ^(c))) / sinh(ℯ^(c)), (cosh(ℯ^(c)) - 1) / sinh(ℯ^(c)), c, -5, 5)
KurveB = CurveCartesian(ℯ^(c) / sinh(ℯ^(c)), (cosh(ℯ^(c)) - 1) / sinh(ℯ^(c)), c, -5, 5)