Rhombicosidodecahedron by chris cambré
Loading the math board and drawing, please wait…
This example demonstrates the geometric construction and properties of the rhombicosidodecahedron. Key math concepts include polyhedra, Euler characteristic, and symmetry. Construction highlights involve commands like Midpoint, Angle, Plane, OrthogonalLine, Rotate, and Polygon from GeoGebra. Suitable for high school solid geometry teaching, geometric modeling, and mathematical visualization exploration.
GeoGebra Commands & Parameters
Midpoint(D1, D7) → AAngle(A, C, B) → α_1Plane(A, C, B) → aOrthogonalLine(C, a) → bRotate(D1, α_1, b) → E1Rotate(D2, α_1, b) → E2Rotate(D3, α_1, b) → E3Rotate(D4, α_1, b) → E4Rotate(D5, α_1, b) → E5Rotate(D6, α_1, b) → E6Rotate(D7, α_1, b) → E7Rotate(D8, α_1, b) → E8Rotate(D9, α_1, b) → E9Rotate(D10, α_1, b) → E10Rotate(D11, α_1, b) → E11Rotate(D12, α_1, b) → E12Rotate(D13, α_1, b) → E13Rotate(D14, α_1, b) → E14Rotate(D15, α_1, b) → E15Rotate(D16, α_1, b) → E16Rotate(D17, α_1, b) → E17Rotate(D18, α_1, b) → E18Rotate(D19, α_1, b) → E19Rotate(D20, α_1, b) → E20Rotate(D21, α_1, b) → E21Rotate(D22, α_1, b) → E22Rotate(D23, α_1, b) → E23Rotate(D24, α_1, b) → E24Rotate(D25, α_1, b) → E25Rotate(D26, α_1, b) → E26Rotate(D27, α_1, b) → E27Rotate(D28, α_1, b) → E28Rotate(D29, α_1, b) → E29Rotate(D30, α_1, b) → E30Rotate(D31, α_1, b) → E31Rotate(D32, α_1, b) → E32Rotate(D33, α_1, b) → E33Rotate(D34, α_1, b) → E34Rotate(D35, α_1, b) → E35Rotate(D36, α_1, b) → E36Rotate(D37, α_1, b) → E37Rotate(D38, α_1, b) → E38Rotate(D39, α_1, b) → E39Rotate(D40, α_1, b) → E40Rotate(D41, α_1, b) → E41Rotate(D42, α_1, b) → E42Rotate(D43, α_1, b) → E43Rotate(D44, α_1, b) → E44Rotate(D45, α_1, b) → E45Rotate(D46, α_1, b) → E46Rotate(D47, α_1, b) → E47Rotate(D48, α_1, b) → E48Rotate(D49, α_1, b) → E49Rotate(D50, α_1, b) → E50Rotate(D51, α_1, b) → E51Rotate(D52, α_1, b) → E52Rotate(D53, α_1, b) → E53Rotate(D54, α_1, b) → E54Rotate(D55, α_1, b) → E55Rotate(D56, α_1, b) → E56Rotate(D57, α_1, b) → E57Rotate(D58, α_1, b) → E58Rotate(D59, α_1, b) → E59Rotate(D60, α_1, b) → E60Polygon(E52, E30, E6, E8, E32) → wielokąt1, e52, e30, e6, e8, e32Rotate(E56, α, Line[E6, E30]) → E56'Rotate(E38, α, Line[E6, E30]) → E38'Polygon(E56', E6, E30, E38') → wielokąt2, e56', e6_1, e30_1, e38'Rotate(E46, α, Line[E30, E52]) → E46'Rotate(E22, α, Line[E30, E52]) → E22'Polygon(E46', E30, E52, E22') → wielokąt3, e46', e30_2, e52_1, e22'Rotate(E24, α, Line[E52, E32]) → E24'Rotate(E48, α, Line[E52, E32]) → E48'Polygon(E52, E24', E48', E32) → wielokąt4, e52_2, e24', e48', e32_1Rotate(E40, α, Line[E32, E8]) → E40'Rotate(E54, α, Line[E32, E8]) → E54'Polygon(E32, E40', E54', E8) → wielokąt5, e32_2, e40', e54', e8_1Rotate(E4, α, Line[E8, E6]) → E4'Rotate(E2, α, Line[E8, E6]) → E2'Polygon(E8, E6, E2', E4') → wielokąt6, e8_2, e6_2, e2', e4'Rotate(Rotate[E56, β, Line[E2, E6]], α, Line[E8, E6]) → DPolygon(E6, D, E2') → wielokąt7, e2'_1, e6_3, dRotate(Rotate[E46, β, Line[E38, E30]], α, Line[E6, E30]) → EPolygon(E30, E, E38') → wielokąt8, e38'_1, e30_3, eRotate(Rotate[E24, β, Line[E22, E52]], α, Line[E30, E52]) → FPolygon(E52, F, E22') → wielokąt9, e22'_1, e52_3, f_1Rotate(Rotate[E40, β, Line[E48, E32]], α, Line[E52, E32]) → GPolygon(E32, G, E48') → wielokąt10, e48'_1, e32_3, gRotate(Rotate[E4, β, Line[E54, E8]], α, Line[E32, E8]) → HPolygon(E8, H, E54') → wielokąt11, e54'_1, e8_3, hRotate(Rotate[E23, α, Line[E24, E48]], α, Line[E52, E32]) → IRotate(Rotate[E47, α, Line[E24, E48]], α, Line[E52, E32]) → JRotate(Rotate[E60, α, Line[E24, E48]], α, Line[E52, E32]) → KPolygon(I, E24', E48', K, J) → wielokąt12, i, e24'_1, e48'_2, k, jRotate(Rotate[E16, α, Line[E40, E54]], α, Line[E32, E8]) → LRotate(Rotate[E12, α, Line[E40, E54]], α, Line[E32, E8]) → MRotate(Rotate[E36, α, Line[E40, E54]], α, Line[E32, E8]) → NPolygon(E54', N, M, L, E40') → wielokąt13, e54'_2, n, m, l, e40'_1Rotate(Rotate[E28, α, Line[E4, E2]], α, Line[E8, E6]) → ORotate(Rotate[E50, α, Line[E4, E2]], α, Line[E8, E6]) → PRotate(Rotate[E26, α, Line[E4, E2]], α, Line[E8, E6]) → QPolygon(E4', E2', Q, P, O) → wielokąt14, e4'_1, e2'_2, q, p, oRotate(Rotate[E34, α, Line[E56, E38]], α, Line[E6, E30]) → RRotate(Rotate[E10, α, Line[E56, E38]], α, Line[E6, E30]) → SRotate(Rotate[E14, α, Line[E56, E38]], α, Line[E6, E30]) → TPolygon(R, E56', E38', T, S) → wielokąt15, r, e56'_1, e38'_2, t, s_1Rotate(Rotate[E59, α, Line[E46, E22]], α, Line[E30, E52]) → URotate(Rotate[E45, α, Line[E46, E22]], α, Line[E30, E52]) → VRotate(Rotate[E21, α, Line[E46, E22]], α, Line[E30, E52]) → WPolygon(E46', U, V, W, E22') → wielokąt16, e46'_1, u, v, w, e22'_2Rotate(Rotate[Rotate[E42, α, Line[E34, E10]], α, Line[E56, E38]], α, Line[E6, E30]) → ZRotate(Rotate[Rotate[E57, α, Line[E34, E10]], α, Line[E56, E38]], α, Line[E6, E30]) → A_1Polygon(Z, R, S, A_1) → wielokąt17, z_1, r_1, s_2, a_1Rotate(Rotate[Rotate[E9, α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → B_1Rotate(Rotate[Rotate[E13, α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → C_1Rotate(Rotate[Rotate[E59, α, Line[E14, E38]], α, Line[E56, E38]], α, Line[E6, E30]) → D_1Rotate(Rotate[Rotate[E46, α, Line[E14, E38]], α, Line[E56, E38]], α, Line[E6, E30]) → E_1Polygon(S, T, C_1, B_1) → wielokąt18, s_3, t_1, c_1, b_1Polygon(E38', E_1, D_1, T) → wielokąt19, e38'_3, e_1, d_1, t_2Rotate(Rotate[Rotate[E13, α, Line[E59, E45]], α, Line[E46, E22]], α, Line[E30, E52]) → F_1Rotate(Rotate[Rotate[E37, α, Line[E59, E45]], α, Line[E46, E22]], α, Line[E30, E52]) → G_1Rotate(Rotate[Rotate[E29, α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → H_1Rotate(Rotate[Rotate[E51, α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → I_1Rotate(Rotate[Rotate[E23, α, Line[E21, E22]], α, Line[E46, E22]], α, Line[E30, E52]) → J_1Rotate(Rotate[Rotate[E24, α, Line[E21, E22]], α, Line[E46, E22]], α, Line[E30, E52]) → K_1Polygon(U, V, G_1, F_1) → wielokąt20, u_1, v_1, g_1, f_2Polygon(V, H_1, I_1, W) → wielokąt21, v_2, h_1, i_1, w_1Polygon(E22', K_1, J_1, W) → wielokąt22, e22'_3, k_1, j_1, w_2Rotate(Rotate[Rotate[E51, α, Line[E23, E47]], α, Line[E24, E48]], α, Line[E52, E32]) → L_1Rotate(Rotate[Rotate[E31, α, Line[E23, E47]], α, Line[E24, E48]], α, Line[E52, E32]) → M_1Rotate(Rotate[Rotate[E39, α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → N_1Rotate(Rotate[Rotate[E15, α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → O_1Rotate(Rotate[Rotate[E16, α, Line[E60, E48]], α, Line[E24, E48]], α, Line[E52, E32]) → P_1Rotate(Rotate[Rotate[E40, α, Line[E60, E48]], α, Line[E24, E48]], α, Line[E52, E32]) → Q_1Polygon(L_1, I, J, M_1) → wielokąt23, l_1, i_2, j_2, m_1Polygon(J, N_1, O_1, K) → wielokąt24, j_3, n_1, o_1, k_2Polygon(E48', Q_1, P_1, K) → wielokąt25, e48'_3, q_1, p_1, k_3Rotate(Rotate[Rotate[E15, α, Line[E16, E12]], α, Line[E40, E54]], α, Line[E32, E8]) → R_1Rotate(Rotate[Rotate[E11, α, Line[E16, E12]], α, Line[E40, E54]], α, Line[E32, E8]) → S_1Rotate(Rotate[Rotate[E58, α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → T_1Rotate(Rotate[Rotate[E44, α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → U_1Rotate(Rotate[Rotate[E28, α, Line[E36, E54]], α, Line[E40, E54]], α, Line[E32, E8]) → V_1Rotate(Rotate[Rotate[E4, α, Line[E36, E54]], α, Line[E40, E54]], α, Line[E32, E8]) → W_1Polygon(L, M, S_1, R_1) → wielokąt26, l_2, m_2, s_4, r_2Polygon(M, T_1, U_1, N) → wielokąt27, m_3, t_3, u_2, n_2Polygon(E54', W_1, V_1, N) → wielokąt28, e54'_3, w_3, v_3, n_3Rotate(Rotate[Rotate[E44, α, Line[E28, E50]], α, Line[E4, E2]], α, Line[E8, E6]) → Z_1Rotate(Rotate[Rotate[E20, α, Line[E28, E50]], α, Line[E4, E2]], α, Line[E8, E6]) → A_2Rotate(Rotate[Rotate[E18, α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → B_2Rotate(Rotate[Rotate[E42, α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → C_2Rotate(Rotate[Rotate[E34, α, Line[E26, E2]], α, Line[E4, E2]], α, Line[E8, E6]) → D_2Rotate(Rotate[Rotate[E56, α, Line[E26, E2]], α, Line[E4, E2]], α, Line[E8, E6]) → E_2Polygon(E2', E_2, D_2, Q) → wielokąt29, e2'_3, e_2, d_2, q_2Polygon(Q, C_2, B_2, P) → wielokąt30, q_3, c_2, b_2, p_2Polygon(P, A_2, Z_1, O) → wielokąt31, p_3, a_2, z_2, o_2Rotate(Rotate[Rotate[Rotate[E44, β, Line[E36, E28]], α, Line[E36, E54]], α, Line[E40, E54]], α, Line[E32, E8]) → F_2Polygon(N, F_2, V_1) → wielokąt32, v_4, n_4, f_3Rotate(Rotate[Rotate[Rotate[E42, β, Line[E26, E34]], α, Line[E26, E2]], α, Line[E4, E2]], α, Line[E8, E6]) → G_2Polygon(Q, G_2, D_2) → wielokąt33, d_3, q_4, g_2Rotate(Rotate[Rotate[Rotate[E13, β, Line[E14, E59]], α, Line[E14, E38]], α, Line[E56, E38]], α, Line[E6, E30]) → H_2Polygon(T, H_2, D_1) → wielokąt34, d_4, t_4, h_2Rotate(Rotate[Rotate[Rotate[E51, β, Line[E21, E23]], α, Line[E21, E22]], α, Line[E46, E22]], α, Line[E30, E52]) → I_2Polygon(W, I_2, J_1) → wielokąt35, j_4, w_4, i_3Rotate(Rotate[Rotate[Rotate[E15, β, Line[E60, E16]], α, Line[E60, E48]], α, Line[E24, E48]], α, Line[E52, E32]) → J_2Polygon(K, J_2, P_1) → wielokąt36, p_4, k_4, j_5Rotate(Rotate[Rotate[Rotate[E39, β, Line[E31, E47]], α, Line[E23, E47]], α, Line[E24, E48]], α, Line[E52, E32]) → K_2Polygon(J, K_2, M_1) → wielokąt37, m_4, j_6, k_5Rotate(Rotate[Rotate[Rotate[E58, β, Line[E11, E12]], α, Line[E16, E12]], α, Line[E40, E54]], α, Line[E32, E8]) → L_2Polygon(M, L_2, S_1) → wielokąt38, s_5, m_5, l_3Rotate(Rotate[Rotate[Rotate[E18, β, Line[E20, E50]], α, Line[E28, E50]], α, Line[E4, E2]], α, Line[E8, E6]) → M_2Polygon(P, M_2, A_2) → wielokąt39, a_3, p_5, m_6Rotate(Rotate[Rotate[Rotate[E9, β, Line[E57, E10]], α, Line[E34, E10]], α, Line[E56, E38]], α, Line[E6, E30]) → N_2Polygon(S, N_2, A_1) → wielokąt40, a_4, s_6, n_5Rotate(Rotate[Rotate[Rotate[E29, β, Line[E37, E45]], α, Line[E59, E45]], α, Line[E46, E22]], α, Line[E30, E52]) → O_2Polygon(V, O_2, G_1) → wielokąt41, g_3, v_5, o_3Rotate(Rotate[Rotate[Rotate[E33, α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → P_2Rotate(Rotate[Rotate[Rotate[E53, α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → Q_2Rotate(Rotate[Rotate[Rotate[E37, α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → R_2Polygon(C_1, R_2, Q_2, P_2, B_1) → wielokąt42, c_3, r_3, q_5, p_6, b_3Rotate(Rotate[Rotate[Rotate[E5, α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → S_2Rotate(Rotate[Rotate[Rotate[E7, α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → T_2Rotate(Rotate[Rotate[Rotate[E31, α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → U_2Polygon(H_1, I_1, U_2, T_2, S_2) → wielokąt43, h_3, i_4, u_3, t_5, s_7Rotate(Rotate[Rotate[Rotate[E55, α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → V_2Rotate(Rotate[Rotate[Rotate[E35, α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → W_2Rotate(Rotate[Rotate[Rotate[E11, α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → Z_2Polygon(V_2, N_1, O_1, Z_2, W_2) → wielokąt44, v_6, n_6, o_4, z_3, w_5Rotate(Rotate[Rotate[Rotate[E43, α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → A_3Rotate(Rotate[Rotate[Rotate[E19, α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → B_3Rotate(Rotate[Rotate[Rotate[E20, α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → C_3Polygon(T_1, U_1, C_3, B_3, A_3) → wielokąt45, t_6, u_4, c_4, b_4, a_5Rotate(Rotate[Rotate[Rotate[E17, α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → D_3Rotate(Rotate[Rotate[Rotate[E41, α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → E_3Rotate(Rotate[Rotate[Rotate[E57, α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → F_3Polygon(C_2, F_3, E_3, D_3, B_2) → wielokąt46, c_5, f_4, e_3, d_5, b_5Rotate(Rotate[Rotate[Rotate[Rotate[E17, α, Line[E19, E20]], α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → G_3Rotate(Rotate[Rotate[Rotate[Rotate[E18, α, Line[E19, E20]], α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → H_3Polygon(B_3, C_3, H_3, G_3) → wielokąt47, b_6, c_6, h_4, g_4Rotate(Rotate[Rotate[Rotate[Rotate[E33, α, Line[E41, E57]], α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → I_3Rotate(Rotate[Rotate[Rotate[Rotate[E9, α, Line[E41, E57]], α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → J_3Polygon(E_3, I_3, J_3, F_3) → wielokąt48, e_4, i_5, j_7, f_5Rotate(Rotate[Rotate[Rotate[Rotate[E5, α, Line[E53, E37]], α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → K_3Rotate(Rotate[Rotate[Rotate[Rotate[E29, α, Line[E53, E37]], α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → L_3Polygon(Q_2, K_3, L_3, R_2) → wielokąt49, q_6, k_6, l_4, r_4Rotate(Rotate[Rotate[Rotate[Rotate[E55, α, Line[E7, E31]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → M_3Rotate(Rotate[Rotate[Rotate[Rotate[E39, α, Line[E7, E31]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → N_3Polygon(T_2, M_3, N_3, U_2) → wielokąt50, t_7, m_7, n_7, u_5Rotate(Rotate[Rotate[Rotate[Rotate[E43, α, Line[E35, E11]], α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → O_3Rotate(Rotate[Rotate[Rotate[Rotate[E58, α, Line[E35, E11]], α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → P_3Polygon(W_2, Z_2, P_3, O_3) → wielokąt51, w_6, z_4, p_7, o_5Rotate(Rotate[Rotate[Rotate[Rotate[E27, α, Line[E55, E35]], α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → Q_3Rotate(Rotate[Rotate[Rotate[Rotate[E3, α, Line[E55, E35]], α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → R_3Polygon(R_3, Q_3, W_2, V_2) → wielokąt52, r_5, q_7, w_7, v_7Rotate(Rotate[Rotate[Rotate[Rotate[E27, α, Line[E43, E19]], α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → S_3Rotate(Rotate[Rotate[Rotate[Rotate[E49, α, Line[E43, E19]], α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → T_3Polygon(S_3, A_3, B_3, T_3) → wielokąt53, s_8, a_6, b_7, t_8Rotate(Rotate[Rotate[Rotate[Rotate[E49, α, Line[E17, E41]], α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → U_3Rotate(Rotate[Rotate[Rotate[Rotate[E25, α, Line[E17, E41]], α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → V_3Polygon(U_3, V_3, E_3, D_3) → wielokąt54, u_6, v_8, e_5, d_6Rotate(Rotate[Rotate[Rotate[Rotate[E25, α, Line[E33, E53]], α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → W_3Rotate(Rotate[Rotate[Rotate[Rotate[E1, α, Line[E33, E53]], α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → Z_3Polygon(W_3, P_2, Q_2, Z_3) → wielokąt55, w_8, p_8, q_8, z_5Rotate(Rotate[Rotate[Rotate[Rotate[E1, α, Line[E5, E7]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → A_4Rotate(Rotate[Rotate[Rotate[Rotate[E3, α, Line[E5, E7]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → B_4Polygon(A_4, S_2, T_2, B_4) → wielokąt56, a_7, s_9, t_9, b_8Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E25, α, Line[E1, E3]], α, Line[E5, E7]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → C_4Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E49, α, Line[E1, E3]], α, Line[E5, E7]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → D_4Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E27, α, Line[E1, E3]], α, Line[E5, E7]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → E_4Polygon(C_4, A_4, B_4, E_4, D_4) → wielokąt57, c_7, a_8, b_9, e_6, d_7Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E7, β, Line[E55, E3]], α, Line[E55, E35]], α, Line[E39, E15]], α, Line[E47, E60]], α, Line[E24, E48]], α, Line[E52, E32]) → F_4Polygon(R_3, F_4, V_2) → wielokąt58, v_9, r_6, f_6Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E35, β, Line[E43, E27]], α, Line[E43, E19]], α, Line[E58, E44]], α, Line[E12, E36]], α, Line[E40, E54]], α, Line[E32, E8]) → G_4Polygon(S_3, G_4, A_3) → wielokąt59, a_9, s_{10}, g_5Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E19, β, Line[E17, E49]], α, Line[E17, E41]], α, Line[E18, E42]], α, Line[E50, E26]], α, Line[E4, E2]], α, Line[E8, E6]) → H_4Polygon(U_3, H_4, D_3) → wielokąt60, d_8, u_7, h_5Rotate(Rotate[Rotate[Rotate[Rotate[Rotate[E41, β, Line[E33, E25]], α, Line[E33, E53]], α, Line[E9, E13]], α, Line[E10, E14]], α, Line[E56, E38]], α, Line[E6, E30]) → I_4Polygon(W_3, I_4, P_2) → wielokąt61, p_9, w_9, i_6Rotate(Rotate[Rotate[Rotate[Rotate[E53, β, Line[E5, E1]], α, Line[E29, E51]], α, Line[E45, E21]], α, Line[E46, E22]], α, Line[E30, E52]) → J_4Polygon(A_4, J_4, S_2) → wielokąt62, s_{11}, a_{10}, j_8
AI Drawing Prompt Reference
Draw a rhombicosidodecahedron by first finding the midpoint A of D1 and D7, then calculating the angle α1 between A, C, and B, and rotating D1 around α1 in plane b to get E1. Repeat this process for D2 to D44, resulting in all vertices of the rhombicosidodecahedron.
The prompt above was compiled from the original drawing commands and is for reference only.