Números

Siguiente paso

Inicia

Filas

Columnas

Borde rojo

Borde verde

m: x = -6
v: (0.5, 0.22)
F = Point(m)
G: F + (4, 0)
I: (x(G), y(F) + (y(v) / x(v) * (x(G) - x(F))))
m1: {{17, 23, 4, 10, 11}, {24, 5, 6, 12, 18}, {1, 7, 13, 19, 25}, {8, 14, 20, 21, 2}, {15, 16, 22, 3, 9}}
j = 3
nm = false
i = 6
n = 5 (slider from 3 to 9, step 2)
i0: 1
j0: (n + 1) / 2
suma: ((n^(2) + 1) * n / 2)
l1: {{" 73", " 85", " 97", "  0", "  0", "  1", " 13", " 25", " 37", " 49", " 61"}, {" 84", " 96", "  0", "  0", " 11", " 12", " 24", " 36", " 48", " 60", " 72"}, {" 95", "  0", "  0", " 10", " 22", " 23", " 35", " 47", " 59", " 71", " 83"}, {"  0", "  0", "  9", " 21", " 33", " 34", " 46", " 58", " 70", " 82", " 94"}, {"  0", "  8", " 20", " 32", " 44", " 45", " 57", " 69", " 81", " 93", "  0"}, {"  7", " 19", " 31", " 43", " 55", " 56", " 68", " 80", " 92", "  0", "  0"}, {" 18", " 30", " 42", " 54", " 66", " 67", " 79", " 91", "  0", "  0", "  6"}, {" 29", " 41", " 53", " 65", " 77", " 78", " 90", "  0", "  0", "  5", " 17"}, {" 40", " 52", " 64", " 76", " 88", " 89", "101", "  0", "  4", " 16", " 28"}, {" 51", " 63", " 75", " 87", " 99", "100", "  0", "  3", " 15", " 27", " 39"}, {" 62", " 74", " 86", " 98", "  0", "  0", "  2", " 14", " 26", " 38", " 50"}}
m2: {Sequence["000", j, 1, n]}
texto2 = TableText(Join[{m2, m1}], "r")
A: (-6, 5.2)
B: (-6, 4.8)
C: (24, 4.8)
D: (24, 5.2)
a: {Polygon[A, B, C, D]}
O = (-5.98, 5.2)
incH: 0.75
incV: 2.96 / 9
E = (-6.78, 4.68)
P: E + ((incH * j), ((-incV) * i))
ii = 6
jj = 3
R: 4
r: 1.5
b = Surface((cos(t) * (R + (r * cos(s)))), (sin(t) * (R + (r * cos(s)))), (r * sin(s)), t, 0, (2 * π), s, 0, (2 * π))
A1_1 = NaN
A1_2 = NaN
H: (x(F), y(I))
s3 = Segment(F, I)
s4a = Segment(F + (G - F) / 5, I + (G - I) / 5)
s5a = Segment(F + (2 * (G - F) / 5), I + (2 * (G - I) / 5))
s1b = Segment(F + (3 * (G - F) / 5), I + (3 * (G - I) / 5))
s2b = Segment(F + (4 * (G - F) / 5), I + (4 * (G - I) / 5))
s2a = Segment(H + (4 * (I - H) / 5), H + (4 * (F - H) / 5))
s1a = Segment(H + (3 * (I - H) / 5), H + (3 * (F - H) / 5))
s5b = Segment(H + (2 * (I - H) / 5), H + (2 * (F - H) / 5))
s4b = Segment(H + (I - H) / 5, H + (F - H) / 5)
l3 = Sequence(CurveCartesian[(cos(t) * (R + (r * cos((2 * ((π * k)) / n) - t)))), (sin(t) * (R + (r * cos(((2 * π) * k / n) - t)))), (r * sin(((2 * π) * k / n) - t)), t, 0, (2 * π)], k, 1, n)
c3 = Element(l3, 1)
c4 = Element(l3, 2)
c5 = Element(l3, 3)
c1 = Element(l3, 4)
c2 = Element(l3, 5)
l4: {"1ª diagonal", "2ª diagonal", "3ª diagonal", "4ª diagonal", "5ª diagonal", "todas", "(ninguna)"}
elegido = SelectedIndex(l4)
filas = Sequence(CurveCartesian[(cos(t) * (R + (r * cos((2 * ((π * k)) / n))))), (sin(t) * (R + (r * cos(((2 * π) * k / n))))), (r * sin(((2 * π) * k / n))), t, 0, (2 * π)], k, 1, n)
c = false
d = false
J: (-6, 5.08)
l5: {Polygon[J, J + (4, 0), J + (4, -0.2), J + (0, -0.2)]}
K: (-6, 3.08)
l6: {Polygon[K, K + (4, 0), K + (4, -0.2), K + (0, -0.2)]}
L: (-2, 3.08)
l7: {Polygon[L, L + (0.2, 0), L + (0.2, 1.82), L + (0, 1.82)]}
l8: {Polygon[K, K + (-0.2, 0), K + (-0.2, 1.82), K + (0, 1.82)]}
rojo = CurveCartesian((cos((2 * ((π * 0.5)) / n)) * (R + (r * cos(t)))), (sin((2 * ((π * 0.5)) / n)) * (R + (r * cos(t)))), (r * sin(t)), t, 0, (2 * π))
e = true
verde = CurveCartesian((cos(t) * (R + (r * cos((2 * ((π * 0.5)) / n))))), (sin(t) * (R + (r * cos((2 * ((π * 0.5)) / n))))), (r * sin((2 * ((π * 0.5)) / n))), t, 0, (2 * π))
f = true
columnas = Sequence(CurveCartesian[(cos((2 * ((π * k)) / n)) * (R + (r * cos(t)))), (sin((2 * ((π * k)) / n)) * (R + (r * cos(t)))), (r * sin(t)), t, 0, (2 * π)], k, 1, n)
num: 26
cl1: columnas(1)
cl2: columnas(2)
cl3: columnas(3)
cl4: columnas(4)
cl5: columnas(5)
l2 = Sequence(Sequence[Text[m1(i, j), ((cos(((i / n * 2) * π)) * (R + (r * cos(((j / n * 2) * π))))), (sin(((i / n * 2) * π)) * (R + (r * cos(((j / n * 2) * π))))), (r * sin(((j / n * 2) * π))))], j, 1, n], i, 1, n)