Posición inicial

Tensar

Suma fuerzas

Mostrar cubierta

Podemos alcanzar 
el mismo resultado 
operando a la inversa: 
en vez de tensar 
los cables, intentar 
alargar lo máximo 
posible las seis barras. 

Partimos de un cuboctaedro. 
Colocamos las barras 
y las estiramos lo máximo 
posible conservando 
la longitud original 
de las aristas (los cables) 
del cuboctaedro. 

c: sqrt(2 / 3)
p = CurveCartesian((sqrt(1 / 2) * cos(t)) - (sqrt(1 / 6) * sin(t)), (sqrt(1 / 2) * cos(t)) + (sqrt(1 / 6) * sin(t)), sqrt(2 / 3), t, ((-pi)) / 3, pi / 3)
A1 = Point(p)
b: y(A1)
a: x(A1)
A2: (0, a, b + c)
A4: (0, (2 * b) - a, b + c)
A3: ((-a), b, c)
A5: (a, b, c - (2 * a) + (2 * b))
A6: (0, a, (-2 * a) + b + c)
A7: ((-a), b, (-2 * a) + c + (2 * b))
A9: (a - b, a + b, (-a) + b + c)
A8: (0, (2 * b) - a, (-2 * a) + b + c)
A10: ((-a) + b, a + b, (-a) + b + c)
A11: (a - b, (-a) + b, (-a) + b + c)
A12: ((-a) + b, (-a) + b, (-a) + b + c)
barrasAzules: {Segment[A2, A6], Segment[A4, A8]}
barrasRojas: {Segment[A1, A3], Segment[A5, A7]}
barrasDoradas: {Segment[A9, A11], Segment[A10, A12]}
anima = -4.36 (slider from -5 to 5)
n = 10 (slider from 10 to 10^(6), step 1)
aristas: {Segment[A1, A2], Segment[A1, A4], Segment[A2, A3], Segment[A3, A4], Segment[A5, A6], Segment[A5, A8], Segment[A6, A7], Segment[A7, A8], Segment[A2, A9], Segment[A2, A10], Segment[A6, A9], Segment[A6, A10], Segment[A4, A11], Segment[A4, A12], Segment[A8, A11], Segment[A8, A12], Segment[A1, A9], Segment[A1, A11], Segment[A5, A9], Segment[A5, A11], Segment[A3, A10], Segment[A3, A12], Segment[A7, A10], Segment[A7, A12]}
texto1: "Longitud de arista: 1
Longitud de barra: " + (barrasAzules(1)) + ""
d = true
suma1: Vector[A1, A2] + Vector[A1, A4] + Vector[A1, A9] + Vector[A1, A11]
e = true
rombosArticulados: {Polygon[A1, A2, A3], Polygon[A1, A3, A4], Polygon[A5, A6, A7], Polygon[A5, A7, A8], Polygon[A2, A9, A6], Polygon[A6, A2, A10], Polygon[A4, A11, A8], Polygon[A8, A4, A12], Polygon[A1, A11, A9], Polygon[A9, A5, A11], Polygon[A12, A7, A10], Polygon[A3, A10, A12]}