P_B=(y(B_x),y(B_y)

P_2=(y(A_x),y(B_y)

Ha 2016

e = 3
t = 0.49568807339449483 (slider from 0 to 1.2, step 0.01)
xpq: (e^(2) * (t + t^(2)))
ypq: (e^(2) * (t - t^(2)))
xp: sqrt(xpq)
yp: sqrt(ypq)
P: (xp, yp)
Ortslinie1 = Locus(P, t)
O = (0, 0)
P' = Mirror(P, O)
P_1 = Mirror(P, yAxis)
P_2 = Mirror(P, xAxis)
Ortslinie2 = Locus(P_2, t)
Ortslinie3 = Locus(P_1, t)
Ortslinie4 = Locus(P', t)
c: y^(2) = (e^(2) * (x + x^(2)))
d: y^(2) = (e^(2) * (x - x^(2)))
T: (t, 0)
a = OrthogonalLine(T, xAxis)
B_x, A_x = Intersect(c, a)
B_y, A_y = Intersect(d, a)
P_A: (y(A_x), y(A_y))
Ortslinie5 = Locus(P_A, t)
P_B: (y(B_x), y(B_y))
Ortslinie6 = Locus(P_B, t)
b = OrthogonalLine(P_A, yAxis)
f = OrthogonalLine(A_y, yAxis)
Ortslinie7 = Locus(P_1, t)
Ortslinie8 = Locus(P_2, t)