Author: Rafael Losada Liste

Sin perspectiva

X

Y

Z

24 C

Vértices

32 A

Ejes

Proyección

Sólo sombra

Grafo

B

A

C

D

D'

C'

A'

B'

Rayos luz

Cadena

C1

C2

C3

C7

C6

C4

C5

C8

Centro desplazable

Vértices sección

Diagonal principal

A

D'

F

C'

B

E

H'

G'

H

E'

G

B'

C

D

A'

F'

B

A

A'

B'

A

A'

A

O = (10.376874980000002, -6.657347000000001)
Escala = 2 (slider from 1 to 5, step 0.1)
M_3 = (0, 1)
U_1 = (1, 0)
O_r = (0, 0)
mira2 = Ellipse(O_r - (0.0, 0.95), O_r + (0.0, 0.95), 1.0)
B = Point(mira2)
θ = Angle(M_3, O_r, B)
k: (0.0, cos(θ)) * Escala
mira1 = Ellipse(O_r - (0.95, 0.0), O_r + (0.95, 0.0), 1.0)
A = Point(mira1)
φ = Angle(U_1, O_r, A)
i: (sin(φ), -cos(φ) * sin(θ)) * Escala
j: (cos(φ), sin(φ) * sin(θ)) * Escala
W3: O + i - j + k
W2: O + i + j + k
t = 0 (slider from 0 to 4, step 0.0010)
tt = If(t > 2.0, t - 2.0, t)
tt1 = If(tt < 1.0, tt, 1.0)
tt2 = If(tt ≥ 1.0, tt - 1.0, 0.0)
W1: O + i + j - k
tetraLW: {1.0, -1.0, 1.0}
P = (-1.186586819999998, -9.0409018)
BM = (-0.24887, 0.60393)
AM = (0.97427, -0.07038)
x0 = 3
φ2 = Angle(U_1, O_r, AM)
y0: (x(P - O) / Escala - x0 * sin(φ2)) / cos(φ2)
θ2 = Angle(M_3, O_r, BM)
z0: (y(P - O) / Escala + x0 * cos(φ2) * sin(θ2) - (x(P - O) / Escala - x0 * sin(φ2)) * tan(φ2) * sin(θ2)) / cos(θ2)
MM2: {{sin(φ2), -cos(φ2) * sin(θ2), 0.0}, {cos(φ2), sin(φ2) * sin(θ2), 0.0}, {0.0, cos(θ2), 1.0}}
MM1: {{sin(φ), -cos(φ) * sin(θ), 0.0}, {cos(φ), sin(φ) * sin(θ), 0.0}, {0.0, cos(θ), 1.0}}
MM': MM2 * Invert[MM1]
M = Join({{x0, y0, z0}} * MM')
tetraMW0: 1.0 - acos((Element[M, 1.0] * Element[tetraLW, 1.0] + Element[M, 2.0] * Element[tetraLW, 2.0] + Element[M, 3.0] * Element[tetraLW, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraLW, 1.0]^(2.0) + Element[tetraLW, 2.0]^(2.0) + Element[tetraLW, 3.0]^(2.0)))) / 3.141592653589793
iguales = false
hh = If(iguales, 1.0, 0.5 + cos(φ)^(2.0))
LV0204: {0.0, -1.0, -1.0}
q3 = 0 (slider from -1 to 4, step 0.1)
gg = If(iguales, hh, 2.0 - hh)
g3: 2.0 * q3 * cos(φ)
q2 = 1 (slider from -1 to 4, step 0.1)
g2: 2.0 * q2 * cos(φ)
q1 = 2 (slider from -1 to 4, step 0.1)
g1: 2.0 * q1 * cos(φ)
LV0216: {g1 - gg - hh, g2 - gg - hh, g3 - gg - hh}
V3: O + hh * i - hh * j + hh * k
OO: O + g1 * i + g2 * j + g3 * k
V15: OO + (-(i) - j + k) * gg
V10: OO + (i + j + k) * gg
MM: MM1 * Invert[MM2]
h3j: g2 / gg
h3k: g3 / gg
h3i: g1 / gg
h: (sin(φ) - cos(φ), sin(φ)) * Escala
V1: O + hh * i + hh * j - hh * k
V8: O - hh * i - hh * j - hh * k
V7: O - hh * i - hh * j + hh * k
V6: O - hh * i + hh * j - hh * k
V5: O - hh * i + hh * j + hh * k
V4: O + hh * i - hh * j - hh * k
V2: O + hh * i + hh * j + hh * k
d = 3.04 (slider from 2 to 10, step 0.01)
k2: (0.0, cos(θ2)) * Escala
j2: (cos(φ2), sin(φ2) * sin(θ2)) * Escala
i2: (sin(φ2), -cos(φ2) * sin(θ2)) * Escala
d11: sqrt(x0^(2.0) + y0^(2.0) + z0^(2.0))
MV1 = Join({{1.0, 1.0, -1.0} * hh} * MM)
C: O - d * (x0 * i2 + y0 * j2 + z0 * k2) / d11
xCV1: (x0 * d * d11 - Element[MV1, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV1, 2.0] * y0 + Element[MV1, 3.0] * z0)) / (x0 * (Element[MV1, 1.0] - x0) + y0 * (Element[MV1, 2.0] - y0) + z0 * (Element[MV1, 3.0] - z0))
yCV1: (Element[MV1, 2.0] - y0) / (Element[MV1, 1.0] - x0) * (xCV1 - x0) + y0
zCV1: (Element[MV1, 3.0] - z0) / (Element[MV1, 1.0] - x0) * (xCV1 - x0) + z0
fi = 1.618033988749895
MV8 = Join({{-1.0, -1.0, -1.0} * hh} * MM)
r = 0.8 (slider from 0 to 2, step 0.01)
xCV8: (x0 * d * d11 - Element[MV8, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV8, 2.0] * y0 + Element[MV8, 3.0] * z0)) / (x0 * (Element[MV8, 1.0] - x0) + y0 * (Element[MV8, 2.0] - y0) + z0 * (Element[MV8, 3.0] - z0))
zCV8: (Element[MV8, 3.0] - z0) / (Element[MV8, 1.0] - x0) * (xCV8 - x0) + z0
MV7 = Join({{-1.0, -1.0, 1.0} * hh} * MM)
yCV8: (Element[MV8, 2.0] - y0) / (Element[MV8, 1.0] - x0) * (xCV8 - x0) + y0
xCV7: (x0 * d * d11 - Element[MV7, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV7, 2.0] * y0 + Element[MV7, 3.0] * z0)) / (x0 * (Element[MV7, 1.0] - x0) + y0 * (Element[MV7, 2.0] - y0) + z0 * (Element[MV7, 3.0] - z0))
zCV7: (Element[MV7, 3.0] - z0) / (Element[MV7, 1.0] - x0) * (xCV7 - x0) + z0
MV6 = Join({{-1.0, 1.0, -1.0} * hh} * MM)
yCV7: (Element[MV7, 2.0] - y0) / (Element[MV7, 1.0] - x0) * (xCV7 - x0) + y0
xCV6: (x0 * d * d11 - Element[MV6, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV6, 2.0] * y0 + Element[MV6, 3.0] * z0)) / (x0 * (Element[MV6, 1.0] - x0) + y0 * (Element[MV6, 2.0] - y0) + z0 * (Element[MV6, 3.0] - z0))
zCV6: (Element[MV6, 3.0] - z0) / (Element[MV6, 1.0] - x0) * (xCV6 - x0) + z0
MV5 = Join({{-1.0, 1.0, 1.0} * hh} * MM)
yCV6: (Element[MV6, 2.0] - y0) / (Element[MV6, 1.0] - x0) * (xCV6 - x0) + y0
xCV5: (x0 * d * d11 - Element[MV5, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV5, 2.0] * y0 + Element[MV5, 3.0] * z0)) / (x0 * (Element[MV5, 1.0] - x0) + y0 * (Element[MV5, 2.0] - y0) + z0 * (Element[MV5, 3.0] - z0))
zCV5: (Element[MV5, 3.0] - z0) / (Element[MV5, 1.0] - x0) * (xCV5 - x0) + z0
MV4 = Join({{1.0, -1.0, -1.0} * hh} * MM)
yCV5: (Element[MV5, 2.0] - y0) / (Element[MV5, 1.0] - x0) * (xCV5 - x0) + y0
xCV4: (x0 * d * d11 - Element[MV4, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV4, 2.0] * y0 + Element[MV4, 3.0] * z0)) / (x0 * (Element[MV4, 1.0] - x0) + y0 * (Element[MV4, 2.0] - y0) + z0 * (Element[MV4, 3.0] - z0))
zCV4: (Element[MV4, 3.0] - z0) / (Element[MV4, 1.0] - x0) * (xCV4 - x0) + z0
MV2 = Join({{1.0, 1.0, 1.0} * hh} * MM)
yCV4: (Element[MV4, 2.0] - y0) / (Element[MV4, 1.0] - x0) * (xCV4 - x0) + y0
xCV2: (x0 * d * d11 - Element[MV2, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV2, 2.0] * y0 + Element[MV2, 3.0] * z0)) / (x0 * (Element[MV2, 1.0] - x0) + y0 * (Element[MV2, 2.0] - y0) + z0 * (Element[MV2, 3.0] - z0))
zCV2: (Element[MV2, 3.0] - z0) / (Element[MV2, 1.0] - x0) * (xCV2 - x0) + z0
MV3 = Join({{1.0, -1.0, 1.0} * hh} * MM)
yCV2: (Element[MV2, 2.0] - y0) / (Element[MV2, 1.0] - x0) * (xCV2 - x0) + y0
xCV3: (x0 * d * d11 - Element[MV3, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV3, 2.0] * y0 + Element[MV3, 3.0] * z0)) / (x0 * (Element[MV3, 1.0] - x0) + y0 * (Element[MV3, 2.0] - y0) + z0 * (Element[MV3, 3.0] - z0))
zCV3: (Element[MV3, 3.0] - z0) / (Element[MV3, 1.0] - x0) * (xCV3 - x0) + z0
yCV3: (Element[MV3, 2.0] - y0) / (Element[MV3, 1.0] - x0) * (xCV3 - x0) + y0
CV6: O + xCV6 * i2 + yCV6 * j2 + zCV6 * k2
CV7: O + xCV7 * i2 + yCV7 * j2 + zCV7 * k2
r_{13} = Segment(CV7, CV6)
u = Vector(O_r, O)
yz: Escala * cos(θ)
a11: y0^(2.0) + z0^(2.0) + 2.0 * x0
b11: x0^(2.0) + y0^(2.0) + z0^(2.0)
H = (-1, -5)
I = (1, -5)
Mira1, Mira2, Mira3, Mira4 = Intersect(mira1, mira2)
c = Circle(O, Escala)
b = Line(O, yAxis)
k_{13} = Segment(Mira3, Mira2)
l = Segment((-1.0, 0.0), U_1)
m = Segment((0.0, -1.0), M_3)
cub1Ang = Angle(V3, V2, V4)
cub3Ang = Angle(V6, V2, V5)
cub5Ang = Angle(V5, V7, V6)
cub6Ang = Angle(V4, V7, V3)
cub2Ang = Angle(V5, V2, V7)
cub4Ang = Angle(V4, V1, V8)
cubo1A1 = Segment(V1, V2)
cubo1A2 = Segment(V2, V3)
cubo1A3 = Segment(V3, V4)
cubo1A4 = Segment(V4, V1)
cubo1A5 = Segment(V1, V6)
cubo1A6 = Segment(V6, V8)
cubo1A7 = Segment(V8, V4)
cubo1A8 = Segment(V2, V5)
cubo1A9 = Segment(V5, V7)
cubo1A10 = Segment(V7, V3)
cubo1A11 = Segment(V6, V5)
cubo1A12 = Segment(V7, V8)
caras = true
vertices = true
aristas = true
verEjes = false
C_1 = (-1, -2)
D = (1, -2)
E = (1, -4)
F = (-1, -4)
CV3: O + xCV3 * i2 + yCV3 * j2 + zCV3 * k2
CV2: O + xCV2 * i2 + yCV2 * j2 + zCV2 * k2
CV1: O + xCV1 * i2 + yCV1 * j2 + zCV1 * k2
CV4: O + xCV4 * i2 + yCV4 * j2 + zCV4 * k2
CV5: O + xCV5 * i2 + yCV5 * j2 + zCV5 * k2
CV8: O + xCV8 * i2 + yCV8 * j2 + zCV8 * k2
rayo3 = Segment(P, CV3)
rayo2 = Segment(P, CV2)
rayo5 = Segment(P, CV5)
rayo7 = Segment(P, CV7)
rayo4 = Segment(P, CV4)
rayo8 = Segment(P, CV8)
rayo6 = Segment(P, CV6)
rayo1 = Segment(P, CV1)
proyecta = true
f = Segment(CV3, CV5)
h1 = Segment(CV7, CV2)
d_{13} = Segment(CV3, CV8)
i_{13} = Segment(CV7, CV4)
n = Segment(CV2, CV6)
p = Segment(CV5, CV1)
q_2 = Segment(CV8, CV5)
k_1 = Segment(CV3, CV1)
l_1 = Segment(CV4, CV2)
m_1 = Segment(CV8, CV1)
n_1 = Segment(CV6, CV4)
solo = false
grafo = false
papelAncho = 18.7
papelAlto = 18.7
T = (3.5, 1.2)
lista1: {Polygon[T, T + (papelAncho, 0.0), T + (papelAncho, -(papelAlto)), T + (0.0, -(papelAlto))]}
B1 = 12.277276780000003 (slider from 3.5 to 22.2, step 0.01)
B2_1 = 18.848157580000002 (slider from 3.5 to 22.2, step 0.01)
B3_1 = 5.319873580000002 (slider from 3.5 to 22.2, step 0.01)
B4 = 11.987384980000002 (slider from 3.5 to 22.2, step 0.01)
B5 = 18.97699838 (slider from 3.5 to 22.2, step 0.01)
B6 = 5.223242980000002 (slider from 3.5 to 22.2, step 0.01)
B7 = 7.091434580000002 (slider from 3.5 to 22.2, step 0.01)
B8 = 17.108806780000002 (slider from 3.5 to 22.2, step 0.01)
B9 = 7.220275380000002 (slider from 3.5 to 22.2, step 0.01)
B10 = 17.076596580000004 (slider from 3.5 to 22.2, step 0.01)
B11 = 6.221759180000002 (slider from 3.5 to 22.2, step 0.01)
B12 = 19.009208580000003 (slider from 3.5 to 22.2, step 0.01)
B13 = 6.286179580000002 (slider from 3.5 to 22.2, step 0.01)
B14 = 19.041418780000004 (slider from 3.5 to 22.2, step 0.01)
B15 = 10.183613780000002 (slider from 3.5 to 22.2, step 0.01)
B16 = 15.047353980000002 (slider from 3.5 to 22.2, step 0.01)
B17 = 10.151403580000002 (slider from 3.5 to 22.2, step 0.01)
B18 = 15.079564180000002 (slider from 3.5 to 22.2, step 0.01)
B19 = 7.639007980000002 (slider from 3.5 to 22.2, step 0.01)
B20 = 5.223242980000002 (slider from 3.5 to 22.2, step 0.01)
B21 = 14.854092780000002 (slider from 3.5 to 22.2, step 0.01)
B22 = 17.237647580000004 (slider from 3.5 to 22.2, step 0.01)
B23 = 9.056256780000002 (slider from 3.5 to 22.2, step 0.01)
B24 = 5.191032780000002 (slider from 3.5 to 22.2, step 0.01)
B25 = 18.944788180000003 (slider from 3.5 to 22.2, step 0.01)
B26 = 18.97699838 (slider from 3.5 to 22.2, step 0.01)
B27 = 18.944788180000003 (slider from 3.5 to 22.2, step 0.01)
B28 = 10.505715780000003 (slider from 3.5 to 22.2, step 0.01)
B29 = 9.925932180000002 (slider from 3.5 to 22.2, step 0.01)
B30 = 12.373907380000002 (slider from 3.5 to 22.2, step 0.01)
B31 = 5.255453180000003 (slider from 3.5 to 22.2, step 0.01)
B32 = 11.987384980000002 (slider from 3.5 to 22.2, step 0.01)
B33 = 5.223242980000002 (slider from 3.5 to 22.2, step 0.01)
B34 = 6.543861180000002 (slider from 3.5 to 22.2, step 0.01)
B35 = 7.606797780000003 (slider from 3.5 to 22.2, step 0.01)
B36 = 18.912577980000002 (slider from 3.5 to 22.2, step 0.01)
B37 = 16.529023180000003 (slider from 3.5 to 22.2, step 0.01)
B38 = 14.306519380000003 (slider from 3.5 to 22.2, step 0.01)
B39 = 11.987384980000002 (slider from 3.5 to 22.2, step 0.01)
B40 = 8.862995580000002 (slider from 3.5 to 22.2, step 0.01)
B41 = 18.944788180000003 (slider from 3.5 to 22.2, step 0.01)
B42 = 5.223242980000002 (slider from 3.5 to 22.2, step 0.01)
B43 = 15.433876380000003 (slider from 3.5 to 22.2, step 0.01)
B44 = 5.287663380000002 (slider from 3.5 to 22.2, step 0.01)
B45 = 5.3842939800000025 (slider from 3.5 to 22.2, step 0.01)
B46 = 8.379842580000002 (slider from 3.5 to 22.2, step 0.01)
B47 = 18.848157580000002 (slider from 3.5 to 22.2, step 0.01)
B48 = 18.944788180000003 (slider from 3.5 to 22.2, step 0.01)
B49 = 16.11029058 (slider from 3.5 to 22.2, step 0.01)
B50 = 12.309486980000003 (slider from 3.5 to 22.2, step 0.01)
D1 = -15.9660948 (slider from -17.5 to 1.2, step 0.01)
D2 = -3.9516902 (slider from -17.5 to 1.2, step 0.01)
D3 = -12.068660600000001 (slider from -17.5 to 1.2, step 0.01)
D4 = -0.08646619999999988 (slider from -17.5 to 1.2, step 0.01)
D5 = -11.875399400000001 (slider from -17.5 to 1.2, step 0.01)
D6 = -4.1771616 (slider from -17.5 to 1.2, step 0.01)
D7 = -4.1771616 (slider from -17.5 to 1.2, step 0.01)
D8 = -3.9839004 (slider from -17.5 to 1.2, step 0.01)
D9 = -12.0042402 (slider from -17.5 to 1.2, step 0.01)
D10 = -11.9076096 (slider from -17.5 to 1.2, step 0.01)
D11 = -1.0849824 (slider from -17.5 to 1.2, step 0.01)
D12 = -1.1171925999999999 (slider from -17.5 to 1.2, step 0.01)
D13 = -13.7758012 (slider from -17.5 to 1.2, step 0.01)
D14 = -13.8402216 (slider from -17.5 to 1.2, step 0.01)
D15 = -5.0790472 (slider from -17.5 to 1.2, step 0.01)
D16 = -5.046837 (slider from -17.5 to 1.2, step 0.01)
D17 = -9.846156800000001 (slider from -17.5 to 1.2, step 0.01)
D18 = -9.846156800000001 (slider from -17.5 to 1.2, step 0.01)
D19 = -13.3570686 (slider from -17.5 to 1.2, step 0.01)
D20 = -11.875399400000001 (slider from -17.5 to 1.2, step 0.01)
D21 = -14.4522154 (slider from -17.5 to 1.2, step 0.01)
D22 = -13.0671768 (slider from -17.5 to 1.2, step 0.01)
D23 = -1.8902374 (slider from -17.5 to 1.2, step 0.01)
D24 = -4.1771616 (slider from -17.5 to 1.2, step 0.01)
D25 = -6.5929266 (slider from -17.5 to 1.2, step 0.01)
D26 = -9.4918446 (slider from -17.5 to 1.2, step 0.01)
D27 = -3.8872698 (slider from -17.5 to 1.2, step 0.01)
D28 = -0.9883517999999999 (slider from -17.5 to 1.2, step 0.01)
D29 = -14.709897 (slider from -17.5 to 1.2, step 0.01)
D30 = -15.9660948 (slider from -17.5 to 1.2, step 0.01)
D31 = -9.9105772 (slider from -17.5 to 1.2, step 0.01)
D32 = -0.08646619999999988 (slider from -17.5 to 1.2, step 0.01)
D33 = -6.818398 (slider from -17.5 to 1.2, step 0.01)
D34 = -3.3396964000000002 (slider from -17.5 to 1.2, step 0.01)
D35 = -2.6954924 (slider from -17.5 to 1.2, step 0.01)
D36 = -11.810979 (slider from -17.5 to 1.2, step 0.01)
D37 = -2.6632822 (slider from -17.5 to 1.2, step 0.01)
D38 = -1.3748741999999998 (slider from -17.5 to 1.2, step 0.01)
D39 = -0.022045799999999876 (slider from -17.5 to 1.2, step 0.01)
D40 = -1.9868679999999999 (slider from -17.5 to 1.2, step 0.01)
D41 = -8.0101754 (slider from -17.5 to 1.2, step 0.01)
D42 = -4.2737922 (slider from -17.5 to 1.2, step 0.01)
D43 = -2.0190782 (slider from -17.5 to 1.2, step 0.01)
D44 = -7.9135448 (slider from -17.5 to 1.2, step 0.01)
D45 = -12.133081 (slider from -17.5 to 1.2, step 0.01)
D46 = -13.7758012 (slider from -17.5 to 1.2, step 0.01)
D47 = -3.9516902 (slider from -17.5 to 1.2, step 0.01)
D48 = -11.7465586 (slider from -17.5 to 1.2, step 0.01)
D49 = -13.58254 (slider from -17.5 to 1.2, step 0.01)
D50 = -15.9660948 (slider from -17.5 to 1.2, step 0.01)
E11: (B11, D11)
E12: (B12, D12)
E13: (B13, D13)
E14: (B14, D14)
E15: (B15, D15)
E16: (B16, D16)
E17: (B17, D17)
E18: (B18, D18)
a_9 = Segment(E11, E12)
b_9 = Segment(E12, E14)
c_9 = Segment(E14, E13)
d_9 = Segment(E11, E13)
e_9 = Segment(E15, E17)
f_9 = Segment(E17, E18)
g_9 = Segment(E16, E18)
h_9 = Segment(E16, E15)
i_9 = Segment(E11, E15)
j_9 = Segment(E12, E16)
k_9 = Segment(E18, E14)
l_9 = Segment(E17, E13)
C1: C + (z0 * i2 + z0 * j2 - (x0 + y0) * k2) * d11 * r / sqrt(2.0 * z0^(2.0) + (x0 + y0)^(2.0)) * Escala
C2: C - (z0 * i2 + z0 * j2 - (x0 + y0) * k2) * d11 * r / sqrt(2.0 * z0^(2.0) + (x0 + y0)^(2.0)) * Escala
C3: C + (x0 * j2 + x0 * k2 - (z0 + y0) * i2) * d11 * r / sqrt(2.0 * x0^(2.0) + (z0 + y0)^(2.0)) * Escala
C4: C - (x0 * j2 + x0 * k2 - (z0 + y0) * i2) * d11 * r / sqrt(2.0 * x0^(2.0) + (z0 + y0)^(2.0)) * Escala
C5: C + (y0 * i2 + y0 * k2 - (z0 + x0) * j2) * d11 * r / sqrt(2.0 * y0^(2.0) + (x0 + z0)^(2.0)) * Escala
luz = Conic(C1, C2, C3, C4, C5)
a = Line(O, j)
g = Line(O, i)
j_{13} = Line(O, k)
xyzP: O + x0 * i2 + y0 * j2 + z0 * k2
luz1 = Dilate(luz, 0.05, P)
luz2 = Dilate(luz, 0.045, P)
luz3 = Dilate(luz, 0.04, P)
luz4 = Dilate(luz, 0.035, P)
luz5 = Dilate(luz, 0.03, P)
luz6 = Dilate(luz, 0.025, P)
luz7 = Dilate(luz, 0.02, P)
luz8 = Dilate(luz, 0.015, P)
luz9 = Dilate(luz, 0.01, P)
luz10 = Dilate(luz, 0.0050, P)
CC1: x0 * xCV1 + y0 * yCV1 + z0 * zCV1 + d * d11
CC2: x0 * (xCV1 + d * x0 / d11) + y0 * (yCV1 + d * y0 / d11) + z0 * (zCV1 + d * z0 / d11)
linea29 = Segment(CV7, CV3)
linea05 = Segment(CV7, CV5)
linea14 = Segment(CV5, CV2)
linea16 = Segment(CV3, CV2)
linea31 = Segment(CV7, CV8)
linea0304 = Segment(CV3, CV4)
linea0506 = Segment(CV5, CV6)
linea08 = Segment(CV2, CV1)
linea10 = Segment(CV8, CV6)
linea12 = Segment(CV6, CV1)
linea18 = Segment(CV1, CV4)
linea19 = Segment(CV8, CV4)
rayos = false
cadena = true
B_2 = (0.681604780000002, 0.010164400000000127)
C_2 = (2.453165780000002, -1.825817)
n_{14} = Segment(B_2, C_2)
D_2 = (0.16624158000000203, -2.8887536)
E_2 = (2.1632739800000023, -4.2093718)
p_{14} = Segment(D_2, E_2)
F_2 = (-0.027019619999997996, -5.2723084)
G_2 = (2.420955580000002, -6.2708246)
q_{14} = Segment(F_2, G_2)
H_2 = (-0.284701219999998, -8.2034366)
I_2 = (2.098853580000002, -9.169742600000001)
r_{14} = Segment(H_2, I_2)
s_{14} = Segment(C_2, D_2)
t_{14} = Segment(E_2, F_2)
a_{15} = Segment(G_2, H_2)
J_2 = (1.8411719800000022, -11.4566668)
b_{15} = Segment(I_2, J_2)
cuboL1: {1.0, 0.0, 0.0}
cuboL5: {-1.0, 0.0, 0.0}
cuboL3: {0.0, 1.0, 0.0}
cuboL6: {0.0, -1.0, 0.0}
cuboL2: {0.0, 0.0, 1.0}
cuboL4: {0.0, 0.0, -1.0}
cuboM1: 1.0 - acos((Element[M, 1.0] * Element[cuboL1, 1.0] + Element[M, 2.0] * Element[cuboL1, 2.0] + Element[M, 3.0] * Element[cuboL1, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL1, 1.0]^(2.0) + Element[cuboL1, 2.0]^(2.0) + Element[cuboL1, 3.0]^(2.0)))) / 3.141592653589793
cuboM2: 1.0 - acos((Element[M, 1.0] * Element[cuboL2, 1.0] + Element[M, 2.0] * Element[cuboL2, 2.0] + Element[M, 3.0] * Element[cuboL2, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL2, 1.0]^(2.0) + Element[cuboL2, 2.0]^(2.0) + Element[cuboL2, 3.0]^(2.0)))) / 3.141592653589793
cuboM3: 1.0 - acos((Element[M, 1.0] * Element[cuboL3, 1.0] + Element[M, 2.0] * Element[cuboL3, 2.0] + Element[M, 3.0] * Element[cuboL3, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL3, 1.0]^(2.0) + Element[cuboL3, 2.0]^(2.0) + Element[cuboL3, 3.0]^(2.0)))) / 3.141592653589793
cuboM4: 1.0 - acos((Element[M, 1.0] * Element[cuboL4, 1.0] + Element[M, 2.0] * Element[cuboL4, 2.0] + Element[M, 3.0] * Element[cuboL4, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL4, 1.0]^(2.0) + Element[cuboL4, 2.0]^(2.0) + Element[cuboL4, 3.0]^(2.0)))) / 3.141592653589793
cuboM5: 1.0 - acos((Element[M, 1.0] * Element[cuboL5, 1.0] + Element[M, 2.0] * Element[cuboL5, 2.0] + Element[M, 3.0] * Element[cuboL5, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL5, 1.0]^(2.0) + Element[cuboL5, 2.0]^(2.0) + Element[cuboL5, 3.0]^(2.0)))) / 3.141592653589793
cuboM6: 1.0 - acos((Element[M, 1.0] * Element[cuboL6, 1.0] + Element[M, 2.0] * Element[cuboL6, 2.0] + Element[M, 3.0] * Element[cuboL6, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL6, 1.0]^(2.0) + Element[cuboL6, 2.0]^(2.0) + Element[cuboL6, 3.0]^(2.0)))) / 3.141592653589793
V11: OO + (i - j + k) * gg
V12: OO + (i - j - k) * gg
V13: OO + (-(i) + j + k) * gg
V14: OO + (-(i) + j - k) * gg
V16: OO + (-(i) - j - k) * gg
V9: OO + (i + j - k) * gg
cubo2A13 = Segment(V9, V10)
cubo2A22 = Segment(V15, V11)
cubo2A23 = Segment(V14, V13)
cubo2A24 = Segment(V15, V16)
cubo2A14 = Segment(V10, V11)
cubo2A15 = Segment(V11, V12)
cubo2A16 = Segment(V12, V9)
cubo2A17 = Segment(V9, V14)
cubo2A18 = Segment(V14, V16)
cubo2A19 = Segment(V16, V12)
cubo2A20 = Segment(V10, V13)
cubo2A21 = Segment(V13, V15)
cubo3A25 = Segment(V1, V9)
cubo3A26 = Segment(V2, V10)
cubo3A27 = Segment(V3, V11)
cubo3A28 = Segment(V4, V12)
cubo4A30 = Segment(V6, V14)
cubo4A29 = Segment(V5, V13)
cubo4A31 = Segment(V7, V15)
cubo4A32 = Segment(V8, V16)
xCV0: x0 * d * d11 / (x0 * (-(x0)) + y0 * (-(y0)) + z0 * (-(z0)))
yCV0: -(y0) / (-(x0)) * (xCV0 - x0) + y0
zCV0: -(z0) / (-(x0)) * (xCV0 - x0) + z0
MV10 = Join({{1.0 + h3i, 1.0 + h3j, 1.0 + h3k} * gg} * MM)
MV9 = Join({{1.0 + h3i, 1.0 + h3j, -1.0 + h3k} * gg} * MM)
MV11 = Join({{1.0 + h3i, -1.0 + h3j, 1.0 + h3k} * gg} * MM)
MV12 = Join({{1.0 + h3i, -1.0 + h3j, -1.0 + h3k} * gg} * MM)
MV13 = Join({{-1.0 + h3i, 1.0 + h3j, 1.0 + h3k} * gg} * MM)
MV14 = Join({{-1.0 + h3i, 1.0 + h3j, -1.0 + h3k} * gg} * MM)
MV15 = Join({{-1.0 + h3i, -1.0 + h3j, 1.0 + h3k} * gg} * MM)
MV16 = Join({{-1.0 + h3i, -1.0 + h3j, -1.0 + h3k} * gg} * MM)
xCV9: (x0 * d * d11 - Element[MV9, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV9, 2.0] * y0 + Element[MV9, 3.0] * z0)) / (x0 * (Element[MV9, 1.0] - x0) + y0 * (Element[MV9, 2.0] - y0) + z0 * (Element[MV9, 3.0] - z0))
xCV10: (x0 * d * d11 - Element[MV10, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV10, 2.0] * y0 + Element[MV10, 3.0] * z0)) / (x0 * (Element[MV10, 1.0] - x0) + y0 * (Element[MV10, 2.0] - y0) + z0 * (Element[MV10, 3.0] - z0))
xCV11: (x0 * d * d11 - Element[MV11, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV11, 2.0] * y0 + Element[MV11, 3.0] * z0)) / (x0 * (Element[MV11, 1.0] - x0) + y0 * (Element[MV11, 2.0] - y0) + z0 * (Element[MV11, 3.0] - z0))
xCV12: (x0 * d * d11 - Element[MV12, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV12, 2.0] * y0 + Element[MV12, 3.0] * z0)) / (x0 * (Element[MV12, 1.0] - x0) + y0 * (Element[MV12, 2.0] - y0) + z0 * (Element[MV12, 3.0] - z0))
xCV13: (x0 * d * d11 - Element[MV13, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV13, 2.0] * y0 + Element[MV13, 3.0] * z0)) / (x0 * (Element[MV13, 1.0] - x0) + y0 * (Element[MV13, 2.0] - y0) + z0 * (Element[MV13, 3.0] - z0))
xCV14: (x0 * d * d11 - Element[MV14, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV14, 2.0] * y0 + Element[MV14, 3.0] * z0)) / (x0 * (Element[MV14, 1.0] - x0) + y0 * (Element[MV14, 2.0] - y0) + z0 * (Element[MV14, 3.0] - z0))
xCV15: (x0 * d * d11 - Element[MV15, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV15, 2.0] * y0 + Element[MV15, 3.0] * z0)) / (x0 * (Element[MV15, 1.0] - x0) + y0 * (Element[MV15, 2.0] - y0) + z0 * (Element[MV15, 3.0] - z0))
xCV16: (x0 * d * d11 - Element[MV16, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MV16, 2.0] * y0 + Element[MV16, 3.0] * z0)) / (x0 * (Element[MV16, 1.0] - x0) + y0 * (Element[MV16, 2.0] - y0) + z0 * (Element[MV16, 3.0] - z0))
yCV9: (Element[MV9, 2.0] - y0) / (Element[MV9, 1.0] - x0) * (xCV9 - x0) + y0
yCV10: (Element[MV10, 2.0] - y0) / (Element[MV10, 1.0] - x0) * (xCV10 - x0) + y0
yCV11: (Element[MV11, 2.0] - y0) / (Element[MV11, 1.0] - x0) * (xCV11 - x0) + y0
yCV12: (Element[MV12, 2.0] - y0) / (Element[MV12, 1.0] - x0) * (xCV12 - x0) + y0
yCV13: (Element[MV13, 2.0] - y0) / (Element[MV13, 1.0] - x0) * (xCV13 - x0) + y0
yCV14: (Element[MV14, 2.0] - y0) / (Element[MV14, 1.0] - x0) * (xCV14 - x0) + y0
yCV15: (Element[MV15, 2.0] - y0) / (Element[MV15, 1.0] - x0) * (xCV15 - x0) + y0
yCV16: (Element[MV16, 2.0] - y0) / (Element[MV16, 1.0] - x0) * (xCV16 - x0) + y0
zCV9: (Element[MV9, 3.0] - z0) / (Element[MV9, 1.0] - x0) * (xCV9 - x0) + z0
zCV10: (Element[MV10, 3.0] - z0) / (Element[MV10, 1.0] - x0) * (xCV10 - x0) + z0
zCV11: (Element[MV11, 3.0] - z0) / (Element[MV11, 1.0] - x0) * (xCV11 - x0) + z0
zCV12: (Element[MV12, 3.0] - z0) / (Element[MV12, 1.0] - x0) * (xCV12 - x0) + z0
zCV13: (Element[MV13, 3.0] - z0) / (Element[MV13, 1.0] - x0) * (xCV13 - x0) + z0
zCV14: (Element[MV14, 3.0] - z0) / (Element[MV14, 1.0] - x0) * (xCV14 - x0) + z0
zCV15: (Element[MV15, 3.0] - z0) / (Element[MV15, 1.0] - x0) * (xCV15 - x0) + z0
zCV16: (Element[MV16, 3.0] - z0) / (Element[MV16, 1.0] - x0) * (xCV16 - x0) + z0
CV9: O + xCV9 * i2 + yCV9 * j2 + zCV9 * k2
rayo9 = Segment(P, CV9)
CV10: O + xCV10 * i2 + yCV10 * j2 + zCV10 * k2
CV11: O + xCV11 * i2 + yCV11 * j2 + zCV11 * k2
CV12: O + xCV12 * i2 + yCV12 * j2 + zCV12 * k2
CV13: O + xCV13 * i2 + yCV13 * j2 + zCV13 * k2
CV14: O + xCV14 * i2 + yCV14 * j2 + zCV14 * k2
CV15: O + xCV15 * i2 + yCV15 * j2 + zCV15 * k2
CV16: O + xCV16 * i2 + yCV16 * j2 + zCV16 * k2
rayo12 = Segment(P, CV12)
rayo14 = Segment(P, CV14)
rayo15 = Segment(P, CV15)
rayo11 = Segment(P, CV11)
rayo13 = Segment(P, CV13)
rayo10 = Segment(P, CV10)
rayo16 = Segment(P, CV16)
linea06 = Segment(CV15, CV13)
linea09 = Segment(CV13, CV14)
linea11 = Segment(CV16, CV15)
linea13 = Segment(CV16, CV14)
linea15 = Segment(CV15, CV7)
linea17 = Segment(CV13, CV5)
linea20 = Segment(CV6, CV14)
linea21 = Segment(CV8, CV16)
linea22 = Segment(CV12, CV9)
linea23 = Segment(CV9, CV10)
linea24 = Segment(CV11, CV10)
linea25 = Segment(CV11, CV12)
linea26 = Segment(CV10, CV2)
linea27 = Segment(CV11, CV3)
linea28 = Segment(CV4, CV12)
linea30 = Segment(CV1, CV9)
linea32 = Segment(CV14, CV9)
linea1013 = Segment(CV10, CV13)
linea04 = Segment(CV11, CV15)
linea07 = Segment(CV16, CV12)
cubo1 = true
cubo2 = false
cubo3 = false
cubo4 = false
cubo5 = false
cubo6 = false
cubo7 = false
cubo8 = true
cub1: {Polygon[V3, V4, V1, V2]}
cub2: {Polygon[V7, V5, V2, V3]}
cub3: {Polygon[V6, V5, V2, V1]}
cub4: {Polygon[V8, V4, V1, V6]}
cub5: {Polygon[V8, V7, V5, V6]}
cub6: {Polygon[V4, V3, V7, V8]}
cub7: {Polygon[V4, V3, V11, V12]}
cub8: {Polygon[V2, V3, V11, V10]}
cub9: {Polygon[V1, V4, V12, V9]}
cub10: {Polygon[V1, V2, V10, V9]}
cub11: {Polygon[V3, V7, V15, V11]}
cub12: {Polygon[V7, V8, V16, V15]}
cub13: {Polygon[V4, V8, V16, V12]}
cub14: {Polygon[V5, V7, V15, V13]}
cub15: {Polygon[V5, V13, V14, V6]}
cub16: {Polygon[V6, V8, V16, V14]}
cub17: {Polygon[V2, V5, V13, V10]}
cub18: {Polygon[V1, V6, V14, V9]}
cub19: {Polygon[V9, V10, V11, V12]}
cub20: {Polygon[V10, V11, V15, V13]}
cub21: {Polygon[V9, V10, V13, V14]}
cub22: {Polygon[V9, V12, V16, V14]}
cub23: {Polygon[V13, V14, V16, V15]}
cub24: {Polygon[V11, V12, V16, V15]}
AristasHipercubo: {Segment[V2, V1], Segment[V3, V7], Segment[V5, V6], Segment[V7, V8], Segment[V2, V3], Segment[V3, V4], Segment[V4, V1], Segment[V1, V6], Segment[V8, V6], Segment[V4, V8], Segment[V2, V5], Segment[V5, V7], Segment[V1, V9], Segment[V2, V10], Segment[V3, V11], Segment[V4, V12], Segment[V5, V13], Segment[V6, V14], Segment[V7, V15], Segment[V8, V16], Segment[V9, V10], Segment[V9, V12], Segment[V9, V14], Segment[V10, V11], Segment[V10, V13], Segment[V11, V12], Segment[V11, V15], Segment[V12, V16], Segment[V13, V14], Segment[V13, V15], Segment[V14, V16], Segment[V15, V16]}
cuboL7: {1.0, 1.0, 0.0}
cuboL8: {1.0, 0.0, -1.0}
cuboL9: {1.0, 0.0, 1.0}
cuboL10: {1.0, -1.0, 0.0}
cuboL11: {0.0, -1.0, -1.0}
cuboL12: {-1.0, 1.0, 0.0}
cuboL13: {0.0, -1.0, 1.0}
cuboL14: {-1.0, 0.0, -1.0}
cuboL15: {-1.0, -1.0, 0.0}
cuboL16: {-1.0, 0.0, 1.0}
cuboL17: {0.0, 1.0, -1.0}
cuboL18: {0.0, 1.0, 1.0}
cuboM7: 1.0 - acos((Element[M, 1.0] * Element[cuboL7, 1.0] + Element[M, 2.0] * Element[cuboL7, 2.0] + Element[M, 3.0] * Element[cuboL7, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL7, 1.0]^(2.0) + Element[cuboL7, 2.0]^(2.0) + Element[cuboL7, 3.0]^(2.0)))) / 3.141592653589793
cuboM8: 1.0 - acos((Element[M, 1.0] * Element[cuboL8, 1.0] + Element[M, 2.0] * Element[cuboL8, 2.0] + Element[M, 3.0] * Element[cuboL8, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL8, 1.0]^(2.0) + Element[cuboL8, 2.0]^(2.0) + Element[cuboL8, 3.0]^(2.0)))) / 3.141592653589793
cuboM9: 1.0 - acos((Element[M, 1.0] * Element[cuboL9, 1.0] + Element[M, 2.0] * Element[cuboL9, 2.0] + Element[M, 3.0] * Element[cuboL9, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL9, 1.0]^(2.0) + Element[cuboL9, 2.0]^(2.0) + Element[cuboL9, 3.0]^(2.0)))) / 3.141592653589793
cuboM10: 1.0 - acos((Element[M, 1.0] * Element[cuboL10, 1.0] + Element[M, 2.0] * Element[cuboL10, 2.0] + Element[M, 3.0] * Element[cuboL10, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL10, 1.0]^(2.0) + Element[cuboL10, 2.0]^(2.0) + Element[cuboL10, 3.0]^(2.0)))) / 3.141592653589793
cuboM11: 1.0 - acos((Element[M, 1.0] * Element[cuboL11, 1.0] + Element[M, 2.0] * Element[cuboL11, 2.0] + Element[M, 3.0] * Element[cuboL11, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL11, 1.0]^(2.0) + Element[cuboL11, 2.0]^(2.0) + Element[cuboL11, 3.0]^(2.0)))) / 3.141592653589793
cuboM12: 1.0 - acos((Element[M, 1.0] * Element[cuboL12, 1.0] + Element[M, 2.0] * Element[cuboL12, 2.0] + Element[M, 3.0] * Element[cuboL12, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL12, 1.0]^(2.0) + Element[cuboL12, 2.0]^(2.0) + Element[cuboL12, 3.0]^(2.0)))) / 3.141592653589793
cuboM13: 1.0 - acos((Element[M, 1.0] * Element[cuboL13, 1.0] + Element[M, 2.0] * Element[cuboL13, 2.0] + Element[M, 3.0] * Element[cuboL13, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL13, 1.0]^(2.0) + Element[cuboL13, 2.0]^(2.0) + Element[cuboL13, 3.0]^(2.0)))) / 3.141592653589793
cuboM14: 1.0 - acos((Element[M, 1.0] * Element[cuboL14, 1.0] + Element[M, 2.0] * Element[cuboL14, 2.0] + Element[M, 3.0] * Element[cuboL14, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL14, 1.0]^(2.0) + Element[cuboL14, 2.0]^(2.0) + Element[cuboL14, 3.0]^(2.0)))) / 3.141592653589793
cuboM15: 1.0 - acos((Element[M, 1.0] * Element[cuboL15, 1.0] + Element[M, 2.0] * Element[cuboL15, 2.0] + Element[M, 3.0] * Element[cuboL15, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL15, 1.0]^(2.0) + Element[cuboL15, 2.0]^(2.0) + Element[cuboL15, 3.0]^(2.0)))) / 3.141592653589793
cuboM16: 1.0 - acos((Element[M, 1.0] * Element[cuboL16, 1.0] + Element[M, 2.0] * Element[cuboL16, 2.0] + Element[M, 3.0] * Element[cuboL16, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL16, 1.0]^(2.0) + Element[cuboL16, 2.0]^(2.0) + Element[cuboL16, 3.0]^(2.0)))) / 3.141592653589793
cuboM17: 1.0 - acos((Element[M, 1.0] * Element[cuboL17, 1.0] + Element[M, 2.0] * Element[cuboL17, 2.0] + Element[M, 3.0] * Element[cuboL17, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL17, 1.0]^(2.0) + Element[cuboL17, 2.0]^(2.0) + Element[cuboL17, 3.0]^(2.0)))) / 3.141592653589793
cuboM18: 1.0 - acos((Element[M, 1.0] * Element[cuboL18, 1.0] + Element[M, 2.0] * Element[cuboL18, 2.0] + Element[M, 3.0] * Element[cuboL18, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[cuboL18, 1.0]^(2.0) + Element[cuboL18, 2.0]^(2.0) + Element[cuboL18, 3.0]^(2.0)))) / 3.141592653589793
centro = false
v = 1 (slider from 0 to 5, step 0.1)
nada = 0.6 (slider from 0 to 1, step 0.1)
t1 = If(t < 1.0, t, 1.0)
t2 = If(t ≥ 1.0 ∧ t ≤ 2.0, t - 1.0, If[t < 1.0, 0.0, 1.0])
N1115: V11 + t1 * (V15 - V11)
N1103: V11 + t1 * (V3 - V11)
N1112: V11 + t1 * (V12 - V11)
N1110: V11 + t1 * (V10 - V11)
polígono1: {Polygon[N1103, N1112, N1110]}
n1 = Segment(N1103, N1110)
n2 = Segment(N1110, N1112)
n3 = Segment(N1103, N1112)
polígono2: {Polygon[N1115, N1103, N1112]}
n4 = Segment(N1103, N1115)
n5 = Segment(N1115, N1112)
polígono3: {Polygon[N1115, N1110, N1112]}
n6 = Segment(N1115, N1110)
polígono4: {Polygon[N1103, N1110, N1115]}
N0302: V3 + t2 * (V2 - V3)
N0307: V3 + t2 * (V7 - V3)
N0304: V3 + t2 * (V4 - V3)
N1002: V10 + t2 * (V2 - V10)
N1013: V10 + t2 * (V13 - V10)
N1009: V10 + t2 * (V9 - V10)
N1204: V12 + t2 * (V4 - V12)
N1209: V12 + t2 * (V9 - V12)
N1216: V12 + t2 * (V16 - V12)
N1507: V15 + t2 * (V7 - V15)
N1516: V15 + t2 * (V16 - V15)
N1513: V15 + t2 * (V13 - V15)
polígono5: {Polygon[N0304, N0302, N0307]}
polígono6: {Polygon[N1002, N1013, N1009]}
polígono7: {Polygon[N1204, N1209, N1216]}
polígono8: {Polygon[N1507, N1516, N1513]}
t3 = If(t ≥ 2.0 ∧ t ≤ 3.0, t - 2.0, If[t < 2.0, 0.0, 1.0])
t4 = If(t ≥ 3.0 ∧ t ≤ 4.0, t - 3.0, If[t < 3.0, 0.0, 1.0])
t5 = If(t ≥ 4.0 ∧ t ≤ 5.0, t - 4.0, If[t < 4.0, 0.0, 1.0])
n7 = Segment(N1516, N1513)
n8 = Segment(N1513, N1507)
n9 = Segment(N1507, N1516)
n10 = Segment(N0302, N0304)
n11 = Segment(N0304, N0307)
n12 = Segment(N0307, N0302)
n13 = Segment(N1013, N1002)
n14 = Segment(N1013, N1009)
n15 = Segment(N1002, N1009)
n16 = Segment(N1216, N1209)
n17 = Segment(N1204, N1216)
n18 = Segment(N1204, N1209)
n22 = Segment(N1209, N1009)
n23 = Segment(N1513, N1013)
n24 = Segment(N1507, N0307)
n19 = Segment(N1516, N1216)
n21 = Segment(N0302, N1002)
polígono9: {Polygon[N0307, N1507, N1513, N1013, N1002, N0302]}
polígono10: {Polygon[N1002, N1009, N1209, N1204, N0304, N0302]}
polígono11: {Polygon[N1013, N1513, N1516, N1216, N1209, N1009]}
polígono12: {Polygon[N0307, N1507, N1516, N1216, N1204, N0304]}
angPoli1 = Angle(N1110, N1112, N1103)
angPoli4 = Angle(N1110, N1103, N1115)
angPoli3 = Angle(N1115, N1112, N1110)
angPoli2 = Angle(N1103, N1112, N1115)
angPoli11 = Angle(N1216, N1209, N1513)
angPoli6 = Angle(N1013, N1009, N1002)
angPoli9 = Angle(N1013, N1002, N1507)
angPoli7 = Angle(N1204, N1209, N1216)
angPoli12 = Angle(N1204, N1216, N1507)
angPoli10 = Angle(N1209, N1204, N0302)
angPoli5 = Angle(N0302, N0304, N0307)
angPoli8 = Angle(N1513, N1507, N1516)
diagonalPrincipal = Segment(V6, V11)
L1103: {g1 * (1.0 - t1) + gg + t1 * (hh - gg), g2 * (1.0 - t1) - gg + t1 * (-(hh) + gg), g3 * (1.0 - t1) + gg + t1 * (hh - gg)}
L1115: {g1 + gg + t1 * (-(gg) - gg), g2 - gg + t1 * (-(gg) + gg), g3 + gg + t1 * (gg - gg)}
L1110: {g1 + gg + t1 * (gg - gg), g2 - gg + t1 * (gg + gg), g3 + gg + t1 * (gg - gg)}
L1112: {g1 + gg + t1 * (gg - gg), g2 - gg + t1 * (-(gg) + gg), g3 + gg + t1 * (-(gg) - gg)}
LV0315: {g1 - gg - hh, g2 - gg + hh, g3 + gg - hh}
LV0310: {g1 + gg - hh, g2 + gg + hh, g3 + gg - hh}
LV0312: {g1 + gg - hh, g2 - gg + hh, g3 - gg - hh}
tetraL1: {Element[LV0312, 2.0] * Element[LV0310, 3.0] - Element[LV0312, 3.0] * Element[LV0310, 2.0], Element[LV0312, 3.0] * Element[LV0310, 1.0] - Element[LV0312, 1.0] * Element[LV0310, 3.0], Element[LV0312, 1.0] * Element[LV0310, 2.0] - Element[LV0312, 2.0] * Element[LV0310, 1.0]}
tetraL2: {Element[LV0315, 2.0] * Element[LV0312, 3.0] - Element[LV0315, 3.0] * Element[LV0312, 2.0], Element[LV0315, 3.0] * Element[LV0312, 1.0] - Element[LV0315, 1.0] * Element[LV0312, 3.0], Element[LV0315, 1.0] * Element[LV0312, 2.0] - Element[LV0315, 2.0] * Element[LV0312, 1.0]}
zzt1cara2: O + Element[tetraL2, 1.0] * i + Element[tetraL2, 2.0] * j + Element[tetraL2, 3.0] * k
tetraL4: {Element[LV0310, 2.0] * Element[LV0315, 3.0] - Element[LV0310, 3.0] * Element[LV0315, 2.0], Element[LV0310, 3.0] * Element[LV0315, 1.0] - Element[LV0310, 1.0] * Element[LV0315, 3.0], Element[LV0310, 1.0] * Element[LV0315, 2.0] - Element[LV0310, 2.0] * Element[LV0315, 1.0]}
tetraM4: 1.0 - acos((Element[M, 1.0] * Element[tetraL4, 1.0] + Element[M, 2.0] * Element[tetraL4, 2.0] + Element[M, 3.0] * Element[tetraL4, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL4, 1.0]^(2.0) + Element[tetraL4, 2.0]^(2.0) + Element[tetraL4, 3.0]^(2.0)))) / 3.141592653589793
tetraM2: 1.0 - acos((Element[M, 1.0] * Element[tetraL2, 1.0] + Element[M, 2.0] * Element[tetraL2, 2.0] + Element[M, 3.0] * Element[tetraL2, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL2, 1.0]^(2.0) + Element[tetraL2, 2.0]^(2.0) + Element[tetraL2, 3.0]^(2.0)))) / 3.141592653589793
tetraM1: 1.0 - acos((Element[M, 1.0] * Element[tetraL1, 1.0] + Element[M, 2.0] * Element[tetraL1, 2.0] + Element[M, 3.0] * Element[tetraL1, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL1, 1.0]^(2.0) + Element[tetraL1, 2.0]^(2.0) + Element[tetraL1, 3.0]^(2.0)))) / 3.141592653589793
zzVectorTetra1 = Vector((N1103 + N1110 + N1112) / 3.0, (N1103 + N1110 + N1112 + Element[tetraL1, 1.0] * i + Element[tetraL1, 2.0] * j + Element[tetraL1, 3.0] * k) / 3.0)
zzVectorTetra2 = Vector((N1103 + N1115 + N1112) / 3.0, (N1103 + N1115 + N1112 + Element[tetraL2, 2.0] * i + Element[tetraL2, 2.0] * j + Element[tetraL2, 3.0] * k) / 3.0)
tetraL3: {-1.0, 1.0, -1.0}
tetraM3: 1.0 - acos((Element[M, 1.0] * Element[tetraL3, 1.0] + Element[M, 2.0] * Element[tetraL3, 2.0] + Element[M, 3.0] * Element[tetraL3, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL3, 1.0]^(2.0) + Element[tetraL3, 2.0]^(2.0) + Element[tetraL3, 3.0]^(2.0)))) / 3.141592653589793
zzVectorTetra3 = Vector((N1112 + N1110 + N1115) / 3.0, (N1112 + N1110 + N1115 + Element[tetraL3, 1.0] * i + Element[tetraL3, 2.0] * j + Element[tetraL3, 3.0] * k) / 3.0)
N0708: V7 + t3 * (V8 - V7)
N0705: V7 + t3 * (V5 - V7)
N1305: V13 + t3 * (V5 - V13)
N1314: V13 + t3 * (V14 - V13)
N0205: V2 + t3 * (V5 - V2)
N0201: V2 + t3 * (V1 - V2)
N0401: V4 + t3 * (V1 - V4)
N0408: V4 + t3 * (V8 - V4)
N1608: V16 + t3 * (V8 - V16)
N1614: V16 + t3 * (V14 - V16)
N0914: V9 + t3 * (V14 - V9)
N0901: V9 + t3 * (V1 - V9)
n42 = Segment(N0901, N0914)
n27 = Segment(N1608, N1614)
n33 = Segment(N1305, N1314)
n34 = Segment(N0705, N0708)
n36 = Segment(N0205, N0201)
n38 = Segment(N0408, N0401)
n32 = Segment(N0205, N1305)
n29 = Segment(N0705, N1305)
n31 = Segment(N0705, N0205)
n30 = Segment(N1314, N1614)
n37 = Segment(N1314, N0914)
n28 = Segment(N1614, N0914)
n39 = Segment(N0201, N0401)
n41 = Segment(N0401, N0901)
n40 = Segment(N0201, N0901)
n26 = Segment(N0408, N1608)
n25 = Segment(N0708, N1608)
n35 = Segment(N0708, N0408)
N0506: V5 + t4 * (V6 - V5)
N0106: V1 + t4 * (V6 - V1)
N0806: V8 + t4 * (V6 - V8)
N1406: V14 + t4 * (V6 - V14)
n45 = Segment(N1406, N0506)
n44 = Segment(N0506, N0106)
n48 = Segment(N0106, N1406)
n43 = Segment(N0506, N0806)
n47 = Segment(N0806, N0106)
n46 = Segment(N0806, N1406)
polígono13: {Polygon[N1305, N0205, N0705]}
polígono14: {Polygon[N0401, N0201, N0901]}
polígono15: {Polygon[N1614, N0914, N1314]}
polígono16: {Polygon[N1608, N0408, N0708]}
angPoli16 = Angle(N0708, N0408, N1608)
angPoli13 = Angle(N0705, N1305, N0205)
angPoli14 = Angle(N0201, N0901, N0401)
angPoli15 = Angle(N0914, N1314, N1614)
polígono17: {Polygon[N0708, N0408, N0401, N0201, N0205, N0705]}
polígono18: {Polygon[N0205, N1305, N1314, N0914, N0901, N0201]}
polígono19: {Polygon[N0408, N1608, N1614, N0914, N0901, N0401]}
polígono20: {Polygon[N1608, N1614, N1314, N1305, N0705, N0708]}
polígono21: {Polygon[N0806, N0506, N0106]}
polígono22: {Polygon[N0106, N1406, N0506]}
polígono23: {Polygon[N1406, N0106, N0806]}
polígono24: {Polygon[N0806, N0506, N1406]}
tetraL5: {1.0, -1.0, 1.0}
tetraM5: 1.0 - acos((Element[M, 1.0] * Element[tetraL5, 1.0] + Element[M, 2.0] * Element[tetraL5, 2.0] + Element[M, 3.0] * Element[tetraL5, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL5, 1.0]^(2.0) + Element[tetraL5, 2.0]^(2.0) + Element[tetraL5, 3.0]^(2.0)))) / 3.141592653589793
tetraL7: {Element[LV0204, 2.0] * Element[LV0216, 3.0] - Element[LV0204, 3.0] * Element[LV0216, 2.0], Element[LV0204, 3.0] * Element[LV0216, 1.0] - Element[LV0204, 1.0] * Element[LV0216, 3.0], Element[LV0204, 1.0] * Element[LV0216, 2.0] - Element[LV0204, 2.0] * Element[LV0216, 1.0]}
tetraM7: 1.0 - acos((Element[M, 1.0] * Element[tetraL7, 1.0] + Element[M, 2.0] * Element[tetraL7, 2.0] + Element[M, 3.0] * Element[tetraL7, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL7, 1.0]^(2.0) + Element[tetraL7, 2.0]^(2.0) + Element[tetraL7, 3.0]^(2.0)))) / 3.141592653589793
zzVectorTetra5 = Vector(O, O + (Element[tetraL5, 1.0] * i + Element[tetraL5, 2.0] * j + Element[tetraL5, 3.0] * k) / 3.0)
LV0209: {g1 + gg - hh, g2 + gg - hh, g3 - gg - hh}
LV0213: {g1 - gg - hh, g2 + gg - hh, g3 + gg - hh}
tetraL6: {Element[LV0209, 2.0] * Element[LV0213, 3.0] - Element[LV0209, 3.0] * Element[LV0213, 2.0], Element[LV0209, 3.0] * Element[LV0213, 1.0] - Element[LV0209, 1.0] * Element[LV0213, 3.0], Element[LV0209, 1.0] * Element[LV0213, 2.0] - Element[LV0209, 2.0] * Element[LV0213, 1.0]}
tetraM6: 1.0 - acos((Element[M, 1.0] * Element[tetraL6, 1.0] + Element[M, 2.0] * Element[tetraL6, 2.0] + Element[M, 3.0] * Element[tetraL6, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL6, 1.0]^(2.0) + Element[tetraL6, 2.0]^(2.0) + Element[tetraL6, 3.0]^(2.0)))) / 3.141592653589793
LV0713: {g1 - gg + hh, g2 + gg + hh, g3 + gg - hh}
LV0716: {g1 - gg + hh, g2 - gg + hh, g3 - gg - hh}
tetraL8: {Element[LV0713, 2.0] * Element[LV0716, 3.0] - Element[LV0713, 3.0] * Element[LV0716, 2.0], Element[LV0713, 3.0] * Element[LV0716, 1.0] - Element[LV0713, 1.0] * Element[LV0716, 3.0], Element[LV0713, 1.0] * Element[LV0716, 2.0] - Element[LV0713, 2.0] * Element[LV0716, 1.0]}
tetraM8: 1.0 - acos((Element[M, 1.0] * Element[tetraL8, 1.0] + Element[M, 2.0] * Element[tetraL8, 2.0] + Element[M, 3.0] * Element[tetraL8, 3.0]) / sqrt((Element[M, 1.0]^(2.0) + Element[M, 2.0]^(2.0) + Element[M, 3.0]^(2.0)) * (Element[tetraL8, 1.0]^(2.0) + Element[tetraL8, 2.0]^(2.0) + Element[tetraL8, 3.0]^(2.0)))) / 3.141592653589793
Ocentro: O
verticesSeccion = true
N0106': CV1 + t4 * (CV6 - CV1)
N0201': CV2 + t3 * (CV1 - CV2)
N0205': CV2 + t3 * (CV5 - CV2)
N0302': CV3 + t2 * (CV2 - CV3)
N0304': CV3 + t2 * (CV4 - CV3)
N0307': CV3 + t2 * (CV7 - CV3)
N0401': CV4 + t3 * (CV1 - CV4)
N0408': CV4 + t3 * (CV8 - CV4)
N0506': CV5 + t4 * (CV6 - CV5)
N0705': CV7 + t3 * (CV5 - CV7)
N0708': CV7 + t3 * (CV8 - CV7)
N0806': CV8 + t4 * (CV6 - CV8)
N0901': CV9 + t3 * (CV1 - CV9)
N0914': CV9 + t3 * (CV14 - CV9)
N1002': CV10 + t2 * (CV2 - CV10)
N1009': CV10 + t2 * (CV9 - CV10)
N1013': CV10 + t2 * (CV13 - CV10)
N1103': CV11 + t1 * (CV3 - CV11)
N1110': CV11 + t1 * (CV10 - CV11)
N1112': CV11 + t1 * (CV12 - CV11)
N1115': CV11 + t1 * (CV15 - CV11)
N1204': CV12 + t2 * (CV4 - CV12)
N1209': CV12 + t2 * (CV9 - CV12)
N1216': CV12 + t2 * (CV16 - CV12)
N1305': CV13 + t3 * (CV5 - CV13)
N1314': CV13 + t3 * (CV14 - CV13)
N1406': CV14 + t4 * (CV6 - CV14)
N1507': CV15 + t2 * (CV7 - CV15)
N1513': CV15 + t2 * (CV13 - CV15)
N1516': CV15 + t2 * (CV16 - CV15)
N1608': CV16 + t3 * (CV8 - CV16)
N1614': CV16 + t3 * (CV14 - CV16)
n1' = Segment(N1103', N1110')
n10' = Segment(N0302', N0304')
n11' = Segment(N0304', N0307')
n12' = Segment(N0307', N0302')
n13' = Segment(N1013', N1002')
n14' = Segment(N1013', N1009')
n15' = Segment(N1002', N1009')
n16' = Segment(N1216', N1209')
n17' = Segment(N1204', N1216')
n18' = Segment(N1204', N1209')
n19' = Segment(N1516', N1216')
n2' = Segment(N1110', N1112')
n20 = Segment(N0304, N1204)
n20' = Segment(N0304', N1204')
n21' = Segment(N0302', N1002')
n22' = Segment(N1209', N1009')
n23' = Segment(N1513', N1013')
n24' = Segment(N1507', N0307')
n25' = Segment(N0708', N1608')
n26' = Segment(N0408', N1608')
n27' = Segment(N1608', N1614')
n28' = Segment(N1614', N0914')
n29' = Segment(N0705', N1305')
n3' = Segment(N1103', N1112')
n30' = Segment(N1314', N1614')
n31' = Segment(N0705', N0205')
n32' = Segment(N0205', N1305')
n33' = Segment(N1305', N1314')
n34' = Segment(N0705', N0708')
n35' = Segment(N0708', N0408')
n36' = Segment(N0205', N0201')
n37' = Segment(N1314', N0914')
n38' = Segment(N0408', N0401')
n39' = Segment(N0201', N0401')
n4' = Segment(N1103', N1115')
n40' = Segment(N0201', N0901')
n41' = Segment(N0401', N0901')
n42' = Segment(N0901', N0914')
n43' = Segment(N0506', N0806')
n44' = Segment(N0506', N0106')
n45' = Segment(N1406', N0506')
n46' = Segment(N0806', N1406')
n47' = Segment(N0806', N0106')
n48' = Segment(N0106', N1406')
n5' = Segment(N1115', N1112')
n6' = Segment(N1115', N1110')
n7' = Segment(N1516', N1513')
n8' = Segment(N1513', N1507')
n9' = Segment(N1507', N1516')
diagonal = true
diagonal' = Segment(CV6, CV11)
texto1: "d_1 = " + q1
texto2: "d_2 = " + q2
texto3: "d_3 = " + q3
dimension = 4 (slider from 0 to 4, step 1)
texto4: "Dimensión " + dimension
G = (1.293598580000002, 0.26784600000000014)
J = (0.552763980000002, -0.3763579999999999)
e = Segment(G, J)
K = (20.909610380000004, -0.5696191999999999)
L = (14.628621380000002, -2.4378108)
q = Segment(K, L)
N = (20.812979780000003, -16.5136682)
s = Segment(K, N)
Q = (14.274309180000003, -14.548846000000001)
a_1 = Segment(N, Q)
b_1 = Segment(Q, L)
R = (4.868930780000002, -0.4085681999999999)
c_1 = Segment(K, R)
S = (4.804510380000003, -16.4170376)
d_1 = Segment(R, S)
e_1 = Segment(S, N)
U = (11.021078980000002, -14.4522154)
f_1 = Segment(S, U)
g_1 = Segment(U, Q)
V = (11.375391180000003, -2.30897)
h_1 = Segment(R, V)
i_1 = Segment(V, L)
j_1 = Segment(V, U)
W = (18.944788180000003, -7.0438694)
Z = (17.302067980000004, -4.0483208)
p_1 = Segment(W, Z)
A_1 = (18.848157580000002, -10.200469)
q_1 = Segment(W, A_1)
B_1 = (17.141016980000003, -13.0027564)
r_1 = Segment(A_1, B_1)
s_1 = Segment(Z, B_1)
D_1 = (6.8337529800000025, -6.6251368)
t_1 = Segment(W, D_1)
E_1 = (6.704912180000003, -9.8139466)
a_2 = Segment(D_1, E_1)
b_2 = Segment(E_1, A_1)
F_1 = (8.283211980000003, -12.6806544)
c_2 = Segment(E_1, F_1)
d_2 = Segment(F_1, B_1)
G_1 = (8.476473180000003, -3.8550596)
e_2 = Segment(D_1, G_1)
f_2 = Segment(G_1, F_1)
g_2 = Segment(G_1, Z)
h_2 = Segment(N, A_1)
i_2 = Segment(S, E_1)
j_2 = Segment(W, K)
k_2 = Segment(D_1, R)
l_2 = Segment(G_1, V)
m_2 = Segment(Z, L)
n_2 = Segment(F_1, U)
p_2 = Segment(B_1, Q)
H_1 = (0.16624158000000203, -1.1494027999999998)
r_2 = Segment(J, H_1)
I_1 = (0.39171298000000204, -1.825817)
s_2 = Segment(H_1, I_1)
J_1 = (1.0037067800000021, -2.5988618)
t_2 = Segment(I_1, J_1)
K_1 = (1.6479107800000021, -3.0498046)
a_3 = Segment(J_1, K_1)
L_1 = (2.034433180000002, -3.6617984)
b_3 = Segment(K_1, L_1)
M_1 = (2.3243249800000023, -4.4348432)
c_3 = Segment(L_1, M_1)
N_1 = (2.3887453800000022, -5.4977798)
d_3 = Segment(M_1, N_1)
O_1 = (2.131063780000002, -6.3674552)
e_3 = Segment(N_1, O_1)
P_1 = (1.744541380000002, -7.0116592)
f_3 = Segment(O_1, P_1)
Q_1 = (1.068127180000002, -7.301551)
g_3 = Segment(P_1, Q_1)
R_1 = (0.19845178000000202, -7.1405)
h_3 = Segment(Q_1, R_1)
S_1 = (-0.477962419999998, -7.301551)
i_3 = Segment(R_1, S_1)
T_1 = (-0.8322746199999981, -7.9135448)
j_3 = Segment(S_1, T_1)
V_1 = (-0.8322746199999981, -8.7832202)
k_3 = Segment(T_1, V_1)
W_1 = (-0.510172619999998, -9.620685400000001)
l_3 = Segment(V_1, W_1)
Z_1 = (-0.059229819999998, -10.3937302)
m_3 = Segment(W_1, Z_1)
A_2 = (0.584974180000002, -10.7802526)
n_3 = Segment(Z_1, A_2)
K_2 = (1.358018980000002, -10.844673)
p_3 = Segment(A_2, K_2)
L_2 = (2.1632739800000023, -11.0379342)
q_3 = Segment(L_2, K_2)
M_2 = (2.6142167800000022, -11.488877)
r_3 = Segment(L_2, M_2)
N_2 = (2.7752677800000023, -12.3585524)
s_3 = Segment(M_2, N_2)
O_2 = (2.646426980000002, -13.2926482)
t_3 = Segment(N_2, O_2)
P_2 = (2.1632739800000023, -13.9368522)
a_4 = Segment(O_2, P_2)
Q_2 = (1.6157005800000022, -14.387795)
b_4 = Segment(P_2, Q_2)
R_2 = (0.971496580000002, -14.709897)
c_4 = Segment(Q_2, R_2)
S_2 = (0.45613338000000203, -15.031999)
d_4 = Segment(R_2, S_2)
T_2 = (-0.252491019999998, -15.2896806)
e_4 = Segment(S_2, T_2)
U_2 = (-0.671223619999998, -15.7406234)
f_4 = Segment(T_2, U_2)
V_2 = (-0.671223619999998, -16.5136682)
g_4 = Segment(U_2, V_2)
W_2 = (-0.091440019999998, -17.0612416)
h_4 = Segment(V_2, W_2)
Z_2 = (0.06961098000000202, -17.802076200000002)
i_4 = Segment(W_2, Z_2)
A_3 = (-0.188070619999998, -0.3441477999999999)
B_3 = (2.420955580000002, -4.1449514)
j_4 = Segment(A_3, B_3)
C_3 = (7.091434580000002, -2.0512884)
D_3 = (18.268373980000003, -2.2123394)
k_4 = Segment(C_3, D_3)
E_3 = (-0.6390134199999981, -7.1727102)
l_4 = Segment(B_3, E_3)
F_3 = (2.098853580000002, -11.2956158)
m_4 = Segment(E_3, F_3)
G_3 = (0.48834358000000205, -16.1271458)
n_4 = Segment(F_3, G_3)
I_3 = (6.994803980000002, -13.3248584)
q_4 = Segment(C_3, I_3)
J_3 = (18.171743380000002, -13.421489000000001)
r_4 = Segment(I_3, J_3)
s_4 = Segment(J_3, D_3)
H_3 = (9.636040380000003, -8.1390162)
K_3 = (15.852608980000003, -8.1390162)
p_4 = Segment(H_3, K_3)
L_3 = (2.002222980000002, -3.8228494)
N_3 = (1.164757780000002, -7.8169142)
t_4 = Segment(L_3, N_3)
O_3 = (1.551280180000002, -6.7861878)
P_3 = (12.599378780000002, -7.6880734)
W4: O + i - j - k
W5: O - i + j + k
W6: O - i + j - k
W7: O - i - j + k
W8: O - i - j - k
w1Ang = Angle(W3, W2, W4)
w2Ang = Angle(W5, W2, W7)
w3Ang = Angle(W6, W2, W5)
w4Ang = Angle(W4, W1, W8)
w5Ang = Angle(W5, W7, W6)
w6Ang = Angle(W4, W7, W3)
w1A1 = Segment(W1, W2)
w1A10 = Segment(W7, W3)
w1A11 = Segment(W6, W5)
w1A12 = Segment(W7, W8)
w1A2 = Segment(W2, W3)
w1A3 = Segment(W3, W4)
w1A4 = Segment(W4, W1)
w1A5 = Segment(W1, W6)
w1A6 = Segment(W6, W8)
w1A7 = Segment(W8, W4)
w1A8 = Segment(W2, W5)
w1A9 = Segment(W5, W7)
AristasCubo: {Segment[W2, W1], Segment[W3, W7], Segment[W5, W6], Segment[W7, W8], Segment[W2, W3], Segment[W3, W4], Segment[W4, W1], Segment[W1, W6], Segment[W8, W6], Segment[W4, W8], Segment[W2, W5], Segment[W5, W7]}
cw1: {Polygon[W3, W4, W1, W2]}
cw2: {Polygon[W7, W5, W2, W3]}
cw3: {Polygon[W6, W5, W2, W1]}
cw4: {Polygon[W8, W4, W1, W6]}
cw5: {Polygon[W8, W7, W5, W6]}
cw6: {Polygon[W4, W3, W7, W8]}
MW1 = Join({{1.0, 1.0, -1.0}} * MM)
MW2 = Join({{1.0, 1.0, 1.0}} * MM)
MW3 = Join({{1.0, -1.0, 1.0}} * MM)
MW4 = Join({{1.0, -1.0, -1.0}} * MM)
MW5 = Join({{-1.0, 1.0, 1.0}} * MM)
MW6 = Join({{-1.0, 1.0, -1.0}} * MM)
xCW1: (x0 * d * d11 - Element[MW1, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW1, 2.0] * y0 + Element[MW1, 3.0] * z0)) / (x0 * (Element[MW1, 1.0] - x0) + y0 * (Element[MW1, 2.0] - y0) + z0 * (Element[MW1, 3.0] - z0))
xCW2: (x0 * d * d11 - Element[MW2, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW2, 2.0] * y0 + Element[MW2, 3.0] * z0)) / (x0 * (Element[MW2, 1.0] - x0) + y0 * (Element[MW2, 2.0] - y0) + z0 * (Element[MW2, 3.0] - z0))
xCW3: (x0 * d * d11 - Element[MW3, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW3, 2.0] * y0 + Element[MW3, 3.0] * z0)) / (x0 * (Element[MW3, 1.0] - x0) + y0 * (Element[MW3, 2.0] - y0) + z0 * (Element[MW3, 3.0] - z0))
MW7 = Join({{-1.0, -1.0, 1.0}} * MM)
MW8 = Join({{-1.0, -1.0, -1.0}} * MM)
xCW4: (x0 * d * d11 - Element[MW4, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW4, 2.0] * y0 + Element[MW4, 3.0] * z0)) / (x0 * (Element[MW4, 1.0] - x0) + y0 * (Element[MW4, 2.0] - y0) + z0 * (Element[MW4, 3.0] - z0))
xCW5: (x0 * d * d11 - Element[MW5, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW5, 2.0] * y0 + Element[MW5, 3.0] * z0)) / (x0 * (Element[MW5, 1.0] - x0) + y0 * (Element[MW5, 2.0] - y0) + z0 * (Element[MW5, 3.0] - z0))
xCW6: (x0 * d * d11 - Element[MW6, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW6, 2.0] * y0 + Element[MW6, 3.0] * z0)) / (x0 * (Element[MW6, 1.0] - x0) + y0 * (Element[MW6, 2.0] - y0) + z0 * (Element[MW6, 3.0] - z0))
xCW7: (x0 * d * d11 - Element[MW7, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW7, 2.0] * y0 + Element[MW7, 3.0] * z0)) / (x0 * (Element[MW7, 1.0] - x0) + y0 * (Element[MW7, 2.0] - y0) + z0 * (Element[MW7, 3.0] - z0))
xCW8: (x0 * d * d11 - Element[MW8, 1.0] * (y0^(2.0) + z0^(2.0) + d * d11) + x0 * (Element[MW8, 2.0] * y0 + Element[MW8, 3.0] * z0)) / (x0 * (Element[MW8, 1.0] - x0) + y0 * (Element[MW8, 2.0] - y0) + z0 * (Element[MW8, 3.0] - z0))
yCW1: (Element[MW1, 2.0] - y0) / (Element[MW1, 1.0] - x0) * (xCW1 - x0) + y0
yCW2: (Element[MW2, 2.0] - y0) / (Element[MW2, 1.0] - x0) * (xCW2 - x0) + y0
yCW3: (Element[MW3, 2.0] - y0) / (Element[MW3, 1.0] - x0) * (xCW3 - x0) + y0
yCW4: (Element[MW4, 2.0] - y0) / (Element[MW4, 1.0] - x0) * (xCW4 - x0) + y0
yCW5: (Element[MW5, 2.0] - y0) / (Element[MW5, 1.0] - x0) * (xCW5 - x0) + y0
yCW6: (Element[MW6, 2.0] - y0) / (Element[MW6, 1.0] - x0) * (xCW6 - x0) + y0
yCW7: (Element[MW7, 2.0] - y0) / (Element[MW7, 1.0] - x0) * (xCW7 - x0) + y0
yCW8: (Element[MW8, 2.0] - y0) / (Element[MW8, 1.0] - x0) * (xCW8 - x0) + y0
zCW1: (Element[MW1, 3.0] - z0) / (Element[MW1, 1.0] - x0) * (xCW1 - x0) + z0
zCW2: (Element[MW2, 3.0] - z0) / (Element[MW2, 1.0] - x0) * (xCW2 - x0) + z0
zCW3: (Element[MW3, 3.0] - z0) / (Element[MW3, 1.0] - x0) * (xCW3 - x0) + z0
zCW4: (Element[MW4, 3.0] - z0) / (Element[MW4, 1.0] - x0) * (xCW4 - x0) + z0
zCW5: (Element[MW5, 3.0] - z0) / (Element[MW5, 1.0] - x0) * (xCW5 - x0) + z0
zCW6: (Element[MW6, 3.0] - z0) / (Element[MW6, 1.0] - x0) * (xCW6 - x0) + z0
zCW7: (Element[MW7, 3.0] - z0) / (Element[MW7, 1.0] - x0) * (xCW7 - x0) + z0
zCW8: (Element[MW8, 3.0] - z0) / (Element[MW8, 1.0] - x0) * (xCW8 - x0) + z0
CW1: O + xCW1 * i2 + yCW1 * j2 + zCW1 * k2
CW2: O + xCW2 * i2 + yCW2 * j2 + zCW2 * k2
CW3: O + xCW3 * i2 + yCW3 * j2 + zCW3 * k2
CW4: O + xCW4 * i2 + yCW4 * j2 + zCW4 * k2
CW5: O + xCW5 * i2 + yCW5 * j2 + zCW5 * k2
CW6: O + xCW6 * i2 + yCW6 * j2 + zCW6 * k2
CW7: O + xCW7 * i2 + yCW7 * j2 + zCW7 * k2
CW8: O + xCW8 * i2 + yCW8 * j2 + zCW8 * k2
wrayo1 = Segment(P, CW1)
wrayo2 = Segment(P, CW2)
wrayo3 = Segment(P, CW3)
wrayo4 = Segment(P, CW4)
wrayo5 = Segment(P, CW5)
wrayo6 = Segment(P, CW6)
wrayo7 = Segment(P, CW7)
wrayo8 = Segment(P, CW8)
a_5 = Segment(CW3, CW4)
b_5 = Segment(CW7, CW8)
c_5 = Segment(CW2, CW1)
d_5 = Segment(CW5, CW6)
e_5 = Segment(CW3, CW7)
f_5 = Segment(CW7, CW5)
g_5 = Segment(CW5, CW2)
h_5 = Segment(CW3, CW2)
i_5 = Segment(CW8, CW4)
j_5 = Segment(CW4, CW1)
k_5 = Segment(CW1, CW6)
l_5 = Segment(CW6, CW8)
NW0307: W3 + t1 * (W7 - W3)
NW0302: W3 + t1 * (W2 - W3)
NW0304: W3 + t1 * (W4 - W3)
NW0307': CW3 + t1 * (CW7 - CW3)
NW0302': CW3 + t1 * (CW2 - CW3)
NW0304': CW3 + t1 * (CW4 - CW3)
polígono25: {Polygon[NW0304, NW0302, NW0307]}
n_5 = Segment(NW0304', NW0302')
p_5 = Segment(NW0307', NW0302')
q_5 = Segment(NW0307', NW0304')
r_5 = Segment(NW0307, NW0302)
s_5 = Segment(NW0302, NW0304)
t_5 = Segment(NW0307, NW0304)
tetraMW = Max(tetraMW0, 1.0 - tetraMW0)
angWPoli1 = Angle(NW0302, NW0304, NW0307)
NW0408: W4 + t2 * (W8 - W4)
NW0401: W4 + t2 * (W1 - W4)
NW0708: W7 + t2 * (W8 - W7)
NW0705: W7 + t2 * (W5 - W7)
NW0205: W2 + t2 * (W5 - W2)
NW0201: W2 + t2 * (W1 - W2)
NW0201': CW2 + t2 * (CW1 - CW2)
NW0205': CW2 + t2 * (CW5 - CW2)
NW0401': CW4 + t2 * (CW1 - CW4)
NW0408': CW4 + t2 * (CW8 - CW4)
NW0705': CW7 + t2 * (CW5 - CW7)
NW0708': CW7 + t2 * (CW8 - CW7)
m_5 = Segment(NW0408, NW0401)
b_6 = Segment(NW0201, NW0205)
d_6 = Segment(NW0705, NW0708)
f_6 = Segment(NW0705', NW0708')
g_6 = Segment(NW0708', NW0408')
h_6 = Segment(NW0408', NW0401')
i_6 = Segment(NW0401', NW0201')
j_6 = Segment(NW0201', NW0205')
k_6 = Segment(NW0205', NW0705')
NW0506: W5 + t3 * (W6 - W5)
NW0806: W8 + t3 * (W6 - W8)
NW0106: W1 + t3 * (W6 - W1)
NW0106': CW1 + t3 * (CW6 - CW1)
NW0506': CW5 + t3 * (CW6 - CW5)
NW0806': CW8 + t3 * (CW6 - CW8)
polígono26: {Polygon[NW0806, NW0106, NW0506]}
l_6 = Segment(NW0806, NW0506)
m_6 = Segment(NW0506, NW0106)
n_6 = Segment(NW0806, NW0106)
p_6 = Segment(NW0806', NW0506')
q_6 = Segment(NW0506', NW0106')
r_6 = Segment(NW0806', NW0106')
s_6 = Segment(W3, W6)
polígono27: {Polygon[NW0408, NW0401, NW0201, NW0205, NW0705, NW0708]}
a_6 = Segment(NW0705, NW0205)
c_6 = Segment(NW0708, NW0408)
e_6 = Segment(NW0201, NW0401)
b_7 = Segment(CW3, CW6)
polígono28: {Polygon[W4, W1, W2, W3]}
tetraM = Max(tetraM1, 1.0 - tetraM1)
NZ0304: W3 + tt1 * (W4 - W3)
NZ0401: W4 + tt2 * (W1 - W4)
NZ0201': CW2 + tt2 * (CW1 - CW2)
NZ0302': CW3 + tt1 * (CW2 - CW3)
NZ0304': CW3 + tt1 * (CW4 - CW3)
NZ0401': CW4 + tt2 * (CW1 - CW4)
NZ0302: W3 + tt1 * (W2 - W3)
t_6 = Segment(NZ0302, NZ0304)
a_7 = Segment(NZ0302', NZ0304')
NZ0201: W2 + tt2 * (W1 - W2)
c_7 = Segment(NZ0401, NZ0201)
d_7 = Segment(NZ0401', NZ0201')
e_7 = Segment(W3, W1)
f_7 = Segment(CW3, CW1)
ttt: t - floor(t)
NY0304: W3 + ttt * (W4 - W3)
NY0304': CW3 + ttt * (CW4 - CW3)
g_7 = Segment(NY0304', P)
texto5: "" + (-(φ))
Q_3 = (0.134031380000002, -13.260438)
h_7 = Segment(J_2, Q_3)
R_3 = (1.454649580000002, -14.548846000000001)
i_7 = Segment(Q_3, R_3)
S_3 = (-0.252491019999998, -15.9660948)
j_7 = Segment(R_3, S_3)
T_3 = (1.035916980000002, -17.769866)
k_7 = Segment(S_3, T_3)