parametriche asteroide

x = k cos(t)^3
y = k sin(t)^3

inserire k,t
inserire parametriche x, y due rette
intersezione rette A
luogo (A, t )
modificare k

k = 5 (slider from -5 to 5, step 0.1)
t = 4 (slider from -5 to 7, step 0.1)
a: x = k * cos(t)^(3)
b: y = k * sin(t)^(3)
A = Intersect(a, b)
luogo1 = Locus(A, t)
c = CurveCartesian(k * cos(t)^(3), k * sin(t)^(3), t, 0, 6.28)