Una vez que tengas un isomorfismo, puedes crear una animación que ilustre cómo transformar un gráfico en el otro. Digamos que ${vc}_1$ es una lista de coordenadas de vértices para uno y ${vc}_2$ es la correspondiente lista de coordenadas de vértices de la otra. (Es importante que el orden de las coordenadas de los vértices esté dictado por el isomorfismo). Entonces podemos pasar de un gráfico al otro utilizando una función como
$$p(t) = t \, {vc}_2 + (1-t) {vc}_1.$$
Este es el resultado.
Código
La película puede generarse utilizando el siguiente código de Mathematica.
vc1 = # - {1, 1} & /@ {{0, 2}, {1, 2}, {2, 2}, {1, 1},
{0, 0}, {1, 0}, {2, 0}};
vc2 = {{1/2, -Sqrt[3]/2}, {-1/2, -Sqrt[3]/2}, {-1, 0},
{1/2, Sqrt[3]/2}, {1, 0}, {0, 0}, {-1/2, Sqrt[3]/2}};
vc[t_] := t*vc2 + (1 - t) vc1;
Animate[
Graph[{1, 2, 3, 4, 5, 6, 7},
UndirectedEdge@@@{{1, 2}, {2, 3}, {3, 7}, {7, 6}, {6, 5}, {5, 1},
{1, 6}, {4, 5}, {4, 7}},
PlotRange -> 1.1, VertexCoordinates -> vc[t]],
{t, 0, 1}, AnimationDirection -> ForwardBackward]
8 votos
Es un método válido, pero sólo veo un ciclo de 3 en el segundo gráfico. Yo buscaría un isomorfismo, si fuera tú.
0 votos
¿No son ambos, 1-5-6 y 5-4-7, circuitos simples de longitud 3? ¿Y qué quieres decir con tu segunda afirmación?
2 votos
@KevinDuke No hay ninguna arista entre los vértices 5 y 7. Estoy de acuerdo con Gerry en que parecen ser isomorfos, y que la forma más fácil de demostrarlo es escribir un isomorfismo.
0 votos
Ya veo, el 5 no es un borde con el 7. Supongo que ese era mi bloqueo mental. Sin embargo, ¿qué quieres decir con "escribir un isomorfismo"?
0 votos
@KevinDuke Escríbelo, como en, identificar qué vértices corresponden y así sucesivamente. El nodo 6 corresponde a D y así sucesivamente. Luego escribe una matriz de adyacencia para los nodos de ambos grafos, donde los nodos estén en el mismo orden, y compara.