P_p=(r_Q-Leine;\alpha)

r_Q(x)=\frac{a}{sin(x)

r(x)=\frac{a}{sin(x)}-Leine

r(x) zeigen

O = Intersect(xAxis, yAxis)
A = Point(yAxis)
g = OrthogonalLine(A, yAxis)
Q = Point(g)
Leine = 3 (slider from 0 to 5, step 0.1)
f = Line(O, Q)
B = Point(xAxis)
α = Angle(B, O, Q)
r_Q = Segment(O, Q)
P_p: (r_Q - Leine; α)
Ortslinie1 = Locus(P_p, Q)
Le = Segment(P_p, Q)
r_p = Segment(O, P_p)
a: y(A)
rq(x) = a / sin(x)
r(x) = rq(x) - Leine
Q_k: (α, rq(α))
P_k: (α, r(α))
k = Segment(Q_k, P_k)
b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0.1, 3)
c = true