Comment dessiner un graphe Toeplitz dans Mathematica?

Question

Mes épreuves sont

GraphData["ToeplitzGraph"]

GraphData :: notdef: GraphData n'a aucune valeur associée au ou aux arguments spécifiés.

et la recherche sur le Web, en particulier cet article et cet article , qui n'apporte pas la réponse souhaitée (même certaines définitions ne me sont pas claires.).

Answer 1

Je ne connais pas le concept des graphiques Toeplitz, mais l'article que vous avez lié dit:

C'est la même définition qu'ici , c'est-à-dire

Un graphe Toeplitz est un graphe avec une matrice de contiguïté Toeplitz .

Par conséquent, vous pouvez utiliser ToeplitzMatrixavec un vecteur de uns et de zéros, en commençant par un zéro (assurant une diagonale nulle).

Le code suivant génère tous les graphiques Toeplitz étiquetés sur les nsommets:

n = 6;
m = n - 1;
graphs = Table[
   AdjacencyGraph@ToeplitzMatrix[{0}~Join~IntegerDigits[k, 2, m]],
   {k, 0, 2^m - 1}
  ];

Regardons les non-isomorphes connectés de cette liste:

Select[ConnectedGraphQ]@DeleteDuplicatesBy[graphs, CanonicalGraph]