P=(y(P_x),y(P_y)

a = 1 (slider from -5 to 5, step 1)
f(x) = (a * cos(x))
t = 2.5 (slider from 0 to 7, step 0.3)
T: (t, 0)
h = OrthogonalLine(T, xAxis)
b = 2
g(x) = (b * sin(x))
xpq: (a^(2) * (t + t^(2)))
ypq: (a^(2) * (t - t^(2)))
xp: sqrt(xpq)
yp: sqrt(ypq)
O = (0, 0)
P_y = Intersect(g, h, (2.5, 1.1969442882079129))
P_x = Intersect(f, h, (2.5, -0.8011436155469337))
P: (y(P_x), y(P_y))
Ortslinie1 = Locus(P, t)
c: y = b
d = Segment(P_y, T)
e = Segment(T, P_x)
E: (x(P), 0)
i = Segment(P, E)
j = Segment(E, O)