wolfram-mathematica - Combinatorica`PlanarQ 不起作用

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

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

最佳答案

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

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

这将返回 True，但总的来说，这个过程很痛苦，而且有很多问题。我相信 Combinatorica 即将消失，我建议尝试在没有的情况下解决。

关于wolfram-mathematica - Combinatorica`PlanarQ 不起作用，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6214116/