Matrix 对于Johnson图，矩阵数组是什么样子的？

对于Johnson图，我似乎找不到任何关于矩阵数组的例子（或更多信息）。有人能给我一个他们的数组的例子吗？

这直接使用了这里给出的约翰逊图的定义

并生成子集列表，这些子集索引图的邻接矩阵的行和列，后跟邻接矩阵

例如，前几个

johnson矩阵[n，1]

生成具有n个垂直方向的完整图，并且

johnson矩阵[5，2]

匹配该wiki页面右上角示例图中给出的垂直方向和边的数量，每个顶点都有六条关联边。但我还没有手动检查以确保这个矩阵与所示的图同构

---

请仔细检查，以确保没有出现错误。

是什么，您在想什么？如果是这样，如果你给出了一个样本集S，如果你给出了一些你可能感兴趣的J（n，k），那么有人可能会写几行代码来为你生成矩阵。维基说J（n，1）很无聊，但对于适度的n，k来说，可能会看到一些信息。准确描述您希望信息呈现的方式至关重要。@Bill任何随机Johnson图矩阵都可以。我只是想看看这种图形的布局是如何的。@Bill我只想分析并与常规类型的图形进行比较，这样我就可以看到它们矩阵数组中的差异。我找不到任何矩阵形式的约翰逊图的例子。这就是为什么我要问，“矩阵数组看起来像什么？”？？这完全不清楚你说的是什么意思。你知道mathematica内置了丰富的图论工具吗？你是指邻接矩阵吗？@比尔：是的，请给出任意随机约翰逊图的邻接矩阵。很抱歉说得含糊不清。我无法使用您的代码生成矩阵。我需要改变里面的东西吗？我只是复制粘贴在Mathematica中，然后按shift+enter。对不起，我是个初学者。如果你能生成任何矩阵并将其添加到你的答案中，那将是最好的@justinpees在复制和计算（shift+enter）Johnson矩阵[n，k，k]的定义后，你还应该用它的一些参数值来计算这个函数，例如

Johnson矩阵[5，2]

（复制、粘贴并按shift+enter）。@AlexeyPopkov我可以发誓我已经试过了。谢谢你的澄清，我现在可以看到了！！！

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]}]]}]