Bewegen Sie die beliebigen Punkte
A und B in der Polarebene

a = Surface((r * cos(t)), (r * sin(t)), ((r * cos(t)) * (sin(t))^(4)), t, 0, (2 * π), r, 0, 2)
b = CurveCartesian((r * cos(π / 4)), (r * sin(π / 4)), ((r * cos(π / 4)) * (sin(π / 4))^(4)), r, -2, 2)
c = CurveCartesian((r * cos(π / 4)), ((-r) * sin(π / 4)), ((r * cos(π / 4)) * (sin(π / 4))^(4)), r, -2, 2)
B = (1.7135039119292, 2.215035463502323)
A: (-1.56, 1.11)
f = Segment(A, B)
C = (-4.12, 2.986363636363636)
D = (-2.5745454545454547, 2.986363636363636)