如何导出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 可能需要（未指定数量的）数据处理。