在Mathematica中绘制分解树的最简单方法是什么？

问题描述

| 我想在Mathematica中绘制一个“分解树”。 我有一个函数“ 0”，该函数接受一个对象并将该对象的所有组件作为列表返回。出于这个问题的目的，让我们按如下方式分解Mathematica表达式（我的实际

f

依赖于外部数据库来分解不同种类的对象，因此我不能轻易地发布它）：

f[e_?AtomQ] := {}
f[e_] := List @@ e

我想创建一个树状图，显示在递归应用keep0时对象如何分解。对于上面的特定示例

f

，我们应该得到与

TreeForm

的输出非常相似的内容，除了在每个节点上显示完整的表达式（而不是仅显示头部）。节点的子代将由

f

返回。 请注意，元素可以像这样在分解树中重复，但是在

TreePlot

的输出中不能重复使用元素，因为它可以与图一起使用。一种想法是为每个节点生成一个唯一的“内部名称”，构造一个图形，并使用TreePlot，将其设置为显示节点的实际形式，而不是它们的“内部名称”。     

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）