如何在Excel、Originlab等类似软件中实现ContourPlot3D曲面的导出和重新生成

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可能需要(未指定数量的)数据传递。