Graph 可能是Mathematica图形导出错误中的错误

执行以下代码行可以绘制一些二进制图

    BDDPlot[depth_, funValues_] :=
    Module[{BDDLabels, INVEdges},
    BDDLabels = Thread[Range[2^depth - 1] -> Join[Alphabet[][[Floor[Log2[#]] + 1]] & /@ Range[2^(depth - 1) - 1], funValues]]; 
    INVEdges = 
     Flatten[ Map[{#1 \[UndirectedEdge] #1*2 -> 
        Dashed, {#1 \[UndirectedEdge] #1*2 + 1 -> {Thick, Black}}} &,
           Range[2^(depth - 1)]]];
    CompleteKaryTree[depth, 
      VertexShapeFunction -> "Circle", 
       VertexSize -> Large,
        VertexLabels -> 
         MapAt[Placed[#, Center] &, 
          BDDLabels, {All, 2}], EdgeStyle -> INVEdges ,
          VertexLabelStyle -> {Large}, VertexStyle -> White, ImageSize -> Large]]

    BDDPlot[3, {0, 1, 0, 0}] (* Drawing BDD example *)

然后右键单击绘图并选择“将图形另存为”，导致以下错误：

Set::write: Tag Inherited in Inherited[State] is Protected.

---

如果您知道错误的来源以及如何克服此问题，我们将不胜感激。

错误已报告给Mathematica。

---

解决方案是：

Export[“~/graph.pdf”，BDDPlot[3，{0,1,0,0}]
可能尝试分别定义顶点标签和边样式。但没有解决问题。还有另一种导出图形的方法，但我提到的问题可能在Mathematica中被报告为bug。另一种导出图形的方法是：
export[“~/graph.pdf”，BDDPlot[3，{0,1,0,0}]
但我不会关闭此问题，因为问题尚未解决。如果我将您的代码块刮到一个新的空笔记本中，则MMA会说缺少一个
]
，（1）向Wolfram报告错误（2）使用
导出
解决问题。“但是，我不会关闭此问题，因为问题尚未解决。”StackOverflow不是问题跟踪程序。如果您在软件中发现一个bug，请直接向开发人员报告。（请为可能受相同bug影响的每个人着想）您自己提到了
导出
解决方案。你还期待什么答案？