rosa 4 foglie

(x^2+y^2)^3 - (x^2-y^2)^2=0

polare
r = cos(2α)

variante
r = cos(α)^2 -sin(α)^2

cartesiane
x=cos(α)*cos(2α)
y=sin(α)*cos(2α)

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