parametriche di bicorno

x = k * sin(t)

y = k*cos(t)^2 / (2-cos(t))

inserire k (2) , t (6.28)
inseriete parametriche  x, y  due rette
intersezione rette A
luogo(A,t)

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