A'

Posición inicial (prisma recto)

Tensar

B'

C'

Esta es una de las tensegridades
 más sencillas. Parte de un prisma 
recto cuyas bases son triángulos 
equiláteros. 

En sus aristas laterales 
colocamos barras y 
en el resto cables. 

Al tensar los cables,
la tensegridad 
se alcanza cuando 
una de las bases
gira exactamente 150º
con respecto a la otra.

Caras laterales

n = 10 (slider from 10 to 10^(6))
radio = 3 (slider from 1 to 5, step 0.1)
O: (0, 0, 0)
c = Circle(O, radio, zAxis)
A = Point(c)
B = Rotate(A, 120°, O)
C = Rotate(A, -120°, O)
barra = 8 (slider from 1 to 15, step 0.1)
b, d, e = Cylinder(c, 30)
A' = PointIn(e)
B' = Rotate(A', 120°, zAxis)
C' = Rotate(A', -120°, zAxis)
tendonesTriángulos: {Segment[A, B], Segment[B, C], Segment[C, A], Segment[A', B'], Segment[B', C'], Segment[C', A']}
ajustaBarra: Vector[A', A] - (barra * UnitVector[Vector[A', A]])
anima = 49 (slider from 0 to 100, step 0.1)
tendonesLaterales: {Segment[A, C'], Segment[B, A'], Segment[C, B']}
k: 1 / n
barras: {Segment[A, A'], Segment[B, B'], Segment[C, C']}
A'': (x(A'), y(A'), 0)
α = Angle(A, O, A'')
l1: {Segment[O, A''], Segment[O, A]}
B'': (x(B'), y(B'), 0)
C'': (x(C'), y(C'), 0)
l2: {Segment[A, A''], Segment[B, B''], Segment[C, C'']}
vA': Vector[A', B] / 3
vB': Vector[B', C] / 3
vC': Vector[C', A] / 3
l3: {Segment[A'', B''], Segment[B'', C''], Segment[C'', A'']}
texto2: "α = " + α + ""
l5: {Polygon[B, B', A']}
l4: {Polygon[B, B', C]}
l6: {Polygon[B, A, A']}
l7: {Polygon[C', B', C]}
l8: {Polygon[A, C', A']}
l9: {Polygon[A, C', C]}
a = false