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

B

A

A'

B'

A

A'

A

O = (10.376874980000002, -6.657347000000001)
Escala = 6 (slider from 1 to 6, step 0.1)
M_3 = (0, 1)
U_1 = (1, 0)
O_r = (0, 0)
mira2 = Ellipse(O_r - (0, 0.95), O_r + (0, 0.95), 1)
B = Point(mira2)
θ = Angle(M_3, O_r, B)
k: ((0, cos(θ)) * Escala)
mira1 = Ellipse(O_r - (0.95, 0), O_r + (0.95, 0), 1)
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 = 3.975 (slider from 0 to 4, step 0.001)
tt = If(t > 2, t - 2, t)
tt1 = If(tt < 1, tt, 1)
tt2 = If(tt ≥ 1, tt - 1, 0)
W1: O + i + j - k
tetraLW: {1, -1, 1}
BM = (-0.24887, 0.60393)
AM = (0.97427, -0.07038)
x0 = 3
φ2 = Angle(U_1, O_r, AM)
θ2 = Angle(M_3, O_r, BM)
MM2: {{sin(φ2), ((-cos(φ2)) * sin(θ2)), 0}, {cos(φ2), (sin(φ2) * sin(θ2)), 0}, {0, cos(θ2), 1}}
MM1: {{sin(φ), ((-cos(φ)) * sin(θ)), 0}, {cos(φ), (sin(φ) * sin(θ)), 0}, {0, cos(θ), 1}}
MM': (MM2 * Invert[MM1])
iguales = false
hh = If(iguales, 1, 0.5 + cos(φ)^(2))
LV0204: {0, -1, -1}
q3 = 0.1 (slider from -1 to 4, step 0.1)
gg = If(iguales, hh, 2 - hh)
g3: ((2 * q3) * cos(φ))
q2 = 1 (slider from -1 to 4, step 0.1)
g2: ((2 * q2) * cos(φ))
q1 = 2 (slider from -1 to 4, step 0.1)
g1: ((2 * 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, cos(θ2)) * Escala)
j2: ((cos(φ2), (sin(φ2) * sin(θ2))) * Escala)
i2: ((sin(φ2), ((-cos(φ2)) * sin(θ2))) * Escala)
MV1 = Join(({({1, 1, -1} * hh)} * MM))
fi = 1.618033988749895
MV8 = Join(({({-1, -1, -1} * hh)} * MM))
r = 0.8 (slider from 0 to 2, step 0.01)
MV7 = Join(({({-1, -1, 1} * hh)} * MM))
MV6 = Join(({({-1, 1, -1} * hh)} * MM))
MV5 = Join(({({-1, 1, 1} * hh)} * MM))
MV4 = Join(({({1, -1, -1} * hh)} * MM))
MV2 = Join(({({1, 1, 1} * hh)} * MM))
MV3 = Join(({({1, -1, 1} * hh)} * MM))
u = Vector(O_r, O)
yz: (Escala * cos(θ))
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), U_1)
m = Segment((0, -1), 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 = false
aristas = true
verEjes = false
C_1 = (-1, -2)
D = (1, -2)
E = (1, -4)
F = (-1, -4)
proyecta = false
solo = false
grafo = false
papelAncho = 18.7
papelAlto = 18.7
T = (3.5, 1.2)
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)
a = Line(O, j)
g = Line(O, i)
j_{13} = Line(O, k)
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}
cuboL5: {-1, 0, 0}
cuboL3: {0, 1, 0}
cuboL6: {0, -1, 0}
cuboL2: {0, 0, 1}
cuboL4: {0, 0, -1}
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)
MV10 = Join(({({1 + h3i, 1 + h3j, 1 + h3k} * gg)} * MM))
MV9 = Join(({({1 + h3i, 1 + h3j, -1 + h3k} * gg)} * MM))
MV11 = Join(({({1 + h3i, -1 + h3j, 1 + h3k} * gg)} * MM))
MV12 = Join(({({1 + h3i, -1 + h3j, -1 + h3k} * gg)} * MM))
MV13 = Join(({({-1 + h3i, 1 + h3j, 1 + h3k} * gg)} * MM))
MV14 = Join(({({-1 + h3i, 1 + h3j, -1 + h3k} * gg)} * MM))
MV15 = Join(({({-1 + h3i, -1 + h3j, 1 + h3k} * gg)} * MM))
MV16 = Join(({({-1 + h3i, -1 + h3j, -1 + h3k} * gg)} * MM))
cubo1 = false
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, 1, 0}
cuboL8: {1, 0, -1}
cuboL9: {1, 0, 1}
cuboL10: {1, -1, 0}
cuboL11: {0, -1, -1}
cuboL12: {-1, 1, 0}
cuboL13: {0, -1, 1}
cuboL14: {-1, 0, -1}
cuboL15: {-1, -1, 0}
cuboL16: {-1, 0, 1}
cuboL17: {0, 1, -1}
cuboL18: {0, 1, 1}
centro = false
v = 1 (slider from 0 to 5, step 0.1)
nada = 0.5 (slider from 0 to 1, step 0.1)
t1 = If(t < 1, t, 1)
t2 = If(t ≥ 1 ∧ t ≤ 2, t - 1, If[t < 1, 0, 1])
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 ∧ t ≤ 3, t - 2, If[t < 2, 0, 1])
t4 = If(t ≥ 3 ∧ t ≤ 4, t - 3, If[t < 3, 0, 1])
t5 = If(t ≥ 4 ∧ t ≤ 5, t - 4, If[t < 4, 0, 1])
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 - t1)) + gg + (t1 * (hh - gg)), (g2 * (1 - t1)) - gg + (t1 * ((-hh) + gg)), (g3 * (1 - 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] * Element[LV0310, 3]) - (Element[LV0312, 3] * Element[LV0310, 2]), (Element[LV0312, 3] * Element[LV0310, 1]) - (Element[LV0312, 1] * Element[LV0310, 3]), (Element[LV0312, 1] * Element[LV0310, 2]) - (Element[LV0312, 2] * Element[LV0310, 1])}
tetraL2: {(Element[LV0315, 2] * Element[LV0312, 3]) - (Element[LV0315, 3] * Element[LV0312, 2]), (Element[LV0315, 3] * Element[LV0312, 1]) - (Element[LV0315, 1] * Element[LV0312, 3]), (Element[LV0315, 1] * Element[LV0312, 2]) - (Element[LV0315, 2] * Element[LV0312, 1])}
zzt1cara2: O + (Element[tetraL2, 1] * i) + (Element[tetraL2, 2] * j) + (Element[tetraL2, 3] * k)
tetraL4: {(Element[LV0310, 2] * Element[LV0315, 3]) - (Element[LV0310, 3] * Element[LV0315, 2]), (Element[LV0310, 3] * Element[LV0315, 1]) - (Element[LV0310, 1] * Element[LV0315, 3]), (Element[LV0310, 1] * Element[LV0315, 2]) - (Element[LV0310, 2] * Element[LV0315, 1])}
zzVectorTetra1 = Vector((N1103 + N1110 + N1112) / 3, (N1103 + N1110 + N1112 + (Element[tetraL1, 1] * i) + (Element[tetraL1, 2] * j) + (Element[tetraL1, 3] * k)) / 3)
zzVectorTetra2 = Vector((N1103 + N1115 + N1112) / 3, (N1103 + N1115 + N1112 + (Element[tetraL2, 2] * i) + (Element[tetraL2, 2] * j) + (Element[tetraL2, 3] * k)) / 3)
tetraL3: {-1, 1, -1}
zzVectorTetra3 = Vector((N1112 + N1110 + N1115) / 3, (N1112 + N1110 + N1115 + (Element[tetraL3, 1] * i) + (Element[tetraL3, 2] * j) + (Element[tetraL3, 3] * k)) / 3)
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, -1, 1}
tetraL7: {(Element[LV0204, 2] * Element[LV0216, 3]) - (Element[LV0204, 3] * Element[LV0216, 2]), (Element[LV0204, 3] * Element[LV0216, 1]) - (Element[LV0204, 1] * Element[LV0216, 3]), (Element[LV0204, 1] * Element[LV0216, 2]) - (Element[LV0204, 2] * Element[LV0216, 1])}
zzVectorTetra5 = Vector(O, O + ((Element[tetraL5, 1] * i) + (Element[tetraL5, 2] * j) + (Element[tetraL5, 3] * k)) / 3)
LV0209: {g1 + gg - hh, g2 + gg - hh, g3 - gg - hh}
LV0213: {g1 - gg - hh, g2 + gg - hh, g3 + gg - hh}
tetraL6: {(Element[LV0209, 2] * Element[LV0213, 3]) - (Element[LV0209, 3] * Element[LV0213, 2]), (Element[LV0209, 3] * Element[LV0213, 1]) - (Element[LV0209, 1] * Element[LV0213, 3]), (Element[LV0209, 1] * Element[LV0213, 2]) - (Element[LV0209, 2] * Element[LV0213, 1])}
LV0713: {g1 - gg + hh, g2 + gg + hh, g3 + gg - hh}
LV0716: {g1 - gg + hh, g2 - gg + hh, g3 - gg - hh}
tetraL8: {(Element[LV0713, 2] * Element[LV0716, 3]) - (Element[LV0713, 3] * Element[LV0716, 2]), (Element[LV0713, 3] * Element[LV0716, 1]) - (Element[LV0713, 1] * Element[LV0716, 3]), (Element[LV0713, 1] * Element[LV0716, 2]) - (Element[LV0713, 2] * Element[LV0716, 1])}
Ocentro: O
verticesSeccion = true
n20 = Segment(N0304, N1204)
diagonal = true
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
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, 1, -1}} * MM))
MW2 = Join(({{1, 1, 1}} * MM))
MW3 = Join(({{1, -1, 1}} * MM))
MW4 = Join(({{1, -1, -1}} * MM))
MW5 = Join(({{-1, 1, 1}} * MM))
MW6 = Join(({{-1, 1, -1}} * MM))
MW7 = Join(({{-1, -1, 1}} * MM))
MW8 = Join(({{-1, -1, -1}} * MM))
NW0307: W3 + (t1 * (W7 - W3))
NW0302: W3 + (t1 * (W2 - W3))
NW0304: W3 + (t1 * (W4 - W3))
polígono25: {Polygon[NW0304, NW0302, NW0307]}
r_5 = Segment(NW0307, NW0302)
s_5 = Segment(NW0302, NW0304)
t_5 = Segment(NW0307, NW0304)
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))
m_5 = Segment(NW0408, NW0401)
b_6 = Segment(NW0201, NW0205)
d_6 = Segment(NW0705, NW0708)
NW0506: W5 + (t3 * (W6 - W5))
NW0806: W8 + (t3 * (W6 - W8))
NW0106: W1 + (t3 * (W6 - W1))
polígono26: {Polygon[NW0806, NW0106, NW0506]}
l_6 = Segment(NW0806, NW0506)
m_6 = Segment(NW0506, NW0106)
n_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)
polígono28: {Polygon[W4, W1, W2, W3]}
NZ0304: W3 + (tt1 * (W4 - W3))
NZ0401: W4 + (tt2 * (W1 - W4))
NZ0302: W3 + (tt1 * (W2 - W3))
t_6 = Segment(NZ0302, NZ0304)
NZ0201: W2 + (tt2 * (W1 - W2))
c_7 = Segment(NZ0401, NZ0201)
e_7 = Segment(W3, W1)
ttt: t - floor(t)
NY0304: W3 + (ttt * (W4 - W3))
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)