Início

Catenária

Elipse

Parábola

$Polígono\\funicular$

B10: (3.5, 3)
B6: (-0.5, 3)
B3: (-3.5, 3)
B1: (-5.5, 3)
B12: B1 + (11, 0)
g = LineBisector(B1, B12)
c = Conic(B1, B12, B3, B10, B6)
l3: {Intersect[c, g]}
B2: (-4.5, 3)
B4: (-2.5, 3)
B5: (-1.5, 3)
B7: (0.5, 3)
B8: (1.5, 3)
B9: (2.5, 3)
B11: (4.5, 3)
puntos: CellRange(B1,B12,"point")
anima = 0 (slider from 0 to 100, step 0.1)
k = 1
r1 = 1.2 (slider from -5 to 5)
vectoresReg = Sequence(Vector[Element[puntos, k], Element[puntos, k + 1]] - (r1 * UnitVector[Element[puntos, k + 1] - Element[puntos, k]]), k, 1, 11)
A1 = 1 (slider from -5 to 5)
A2 = 2 (slider from -5 to 5)
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
l1 = Sequence(Segment[Element[puntos, k], Element[puntos, k + 1]], k, 1, 11)
a = 4.98 (slider from 0 to 20, step 0.01)
n = 3
C1: (k * Element[vectoresReg, A1])
C2: (k * Element[vectoresReg, A2])
C3: (k * Element[vectoresReg, A3])
C4: (k * Element[vectoresReg, A4])
C5: (k * Element[vectoresReg, A5])
C6: (k * Element[vectoresReg, A6])
C7: (k * Element[vectoresReg, A7])
C8: (k * Element[vectoresReg, A8])
C9: (k * Element[vectoresReg, A9])
C10: (k * Element[vectoresReg, A10])
C11: (k * Element[vectoresReg, A11])
f(x) = (a * cosh(x / a)) - (a * cosh(-5.5 / a)) + 3
op4 = false
F: (0, 1.97)
V = If(y(l3(1)) < y(l3(2)), l3(1), l3(2))
F' = Mirror(F, V)
h = OrthogonalLine(F', g)
d = Parabola(F, h)
op2 = false
op3 = false
op1 = true
l2 = Sequence(Vector[(x(Element[puntos, i]), 4.2), (x(Element[puntos, i]), 3.2)], i, 2, 11)
l4 = Sequence(Segment[Element[CellRange(B2,B11,"point"), k], Element[CellRange(B2,B11,"point"), k] - (0, 0.5)], k, 1, 10)
l5 = Sequence(Translate[pesa2, Element[CellRange(B3,B11,"point"), k] - B2], k, 1, 9)
P2: B2 - (0.13, 0.7)