Cubo+Octaedro

Poliedro compuesto por un cubo y un octaedro cuyas aristas se cortan en los puntos medios.

Animación

Ver el octaedro grande

Cuboctaedro

Sólido de Kelvin

Cubo truncado

Compuesto: Cubo + Octaedro

t = 0.6667 (slider from 0 to 1.2, step 1.0E-4)
O: (0, 0, 0)
L = 3.2 (slider from 1 to 4, step 0.1)
n = 4 (slider from 3 to 5, step 1)
c = 1.4142135623730951
t_1 = 1.7320508075688772
p = 1.1755705045849463
ar = If(n ≟ 3, L / t_1, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
RA = 1 (slider from 0 to 1, step 1)
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
p06, B, C, D, E, F, caraAA'A''B, caraABFC, caraAA'DC, caraA'A''ED, caraA''BFE, caraCDEF, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', A'')
T_3 = Midpoint(E, A')
N_3 = Midpoint(A, D)
G = Midpoint(B, D)
LL3: G + ((t * (T_3 - G)) * 3)
LL2: G + ((t * (N_3 - G)) * 3)
LL1: G + ((t * (O - G)) * 3)
v = 0.4 (slider from -1 to 1, step 0.1)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
P0: G + (t * (A - G))
f = Line(A, E)
a = OrthogonalPlane(P0, f)
a' = Mirror(a, G)
P1: G + (t * (A' - G))
g = Line(F, A')
d = OrthogonalPlane(P1, g)
d' = Mirror(d, G)
h = Line(B, D)
i = Line(C, A'')
P2: G + (t * (B - G))
P3: G + (t * (A'' - G))
e = OrthogonalPlane(P2, h)
e' = Mirror(e, G)
j = OrthogonalPlane(P3, i)
j' = Mirror(j, G)
p01, H, I, J, K, M, N, k, l, m, q, r, s = IntersectPath(a, p06)
p02_1, P, Q, R, S, T, U, f_1, g_1, h_1, i_1, j_1, k_1 = IntersectPath(a', p06)
p03_1, J_1, K_1, L_1, P_3, Q_3, R_3, f_2, g_2, h_2, c_4, d_4, e_4 = IntersectPath(d, p06)
p04_1, M_1, N_1, O_1, M_4, N_4, O_4, i_2, j_2, k_2, e_5, f_6, g_6 = IntersectPath(d', p06)
p06_1, V, W, Z, A_1, B_1, C_1, l_1, m_1, n_1, p_1, q_1, r_1 = IntersectPath(e', p06)
p07_1, D_1, E_1, F_1, G_1, H_1, I_1, s_1, a_1, b_1, c_1, d_1, e_1 = IntersectPath(j, p06)
p08_1, P_1, Q_1, R_1, S_1, T_1, U_1, l_2, m_2, n_2, p_2, q_2, r_2 = IntersectPath(j', p06)
p05, V_1, W_1, Z_1, A_2, B_2, C_2, s_2, t_2, a_2, b_2, c_2, d_2 = IntersectPath(e, p06)
polígono1, d_3, v_1, z_1, n_3, o_1, r_3, q_3, f_3 = Polygon(D_1, V_1, Z_1, N_1, O_1, R, Q, F_1)
polígono2, w_1, h_3, j_3, p_3, q_4, m_3, n_4, z_2 = Polygon(W_1, H, J, P_1, Q_1, M_1, N_1, Z_1)
D_2 = Intersect(aristaEF, n_3)
polígono3, m_4, q_5, r_4, v_2, z_3, p_4, r_5, d_5 = Polygon(M_1, Q_1, R_1, V, Z, P, R, D_2)
polígono4, p_5, j_4, i_3, k_3, l_3, w, v_3, r_6 = Polygon(P_1, J, I, K_1, L_1, W, V, R_1)
polígono5, w_2, l_4, j_5, e_2, f_4, q_6, p_6, z_4 = Polygon(W, L_1, J_1, E_1, F_1, Q, P, Z)
polígono6, k_4, i_4, h_4, w_3, v_4, d_6, e_3, j_6 = Polygon(K_1, I, H, W_1, V_1, D_1, E_1, J_1)
E_2 = Intersect(j_4, k_3)
F_2 = Intersect(w, r_6)
G_2 = Intersect(j_4, r_6)
H_2 = Intersect(w, k_3)
I_2 = Intersect(v_2, p_4)
J_2 = Intersect(d_5, p_4)
K_2 = Intersect(q_5, d_5)
L_2 = Intersect(v_2, q_5)
M_2 = Intersect(z_4, l_4)
N_2 = Intersect(z_4, q_6)
O_2 = Intersect(e_2, l_4)
P_2 = Intersect(f_3, r_3)
Q_2 = Intersect(r_3, n_3)
R_2, S_2 = Intersect(n_3, caraA''BFE)
T_2 = Intersect(v_1, n_3)
U_2 = Intersect(v_1, f_3)
V_2 = Intersect(z_2, m_3)
W_2 = Intersect(p_3, m_3)
Z_2 = Intersect(d_6, w_3)
A_3 = Intersect(w_3, i_4)
B_3 = Intersect(i_4, j_6)
polígono7, w_4, k_5, j_7, q_7, t_3, v_5 = Polygon(W_2, K_2, J_2, Q_2, T_2, V_2)
C_3 = Intersect(h_3, p_3)
D_3 = Intersect(h_3, z_2)
E_3 = Intersect(q_6, e_2)
polígono8, w_5, k_6, l_5, f_5, g_3, c_3 = Polygon(W_2, K_2, L_2, F_2, G_2, C_3)
c1, k_7, l_6, i_5, j_8 = Polygon(K_2, L_2, I_2, J_2)
t1, j_9, k_8, l_7 = Polygon(K_1, L_1, J_1)
t2, v_6, w_6, z_5 = Polygon(W, Z, V)
t3, q_8, p_7, r_7 = Polygon(P_1, R_1, Q_1)
t4, f_7, e_6, d_7 = Polygon(E_1, D_1, F_1)
t5, r_8, q_9, p_8 = Polygon(Q, P, R)
t6, r_9, s_3, m_5 = Polygon(S_2, M_1, R_2)
t7, w_7, v_7, z_6 = Polygon(V_1, Z_1, W_1)
t8, i_6, h_5, j_{10} = Polygon(H, J, I)
c2, g_4, e_7, h_6, f_8 = Polygon(G_2, E_2, H_2, F_2)
c3, m_6, n_5, e_8, o_2 = Polygon(M_2, N_2, E_3, O_2)
c4, p_9, q_{10}, t_4, u_2 = Polygon(P_2, Q_2, T_2, U_2)
c5, v_8, w_8, c_5, d_8 = Polygon(V_2, W_2, C_3, D_3)
F_3 = Intersect(l_7, f_7)
c6, a_3, b_3, s_4, a_4 = Polygon(Z_2, A_3, B_3, F_3)
Z2 = NaN
G_3 = Intersect(j_{10}, z_6)
polígono9, z_7, a_5, d_9, v_9, t_5, u_1 = Polygon(Z_2, A_3, D_3, V_2, T_2, U_2)
H_3 = Intersect(z_6, a_5)
I_3 = Intersect(j_9, h_5)
polígono10, c_6, d_{10}, h_7, b_4, i_7, g_5 = Polygon(C_3, D_3, H_3, B_3, I_3, G_2)
J_3 = Intersect(l_7, b_4)
polígono11, i_8, g_7, c_7, d_{11}, h_8, j_{11} = Polygon(I_3, G_2, C_3, D_3, H_3, J_3)
polígono12, f_9, z_8, u_3, p_{10}, e_9, o_3 = Polygon(F_3, Z_2, U_2, P_2, E_3, O_2)
polígono13, e_{10}, p_{11}, q_{11}, j_{12}, i_9, n_6 = Polygon(E_3, P_2, Q_2, J_2, I_2, N_2)
polígono14, h_9, m_7, n_7, i_{10}, l_8, f_{10} = Polygon(H_2, M_2, N_2, I_2, L_2, F_2)
polígono15, z_9, h_{10}, d_{12}, v_{10}, t_6, u_4 = Polygon(Z_2, H_3, D_3, V_2, T_2, U_2)
K_3 = Midpoint(F, D)
s_5 = Segment(K_3, O)
L_3 = Intersect(s_5, a)
M_3 = Midpoint(B, E)
b_5 = Segment(M_3, N_3)
S_3 = Midpoint(F, A)
s_6 = Segment(S_3, T_3)
O_3 = Intersect(b_5, a)
U_3 = Intersect(s_6, e')
p08, V_3, W_3, Z_3, cara1, cara2, cara3, cara4, cara5, cara6, cara7, cara8, arista1, arista2, arista3, arista4, arista5, arista6, arista7, arista8, arista9, arista10, arista11, arista12 = Octahedron(LL1, LL2, LL3)
p08B: p08
p06b: p06
aa = 1 (slider from 0 to 1, step 1)
ab = 0 (slider from 0 to 1, step 1)
o = 0 (slider from 0 to 2, step 0.1)
v10: (20 * v)
texto1: "Velocidad de giro " + v10 + ""
nada = 1.2 (slider from -5 to 5, step 0.1)
u = false
texto4: "Arista del cubo " + L + ""
o5: (5 * o)
distanciaPZ = Distance(P, Z)
TextoPZ: Name[P] + (Name[Z]) + " = " + distanciaPZ
distanciaZW = Distance(Z, W)
TextoZW: Name[Z] + (Name[W]) + " = " + distanciaZW
v11: floor(v10)
texto3: "Veloc. animación " + o5 + ""
p06c: p06
r1 = 1 (slider from 0 to 1, step 1)
p08c: p08