Wolfram mathematica Mathematica-反射/反转单向图边

给出了mathematica-11中包含数据的图表。该图包括节点和独立节点（未连接）之间的无向边

图形[{12,23,31,45,56,62,24}，顶点标签->名称，顶点形状函数->菱形，顶点大小->小]

问题:

如何反射（反转）节点之间的边

由于它们是单向的，通过反射/反转，我的意思是，这些节点应该链接到以前没有边的位置（前面的边已经消失）

Mathematica-11提供了功能，但该功能仅通过方向反映定向边。有什么想法吗

想法：

将图形转换为a并将其反转。然后，可以使用反转矩阵创建反射/反转图形。 但是，我一直坚持反转邻接矩阵，因为结果会很奇怪：

使用

inverse（邻接矩阵[data]）//MatrixForm

相关的：

---

介绍如何反映边权重，但不包括边本身。

我不确定我是否完全理解您的问题，如果这不是答案，请告诉我们为什么不：

opts = {VertexLabels -> "Name", VertexShapeFunction -> "Diamond", VertexSize -> Small}

g1 = Graph[{1 <-> 2, 2 <-> 3, 3 <-> 1, 4 <-> 5, 5 <-> 6, 6 <-> 2, 2 <-> 4}];

或者，如果需要从每个节点到自身的边

AdjacencyGraph[Table[1, {VertexCount[g1]}, {VertexCount[g1]}] - AdjacencyMatrix[g1], opts]

GraphComplement[g1, opts]

AdjacencyGraph[Table[1, {VertexCount[g1]}, {VertexCount[g1]}] - AdjacencyMatrix[g1], opts]