Me permito publicar un puntero. El siguiente MSE
enlace a partir de las once
hace meses características orbitales cromática polinomios, que contar
adecuado para el color de un gráfico de las simetrías de su
automorfismos. Existe una amplia documentación en ese enlace. El código
que se ha publicado no es fácil de aplicar aquí: subyacente gráfico con
los bordes de adyacencia esta el tres por tres de cuadrícula gráfico. Nos codificar
de la siguiente manera:
SQUARE3BY3 :=
proc()
opción de recordar;
volver
[9,
{{1, 2}, {2, 3},
{4, 5}, {5, 6},
{7, 8}, {8, 9},
{1, 4}, {2, 5}, {3, 6},
{4, 7}, {5, 8}, {6, 9}},
[[1,2,3,4,5,6,7,8,9], # identidad
[3,6,9,2,5,8,1,4,7], # 90 grados
[7,4,1,8,5,2,9,6,3], # -90 grados
[9,8,7,6,5,4,3,2,1], # 180 grados
[7,8,9,4,5,6,1,2,3], # flip horizontal
[3,2,1,6,5,4,9,8,7], # vertical flip
[1,4,7,2,5,8,3,6,9], # cayendo en diagonal
[9,6,3,8,5,2,7,4,1]]]; # el aumento de diagonal
end;
El comando de Maple OCP(SQUARE3BY3()); inmediatamente después, los rendimientos de la
OCP:
$$P(k) = 1/8\,{k}^{9}+8\,k-{\frac {133\,{k}^{2}}{4}}-3/2\,{k}^{8}
+{\frac {33\,{k}^{7}}{4}}-{\frac {53\,{k}^{6}}{2}}
+{\frac {217\,{k}^{5}}{4}}-{\frac {291\,{k}^{4}}{4}}
+{\frac {507\,{k}^{3}}{8}}.$$
Este rendimientos de hasta doce colores de la secuencia
$$0, 2, 69, 1572, 19865, 153480, 830802, 3476144, 12003462,
\\35757630, 94780235, 228579252, \ldots$$
lo que confirma el valor de tres colores que fue el primero en aparecer.
Nota, ya que por los comentarios. El valor de $P(k)$ de este OCP cuenta
el número de colorantes utilizando en la mayoría de las $k$ colores. Podemos calcular
$P'(k)$ que da el buen colorantes utilizando exactamente $k$ colores
inclusión-exclusión. Aquí los nodos de la poset son subconjuntos $Q$de
$[k]$ representación adecuada de los colorantes usando un subconjunto de los colores en
$Q$, la cual es contada por $P(|Q|).$ para colorear utilizando exactamente los colores
de algún juego $R$ está representado por todos los nodos correspondientes a
superseries $Q$ de $R.$ Con el peso de ser $(-1)^{k-|Q|}$los
los colorantes utilizando exactamente $k$ colores sólo se producen en $Q=[k]$ con peso
$(-1)^{k-|Q|} = (-1)^{0} = 1.$ Para colorear utilizando exactamente $R\subset [k]$
colores está representado por todos los $Q$ tales que $R \subseteq Q \subseteq
[k]$, con un peso total de
$$\sum_{I'\subseteq [k] \setminus R} (-1)^{k-|R\cup R'|}
= (-1)^{k-|R|}
\sum_{i=0}^{|[k]\setminus R|} {|[k]\setminus R| \elegir r} (-1)^{-r}
= 0.$$
Por lo tanto sólo los colorantes con exactamente $k$ colores contribuir y nos
encontrar
$$P'(k) = \sum_{Q\subseteq [k]} (-1)^{k-|Q|} P(|P|) =
\sum_{q=0}^k {k\elegir q} (-1)^{k-q} P(q).$$
Esto le da a la secuencia finita
$$0, 2, 63, 1308, 12675, 56520, 120960, 120960, 45360, 0, \ldots$$
porque es claramente imposible para el color de la cuadrícula con más de
nueve colores distintos. Observar también la entrada de tres colores, que
es $P(3) - {3\choose 2} P(2) = 69 - 3\times 2$ es decir, hemos restado
los colorantes utilizando dos colores (no hay colorear usando un color
y, por tanto, $P(2)$ cuenta colorantes con exactamente dos colores). También se nota
que con nueve colores de todas las órbitas tienen el mismo tamaño, es decir, ocho, y
de hecho, obtenemos $9!/8 = 45360.$ qué ocurre cuando hay
más de nueve colores que podemos recuperar $P(k)$ como sigue:
$$\sum_{q=0}^9 {k\choose q} P'(q).$$
Adenda. El lector puede estar interesado en saber que podemos
calcular el OCP para grandes redes, utilizando el código siguiente en
junto con el citado enlace:
CUADRADO :=
proc(n)
opción de recordar;
local src, la putrefacción, automs, bordes, v2n;
src := [seq(seq([p, p], p=0..n-1), p=0..n-1)];
bordes :=
{seq(seq({[p, q], [p+1, q]},
p=0..n-2), q=0..n-1),
seq(seq({[p, q], [p, q+1]},
p=0..n-1), q=0..n-2)};
rot := v -> [v[2], n-1-v[1]];
automs :=
[src, # identidad
mapa(rot, src), # 90 grados
mapa(v -> rot(rot(v)), src), # 180 grados
mapa(v -> rot(rot(rot(v))), src), # 270 grados
mapa(v -> [n-1-v[1], v[2]], src), # flip horizontal
mapa(v -> [v[1], n-1-v[2]], src), # vertical flip
mapa(v -> rot([n-1-v[1], v[2]]),
src), # el aumento de diagonal
mapa(v -> rot(rot(rot([n-1-v[1], v[2]]))),
src)]; # cayendo en diagonal
v2n :=
[seq(seq([p, q] = 1 + p*n + p, q=0..n-1), p=0..n-1)];
[n*n, subs(v2n, bordes), subs(v2n, automs)];
end;
Obtenemos para un cuatro por cuatro de la OCP
$$1/8\,{k}^{16}-3\,{k}^{15}+{\frac {69\,{k}^{14}}{2}}
-{\frac {2015\,{k}^{13}}{8}}+{\frac {10437\,{k}^{12}}{8}}
\\-{\frac {20307\,{k}^{11}}{4}}+15333\,{k}^{10}-{\frac {292907\,{k}^{9}}{8}}
-{\frac {848501\,{k}^{7}}{8}}+{\frac {1023195\,{k}^{6}}{8}}
\\-{\frac {240539\,{k}^{5}}{2}}+{\frac {557915\,{k}^{8}}{8}}
-{\frac {8807\,k}{4}}+{\frac {112831\,{k}^{2}}{8}}
+{\frac {683997\,{k}^{4}}{8}}-{\frac {347485\,{k}^{3}}{8}}$$
con la secuencia de
$$0, 1, 1155, 759759, 103786510, 4767856260, 107118740001, \ldots$$
Obtenemos un cinco por cinco el OCP
$$1/8\,{k}^{25}+{\frac {69997383\,{k}^{17}}{8}}-5\,{k}^{24}
+{\frac {195\,{k}^{23}}{2}}-1233\,{k}^{22}+{\frac {45399\,{k}^{21}}{4}}
\\-80919\,{k}^{20}+{\frac {928545\,{k}^{19}}{2}}
-{\frac {17590911\,{k}^{18}}{8}}-{\frac {118477969\,{k}^{16}}{4}}
+{\frac {172111059\,{k}^{15}}{2}}
\\-{\frac {1726958987\,{k}^{14}}{8}}
+{\frac {3754019329\,{k}^{13}}{8}}-{\frac {1770719251\,{k}^{12}}{2}}
\\+{\frac {5797425049\,{k}^{11}}{4}}-2053661272\,{k}^{10}
+{\frac {20055169857\,{k}^{9}}{8}}+{\frac {9236896437\,{k}^{7}}{4}}
\\-{\frac {6780818949\,{k}^{6}}{4}}+{\frac {8083053959\,{k}^{5}}{8}}
-{\frac {20932696169\,{k}^{8}}{8}}+4017958\,k
\\-{\frac {145271789\,{k}^{2}}{4}}-{\frac {3768579695\,{k}^{4}}{8}}
+{\frac {1292510453\,{k}^{3}}{8}}$$
con la secuencia de
$$0, 2, 76332, 2557101612, 6352711134515, 2747239197568620,
\\378972203462839707, \ldots$$