Wolfram mathematica 如何导出ContourPlot3D曲面并在Excel、Originlab或其他类似软件中重新生成曲面

我试过了，但失败了

fig3D = ContourPlot3D[ x^2 + y^3 - z^2 == 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
                       PlotPoints -> 100]
pts = (InputForm@fig3D)[[1, 1, 1]];
ListSurfacePlot3D[pts]

---

再生表面非常差。有什么建议吗？谢谢

如果指定

MaxPlotPoints

ListSurfacePlot3D[pts, Mesh -> None, MaxPlotPoints -> 100]

比照

ListSurfacePlot3D[pts]

编辑

关于导出到Excel，请考虑Excel曲面图是一个非常基本的构造，需要一个矩阵，其第一个文件和列是XY值，内部单元中的Z值。例如：

---

因此，将工作数据集导出到Excel可能需要（未指定数量的）数据处理。

这是从

ContourPlot3D

提取点的一种非常简洁的方法。也许你会考虑对最近的问题或之前的问题发表一个答案。