folium di Cartesio
cartesiana
x^3 + y^3-3kxy=0

polare

r= 3k * sin(α)*cos(α)/(sin(α)^3 +cos(α)^3)

x = cos(α)*3k*sin(α)*cos(α)/( sin(α)^3 + cos(α)^3)

y= sin(α)*3k*sin(α)*cos(α)/(sin(α)^3+cos(α)^3)

luogo( A, slider)

b = CurveCartesian(cos(α) * 3 * 2 * sin(α) * cos(α) / (sin(α)^(3) + cos(α)^(3)), sin(α) * 3 * 2 * sin(α) * cos(α) / (sin(α)^(3) + cos(α)^(3)), α, 0, 6.28)
α = 3.857177646907468 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
c: x = cos(α) * 3 * 2 * sin(α) * cos(α) / (sin(α)^(3) + cos(α)^(3))
d: y = sin(α) * 3 * 2 * sin(α) * cos(α) / (sin(α)^(3) + cos(α)^(3))
A = Intersect(d, c)
luogo1 = Locus(A, α)