Pequeño rombicuboctaedro

Se realizan dos tipos de cortes, los que son perpendiculares a las diagonales espaciales y con planos perpendiculares a otros planos que pasan por aristas opuestas.

Arista

Radio

Pequeño rombicuboctaedro

Animación

RA = 1 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t_1 = 1.7320508075688772
c = 1.4142135623730951
n = 4 (slider from 3 to 5, step 1)
L = 4 (slider from 1 to 5, step 0.1)
ar = If(n ≟ 3, L / t_1, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O: (0, 0, 0)
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 0.4 (slider from -1 to 1, step 0.1)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
P06, B, C, D, E, F, c3, c5, c4, c2, c1, c6, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', A'')
px: 0.828
t = 0.42 (slider from 0 to 1, step 1.0E-4)
P: O + (t * (A - O))
G = Midpoint(A'', C)
a = Sphere(G, P)
f = Segment(E, B)
g = Segment(F, A'')
h = Segment(B, C)
i = Segment(F, A)
j = Segment(C, E)
k = Segment(D, F)
l = Segment(B, A')
m = Segment(A, A'')
r = Segment(A', C)
I = Intersect(aristaA'A'', l)
s = Segment(I, E)
q = Segment(D, A'')
d = Segment(D, A)
H, J = Intersect(r, a)
K, M = Intersect(d, a)
N, Q = Intersect(k, a)
R, S = Intersect(j, a)
T, U = Intersect(q, a)
V, W = Intersect(s, a)
Z, A_1 = Intersect(i, a)
B_1, C_1 = Intersect(h, a)
D_1, E_1 = Intersect(f, a)
F_1, G_1 = Intersect(g, a)
c7, m_1, h_1, k_1, j_1 = Polygon(M, H, K, J)
c8, r_1, n_1, s_1, q_1 = Polygon(R, N, S, Q)
c9, v_1, u, w_4, t_2 = Polygon(V, U, W, T)
H_1, I_1 = Intersect(m, a)
J_1, K_1 = Intersect(l, a)
texto1 = LaTeX(a, true, true)
c10, g_1, e_1, f_1, d_1 = Polygon(G_1, E_1, F_1, D_1)
c11, b_1, a_1, c_1, z_1 = Polygon(B_1, A_1, C_1, Z)
c12, j_2, h_2, k_2, i_1 = Polygon(J_1, H_1, K_1, I_1)
c13, j_3, r_2, n_2, k_3 = Polygon(J, R, N, K)
c14, t_3, w_1, s_2, n_3 = Polygon(T, W, S, N)
c15, d_2, f_2, q_2, s_3 = Polygon(D_1, F_1, Q, S)
c16, z_2, c_2, r_3, q_3 = Polygon(Z, C_1, R, Q)
c17, b_2, a_2, h_3, j_4 = Polygon(B_1, A_1, H_1, J_1)
c18, h_4, k_4, h_5, m_2 = Polygon(H_1, K_1, H, M)
c19, k_5, i_2, u_1, v_2 = Polygon(K_1, I_1, U, V)
c20, i_3, j_5, e_2, g_2 = Polygon(I_1, J_1, E_1, G_1)
c21, u_2, g_3, d_3, w_2 = Polygon(U, G_1, D_1, W)
c22, e_3, b_3, z_3, f_3 = Polygon(E_1, B_1, Z, F_1)
c23, c_3, a_3, m_3, j_6 = Polygon(C_1, A_1, M, J)
M_1 = Intersect(r, h_5)
c24, k_6, t_4, v_3, m_4 = Polygon(K, T, V, M_1)
N_1 = Intersect(d, k_6)
t1, n_4, n_5, t_5 = Polygon(N_1, T, N)
t2, s_4, w_3, d_4 = Polygon(W, D_1, S)
t3, q_4, f_4, z_4 = Polygon(F_1, Z, Q)
t4, h_6, a_4, m_5 = Polygon(A_1, M, H_1)
t5, k_7, m_6, v_4 = Polygon(M_1, V, K_1)
t6, u_3, i_4, g_4 = Polygon(I_1, G_1, U)
t7, e_4, j_7, b_4 = Polygon(J_1, B_1, E_1)
O_1 = Intersect(h, c_2)
t8, r_4, c_4, j_8 = Polygon(C_1, J, R)
distanciaAO = Distance(A, O)
TextoAO: Name[A] + (Name[O]) + " = " + distanciaAO
distanciaAH1 = Distance(A, H_1)
TextoAH1: Name[A] + (Name[H_1]) + " = " + distanciaAH1
d1 = Distance(R, N)
d2 = Distance(R, J)
w = 0 (slider from -1 to 1, step 0.1)
l1 = 0 (slider from 0 to 1, step 1)
texto2: "Arista del  cubo " + L + ""
v10: (10 * v)
w5: (10 * w)
texto4: "Velocidad de cortes " + w5 + ""
texto3: "Velocidad de giro " + v10 + ""
nada = -4.4 (slider from -5 to 5, step 0.1)