Geral

Cometa

Quadrado

Losango

Retângulo

Rombóide

Ajuste a tensegridade alterando o comprimento das barras e a tensão nos cabos inferiores. 
Mova o ponto B. O ponto D e as tensões se ajustarão de modo que,
a todo momento, a soma vetorial nos vértices seja nula.

Quando as tensões superiores são simétricas em relação às inferiores,
a tensegridade adquire a forma de um cometa.

Neste caso e nos seguintes, podemos verificar que a uniformidade dos valores das tensões só é 
alcançada quando os cabos formam um paralelogramo, devido à forma como os vetores são somados.

op1 = true
op2 = false
op3 = false
op4 = false
op5 = false
op6 = false
r1 = 8 (slider from 1 to 10, step 1)
r2 = 8 (slider from 1 to 10, step 0.1)
A: (0, 0)
C: A + (r1, 0)
B: (5, -1)
D = (-0.6568542494923797, 4.65685424949238)
barra: Vector[D, B] - (r2 * UnitVector[Vector[D, B]])
s12 = Segment(A, C)
t_{AB} = 1 (slider from 1 to 5, step 0.1)
t_{BC} = 1 (slider from 1 to 5, step 0.1)
anima = 100 (slider from 1 to 100, step 0.1)
s34 = Segment(B, D)
w23: (t_{BC} * (B - C))
w13: (t_{AB} * (B - A))
A23: C + w23
H: (((Vector[A, D] * OrthogonalVector[(t_{AB} * Vector[B])])) / ((Vector[A, D] * OrthogonalVector[C - A])) * Vector[A, C])
E: (((Vector[A, B] * OrthogonalVector[H])) / ((Vector[A, B] * OrthogonalVector[D - A])) * Vector[A, D])
F: (((Vector[C, D] * OrthogonalVector[A23])) / ((Vector[C, D] * OrthogonalVector[C - A])) * Vector[A, C])
G = Intersect(Line[C, D], Line[F, Vector[C, B]])
KBC: (C + B) / 2
KAB: (A + B) / 2
v24 = Vector(C, G)
KAD: (A + D) / 2
KCD: (C + D) / 2
k: 2 / Max[{abs(H), (t_{AB} * abs(B - A)), abs(E), (t_{BC} * abs(B - C)), abs(v24), abs((-E) - v24)}]
textoAB: "" + t_{AB} + ""
textoBC: "" + t_{BC} + ""
s: (-E) - v24 - w13 - w23
textoAD: "" + (abs(E) / abs(A - D)) + ""
textoCD: "" + (abs(v24) / abs(C - D)) + ""
vectores: {Vector[A, A + (k * w13)], Vector[B, B - (k * w13)], Vector[C, C + (k * w23)], Vector[B, B - (k * w23)], Vector[B, B + (k * (w13 + w23))], Vector[D, D - (k * (w13 + w23))], Vector[A, A + (k * E)], Vector[D, D - (k * E)], Vector[C, C + (k * v24)], Vector[D, D - (k * v24)], Vector[A, A - (k * H)], Vector[C, C + (k * H)]}
cables: {Polygon[A, B, C, D]}
KBD: D - (D - B) / 4
textoBD: "" + ((" - " * abs((-E) - v24) / abs(B - D))) + ""
textoAC: "" + ((" - " * abs(H) / abs(A - C))) + ""