Ha 2017

a = 2 (slider from 0 to 5, step 1)
A: (a, 0)
B = (0, 0)
r(x) = (a * tan(x))
end = 6.1 (slider from 0 to 6.3, step 0.1)
b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, end)
b_g = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, π / 2, end)
b_b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, π, end)
b_y = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, (3 * π / 2), end)
b_r = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, end)
b_2 = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, π / 2)
Text1: "Polarkurve\; zu\\
r(x)=" + (LaTeX[r]) + ""
c: x^(4) = (y^(2) * (a^(2) - x^(2)))