Animación

Borra

a

PI = (3, 3)
parabolahorizontalizq: x = (((-x(PI))) / (y(PI))^(2) * y^(2))
parabolahorizontal: x = (x(PI) / (y(PI))^(2) * y^(2))
O = Intersect(xAxis, yAxis)
α = 3.2288591161895095 rad (slider from 0° to 360°, step 0.017453292519943295)
zpuntorecta: (cos(α), sin(α))
semirrecta = Line(O, zpuntorecta)
E, F = Intersect(parabolahorizontalizq, semirrecta)
B, C = Intersect(parabolahorizontal, semirrecta)
parabolaverticalabajo: y = (((-y(PI))) / (x(PI))^(2) * x^(2))
G, H = Intersect(parabolaverticalabajo, semirrecta)
parabolavertical: y = (y(PI) / (x(PI))^(2) * x^(2))
A, D = Intersect(parabolavertical, semirrecta)
AA = If(α < 180°, A, H)
BB = If(α < 90°, B, If[α < 180°, C, If[α < 270°, F, E]])
a = 2 (slider from -5 to 5, step 0.1)
folium: x^(3) + y^(3) - ((3 * (a * x)) * y) = 0
coef: ((2 * abs(Vector[O, AA])) * abs(Vector[O, BB]) / (abs(Vector[O, AA]) + abs(Vector[O, BB])))
P: (coef * UnitVector[Vector[O, zpuntorecta]])
lugar1 = Locus(P, α)
j = false
PP: P
b = If(α < 180°, true, false)