Munición

listanat = Sequence(k, k, 1, 25)
numenat = Sequence(Element[listanat, Random[1, Length[listanat]]], t, 1, 6)
sumanat = Sequence(Sequence[Element[numenat, s] + Element[numenat, t], t, 1, 5], s, 1, 5)
multinat = Sequence(Sequence[(Element[numenat, s] * Element[numenat, t]), t, 1, 5], s, 1, 5)
panal11nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal14nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal12nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal13nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal21nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal22nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal23nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal24nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal31nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal32nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal33nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal34nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal41nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal42nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
panal43nat: Element[numenat, Random[1, Length[numenat]]] + Element[numenat, Random[1, Length[numenat]]]
panal44nat: (Element[numenat, Random[1, Length[numenat]]] * Element[numenat, Random[1, Length[numenat]]])
R_3 = (-1.06, 4.9)
S_3 = (7.94, 4.9)
T_3 = (7.94, 3.9)
U_3 = (-1.06, 3.9)
polígono17, r_5, s_4, t_4, u_3 = Polygon(R_3, S_3, T_3, U_3)
V_3 = Point(r_5)
W_3 = Point(t_4)
p_4 = Segment(V_3, W_3)
Z_3 = Point(r_5)
A_4 = Point(t_4)
q_4 = Segment(Z_3, A_4)
B_4 = Point(r_5)
C_4 = Point(t_4)
a_5 = Segment(B_4, C_4)
D_4 = Point(r_5)
E_4 = Point(t_4)
b_5 = Segment(D_4, E_4)
F_4 = Point(r_5)
G_4: (x(F_4), y(E_4))
c_5 = Segment(F_4, G_4)
H_4 = (12.12435565298214, -1)
T_4 = (-1.7320508075688772, -7)
fila1panal: {panal11nat, panal12nat, panal13nat, panal14nat}
fila2panal: {panal21nat, panal22nat, panal23nat, panal24nat}
fila3panal: {panal31nat, panal32nat, panal33nat, panal34nat}
fila4panal: {panal41nat, panal42nat, panal43nat, panal44nat}
A1 = (3.4641016151377544, 2)
A2 = (5.196152422706632, 1)
A3 = (6.928203230275509, 0)
A4 = (8.660254037844386, -1)
A5 = (1.7320508075688772, 1)
A6 = (3.4641016151377544, 0)
A7 = (5.196152422706632, -1)
A8 = (6.928203230275509, -2)
A9 = (0, 0)
A10 = (1.7320508075688772, -1)
A11 = (3.4641016151377544, -2)
A12 = (5.196152422706632, -3)
A13 = (-1.7320508075688772, -1)
A14 = (0, -2)
A15 = (1.7320508075688772, -3)
A16 = (3.4641016151377544, -4)
A: (A15 + A11 + A16) / 3
B: (A11 + A12 + A16) / 3
polígono1, b, a, c, d, e, f, C, D, E, F = Polygon(B, A, 6)
polígono2, c_1, a_1, g, h, i, j, G, H, I, J = Polygon(C, A, 6)
polígono3, i_1, h_1, k, l, m, n, K, L, M, N = Polygon(I, H, 6)
polígono4, m_1, l_1, p, q, r, s, O, P, Q, R = Polygon(M, L, 6)
polígono5, b_1, f_1, t, d_1, e_1, g_1, S, T, U, V = Polygon(B, F, 6)
polígono6, u_2, t_1, j_1, k_1, n_1, p_1, W, Z, A_1, B_1 = Polygon(U, T, 6)
polígono7, a_2, z, q_1, r_1, s_1, b_2, C_1, D_1, E_1, F_1 = Polygon(A_1, Z, 6)
polígono8, a_3, b_3, c_2, d_2, e_2, f_2, G_1, H_1, I_1, J_1 = Polygon(A, B, 6)
polígono9, j_2, i_2, g_2, h_2, k_2, l_2, K_1, L_1, M_1, N_1 = Polygon(J_1, I_1, 6)
polígono10, m_2, l_3, n_2, p_2, q_2, r_2, O_1, P_1, Q_1, R_1 = Polygon(M_1, L_1, 6)
polígono11, h_3, g_3, s_2, t_2, c_3, d_3, S_1, T_1, U_1, V_1 = Polygon(H_1, G_1, 6)
polígono12, u_1, t_3, e_3, f_3, i_3, j_3, W_1, Z_1, A_2, B_2 = Polygon(U_1, T_1, 6)
polígono13, i_4, h_4, k_3, m_3, n_3, p_3, C_2, D_2, E_2, F_2 = Polygon(I_1, H_1, 6)
polígono14, f_4, e_4, q_3, r_3, s_3, a_4, G_2, H_2, I_2, J_2 = Polygon(F_2, E_2, 6)
polígono15, d_4, c_4, b_4, g_4, j_4, k_4, K_2, L_2, M_2, N_2 = Polygon(D_2, C_2, 6)
polígono16, e_5, d_6, l_4, m_4, n_4, r_4, O_2, P_2, Q_2, R_2 = Polygon(E_2, D_2, 6)
x1 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x2 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x3 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x4 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x5 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x6 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x7 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x8 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x9 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x10 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x11 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
x12 = 1.7320508075688772 (slider from -2 to 9, step 0.1)
xx1 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx2 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx3 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx4 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx5 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx6 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx7 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx8 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx9 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx10 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx11 = 5.196152422706632 (slider from -2 to 9, step 0.1)
xx12 = 5.196152422706632 (slider from -2 to 9, step 0.1)
y1 = -5 (slider from -5 to 2, step 0.1)
y2 = -5 (slider from -5 to 2, step 0.1)
y3 = -5 (slider from -5 to 2, step 0.1)
y4 = -5 (slider from -5 to 2, step 0.1)
y5 = -5 (slider from -5 to 2, step 0.1)
y6 = -5 (slider from -5 to 2, step 0.1)
y7 = -5 (slider from -5 to 2, step 0.1)
y8 = -5 (slider from -5 to 2, step 0.1)
y9 = -5 (slider from -5 to 2, step 0.1)
y10 = -5 (slider from -5 to 2, step 0.1)
y11 = -5 (slider from -5 to 2, step 0.1)
y12 = -5 (slider from -5 to 2, step 0.1)
yy1 = -5 (slider from -5 to 2, step 0.1)
yy2 = -5 (slider from -5 to 2, step 0.1)
yy3 = -5 (slider from -5 to 2, step 0.1)
yy4 = -5 (slider from -5 to 2, step 0.1)
yy5 = -5 (slider from -5 to 2, step 0.1)
yy6 = -5 (slider from -5 to 2, step 0.1)
yy7 = -5 (slider from -5 to 2, step 0.1)
yy8 = -5 (slider from -5 to 2, step 0.1)
yy9 = -5 (slider from -5 to 2, step 0.1)
yy10 = -5 (slider from -5 to 2, step 0.1)
yy11 = -5 (slider from -5 to 2, step 0.1)
yy12 = -5 (slider from -5 to 2, step 0.1)
P1: (x1, y1)
P2: (x2, y2)
P3: (x3, y3)
P4: (x4, y4)
P5: (x5, y5)
P6: (x6, y6)
P7: (x7, y7)
P8: (x8, y8)
P12: (x12, y12)
P11: (x11, y11)
P10: (x10, y10)
P9: (x9, y9)
Q1: (xx1, yy1)
Q2: (xx2, yy2)
Q3: (xx3, yy3)
Q4: (xx4, yy4)
Q5: (xx5, yy5)
Q6: (xx6, yy6)
Q7: (xx7, yy7)
Q8: (xx8, yy8)
Q9: (xx9, yy9)
Q10: (xx10, yy10)
Q11: (xx11, yy11)
Q12: (xx12, yy12)
textonumeros = Sequence(Text[Element[numenat, t], (2 + (1.5 * (t - 2)) - 0.95, 4.3)], t, 1, Length[numenat])
texto6 = Text(Element[fila2panal, 2], A6 + (-0.4 + If[Element[fila2panal, 2] < 10, 0.3, If[Element[fila2panal, 2] < 100, 0.2, If[Element[fila2panal, 2] < 1000, 0.1, 0]]], -0.1))
texto1 = Text(Element[fila1panal, 1], A1 + (-0.4 + If[Element[fila1panal, 1] < 10, 0.3, If[Element[fila1panal, 1] < 100, 0.2, If[Element[fila1panal, 1] < 1000, 0.1, 0]]], -0.1))
texto10 = Text(Element[fila3panal, 2], A10 + (-0.4 + If[Element[fila3panal, 2] < 10, 0.3, If[Element[fila3panal, 2] < 100, 0.2, If[Element[fila3panal, 2] < 1000, 0.1, 0]]], -0.1))
texto11 = Text(Element[fila3panal, 3], A11 + (-0.4 + If[Element[fila3panal, 3] < 10, 0.3, If[Element[fila3panal, 3] < 100, 0.2, If[Element[fila3panal, 3] < 1000, 0.1, 0]]], -0.1))
texto12 = Text(Element[fila3panal, 4], A12 + (-0.4 + If[Element[fila3panal, 4] < 10, 0.3, If[Element[fila3panal, 4] < 100, 0.2, If[Element[fila3panal, 4] < 1000, 0.1, 0]]], -0.1))
texto13 = Text(Element[fila4panal, 1], A13 + (-0.4 + If[Element[fila4panal, 1] < 10, 0.3, If[Element[fila4panal, 1] < 100, 0.2, If[Element[fila4panal, 1] < 1000, 0.1, 0]]], -0.1))
texto14 = Text(Element[fila4panal, 2], A14 + (-0.4 + If[Element[fila4panal, 2] < 10, 0.3, If[Element[fila4panal, 2] < 100, 0.2, If[Element[fila4panal, 2] < 1000, 0.1, 0]]], -0.1))
texto15 = Text(Element[fila4panal, 3], A15 + (-0.4 + If[Element[fila4panal, 3] < 10, 0.3, If[Element[fila4panal, 3] < 100, 0.2, If[Element[fila4panal, 3] < 1000, 0.1, 0]]], -0.1))
texto16 = Text(Element[fila4panal, 4], A16 + (-0.4 + If[Element[fila4panal, 4] < 10, 0.3, If[Element[fila4panal, 4] < 100, 0.2, If[Element[fila4panal, 4] < 1000, 0.1, 0]]], -0.1))
texto2 = Text(Element[fila1panal, 2], A2 + (-0.4 + If[Element[fila1panal, 2] < 10, 0.3, If[Element[fila1panal, 2] < 100, 0.2, If[Element[fila1panal, 2] < 1000, 0.1, 0]]], -0.1))
texto3 = Text(Element[fila1panal, 3], A3 + (-0.4 + If[Element[fila1panal, 3] < 10, 0.3, If[Element[fila1panal, 3] < 100, 0.2, If[Element[fila1panal, 3] < 1000, 0.1, 0]]], -0.1))
texto4 = Text(Element[fila1panal, 4], A4 + (-0.4 + If[Element[fila1panal, 4] < 10, 0.3, If[Element[fila1panal, 4] < 100, 0.2, If[Element[fila1panal, 4] < 1000, 0.1, 0]]], -0.1))
texto5 = Text(Element[fila2panal, 1], A5 + (-0.4 + If[Element[fila2panal, 1] < 10, 0.3, If[Element[fila2panal, 1] < 100, 0.2, If[Element[fila2panal, 1] < 1000, 0.1, 0]]], -0.1))
texto7 = Text(Element[fila2panal, 3], A7 + (-0.4 + If[Element[fila2panal, 3] < 10, 0.3, If[Element[fila2panal, 3] < 100, 0.2, If[Element[fila2panal, 3] < 1000, 0.1, 0]]], -0.1))
texto8 = Text(Element[fila2panal, 4], A8 + (-0.4 + If[Element[fila2panal, 4] < 10, 0.3, If[Element[fila2panal, 4] < 100, 0.2, If[Element[fila2panal, 4] < 1000, 0.1, 0]]], -0.1))
texto9 = Text(Element[fila3panal, 1], A9 + (-0.4 + If[Element[fila3panal, 1] < 10, 0.3, If[Element[fila3panal, 1] < 100, 0.2, If[Element[fila3panal, 1] < 1000, 0.1, 0]]], -0.1))