约翰逊图的矩阵数组是什么样的？
What does a matrix array look like for a Johnson graph?
我似乎找不到任何关于约翰逊图的矩阵数组的示例（或很多信息）。任何人都可以给我发送他们的数组的示例吗？
这直接使用了此处给出的约翰逊图的定义Wiki Johnson Graph
johnsonmatrix[n_, k_] := Module[{s=Select[Subsets[Range[n]], Length[#]==k&]},
{s, MatrixForm[Table[If[Length[Intersection[s[[i]], s[[j]]]]==k-1, 1, 0],
{i, Length[s]}, {j, Length[s]}]]}]
并生成子集列表，这些子集索引邻接矩阵的行和列，然后是图形的邻接矩阵。
例如，前几个 johnsonmatrix[n,1] 生成具有 n 个顶点的完整图，并且 johnsonmatrix[5, 2] 匹配该维基页面右上角示例图中给出的顶点和边数每个顶点都有六个入射边。但是我还没有手动检查以绝对确定这个矩阵与显示的图形同构。
请仔细检查以确保没有任何错误。
我似乎找不到任何关于约翰逊图的矩阵数组的示例（或很多信息）。任何人都可以给我发送他们的数组的示例吗？
这直接使用了此处给出的约翰逊图的定义Wiki Johnson Graph
johnsonmatrix[n_, k_] := Module[{s=Select[Subsets[Range[n]], Length[#]==k&]},
{s, MatrixForm[Table[If[Length[Intersection[s[[i]], s[[j]]]]==k-1, 1, 0],
{i, Length[s]}, {j, Length[s]}]]}]
并生成子集列表，这些子集索引邻接矩阵的行和列，然后是图形的邻接矩阵。
例如，前几个 johnsonmatrix[n,1] 生成具有 n 个顶点的完整图，并且 johnsonmatrix[5, 2] 匹配该维基页面右上角示例图中给出的顶点和边数每个顶点都有六个入射边。但是我还没有手动检查以绝对确定这个矩阵与显示的图形同构。
请仔细检查以确保没有任何错误。