a = 2
c = 0.46 (slider from -5 to 5, step 0.01)
astri: x = c
stropho: ((2 - x) * y^(2)) = (((2 * a) - 2 + x) * x^(2))
asstr: x = 2
Liste1 = Sequence(((c - x) * y^(2)) = (((2 * a) - c + x) * x^(2)), c, -2.6, 0.4, 0.2)
Liste2 = Sequence(((c - x) * y^(2)) = (((2 * a) - c + x) * x^(2)), c, 0.5, 5, 0.5)
dio: ((4 - x) * y^(2)) = (((2 * a) - 4 + x) * x^(2))
ascis: x = 4
cis: ((c - x) * y^(2)) = (((2 * a) - c + x) * x^(2))
tri: ((1 - x) * y^(2)) = (((2 * a) - 1 + x) * x^(2))
A = Point(cis)
f = Tangent(A, cis)
d: (x - ((2 * a) - c) / 3)^(2) + y^(2) / 3 = ((2 * a) - c)^(2) / 9
N: (c - (2 * a), 0)
kuex = CurveCartesian((1 / 2 * (-2 + (2 * c) - (sqrt(2) * sqrt(2 + (4 * c))))), sqrt((2 * (1 + sqrt(1 + (2 * c)))) + (c * (-10 - c + (4 * sqrt(1 + (2 * c)))))), c, -5, 4)
typ_1: ((-1 - x) * y^(2)) = (((2 * a) + 1 + x) * x^(2))
typ_2: ((-1 / 2 - x) * y^(2)) = (((2 * a) + 1 / 2 + x) * x^(2))
typ_3: ((-1 / 4 - x) * y^(2)) = (((2 * a) + 1 / 4 + x) * x^(2))
typ_5: ((1 - x) * y^(2)) = (((2 * a) - 1 + x) * x^(2))
typ_6: ((4 - x) * y^(2)) = (((2 * a) - 4 + x) * x^(2))
typ_7: ((5 - x) * y^(2)) = (((2 * a) - 5 + x) * x^(2))
kreis: (x + a)^(2) + y^(2) = a^(2)
typ_4: (-y^(2)) = (((2 * a) + x) * x)