获取图形方程

Question

能否获取使用 Mathematica 中的绘图工具绘制的图形的方程式？
我想要这样做，因为我使用绘图工具绘制了一些东西，现在我想用程序编辑它以在特定坐标处添加一个点。

Answer 1

它是可以获得使用绘图工具生成所添加的图形的代码。

例如，这是一个二次方程，我使用绘图工具在 x 截距中添加了箭头：

Plot[x^2 - 4, {x, -3, 3}]

输入图形后，// InputForm查看制作图形的代码。在本例中，我还用来/. Line[x_] -> Line抑制构成图的所有点：

突出显示的代码是绘图工具添加的代码。当您将其添加回原始文件时，可以简化它（例如，删除命令并用纯命令EdgeForm替换），这可以使用Inset CellTextPlotEpilog（或Prolog）或使用Show。