Ortslinie

Polarkurve

A = Point(xAxis)
a_1 = OrthogonalLine(A, xAxis)
b = 1 (slider from -5 to 5, step 0.1)
B = Point(a_1)
C = Intersect(xAxis, yAxis)
c = Line(C, B)
d = Circle(B, b)
D, E = Intersect(d, c)
Ortslinie1 = Locus(E, B)
Ortslinie2 = Locus(D, B)
a = Segment(C, A)
rx(t) = (cos(t) * (a / cos(t) + b))
ry(t) = (sin(t) * (2 / cos(t) + b))
e = CurveCartesian(rx(t), ry(t), t, 0, 6.283185307179586)
f = true
g = true
Text1: "rx(t) = " + rx + "
ry(t) = " + ry + "
Kurve[" + e + ",t,0,2 π]"