Auxiliares

Catenaria

swrodar

Rodar

Borra

Rastro foco

F

Activar rastro

u: (1, 0)
r_2(x) = x^(2)
r_1(x) = x
rmodder(x) = sqrt((r_1'(x))^(2) + (r_2'(x))^(2))
rlongprim = Integral(rmodder)
a = -3 (slider from tinf to tmax)
v: (1, r_2'(a) / r_1'(a))
α = Angle(u, v)
tinf: -3
rlong(x) = rlongprim(x) - rlongprim(tinf)
P: (r_1(a), r_2(a))
tmax: 3
masX: (-((r_1(a) * cos(α)) + (r_2(a) * sin(α)))) + rlong(a) - rlong(0)
masY: (r_1(a) * sin(α)) - (r_2(a) * cos(α))
rr = CurveCartesian(masX + (r_1(t) * cos(α)) + (r_2(t) * sin(α)), masY - (r_1(t) * sin(α)) + (r_2(t) * cos(α)), t, tinf, tmax)
r = CurveCartesian(r_1(t), r_2(t), t, tinf, tmax)
rlong0: rlongprim(0) - rlongprim(tinf)
P': (masX + (r_1(a) * cos(α)) + (r_2(a) * sin(α)), masY - (r_1(a) * sin(α)) + (r_2(a) * cos(α)))
au = false
ejeX = Line((0, 0), u)
Foco1: (0, 1 / 4)
Foco2: (masX + (x(Foco1) * cos(α)) + (y(Foco1) * sin(α)), masY - (x(Foco1) * sin(α)) + (y(Foco1) * cos(α)))
cat(x) = (1 / 4 * cosh((4 * x)))
ca = false
c_{1} = 0
b = false
Vértice2: (masX, masY)
f = Line(Foco2, Vértice2)
c = false
Foco: Foco2