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

Question

我试过了，但失败了。

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]

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

Answer 1

如果指定MaxPlotPoints

，也不会太糟糕

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

与

比较

ListSurfacePlot3D[pts]

修改

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

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