Ortskurve

Kasten

a: 3
b: 2
c: x^(2) / a^(2) + y^(2) / b^(2) = 1
A = Point(c)
f = Tangent(A, c)
g = OrthogonalLine(A, f)
B_1, C = Intersect(c, g)
M_A = Midpoint(A, C)
O = Intersect(yAxis, xAxis)
h = Line(M_A, O)
D, B = Intersect(c, h)
i = Tangent(B, c)
P = Intersect(f, i)
Ortslinie1 = Locus(P, A)
d = true
H = Point(f)
j = OrthogonalLine(H, f)
F, G = Intersect(c, j)
k = Segment(G, F)
α = Angle(A, P, B)
e = Circle(O, P)
K_1: (a, b)
K_3: (-K_1)
K_2: ((-a), b)
K_4: (-K_2)
Vieleck1, k_1, k_2, k_3, k_4 = Polygon(K_1, K_2, K_3, K_4)
l = true
m = Line(A, B)