wolfram-mathematica - Combinatorica`PlanarQ 不起作用

Question

 g1=Graph[{UndirectedEdge[a,b]}];
 GraphQ[g1]
 (*
   OUT: True
 *)
   (*Needs["Combinatorica`"]*)
 PlanarQ[g1]
 (*
    OUT: PlanarQ[.-.]
 *)
 Combinatorica`PlanarQ[g1]
 (*
   OUT: Combinatorica`PlanarQ[.-.]
 *)

为什么 PlanarQ 不返回 "True"或 "False"？

Answer 1

您的图表不是 Combinatorica图，而是 System图形。您需要明确指定上下文。

Needs["GraphUtilities`"];
g1 = System`Graph[{UndirectedEdge[a, b]}];
Combinatorica`PlanarQ[
  GraphUtilities`ToCombinatoricaGraph[g1]]

这将返回 True但是，总的来说，这个过程很痛苦，而且相当麻烦。我相信 Combinatorica正在出路，我建议尝试在没有的情况下度过。