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_3, C = Intersect(c, g)
M_A = Midpoint(A, C)
O = Intersect(yAxis, xAxis)
h = Line(M_A, O)
D, B_2 = Intersect(c, h)
i = Tangent(B_2, c)
P = Intersect(f, i)
Ortslinie1 = Locus(P, A)
d = true
H = Point(f)
j = OrthogonalLine(H, f)
E, G = Intersect(c, j)
k = Segment(G, E)
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_2)
M_s = Midpoint(G, E)
q: x^(2) + y^(2) = a^(2) - b^(2)
K = Intersect(e, q)
I = Intersect(c, f, 1)
α = Angle(B_2, P, A)
B_1 = Mirror(B_2, O)
n = Line(B_1, g)
P' = Intersect(n, f)
β = Angle(A, P', B_1)
p = Line(K_3, K_1)
r = Line(K_4, K_2)
Ortslinie2 = Locus(P', A)