Home/ Questions/Q 6549453
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-25T12:05:41+00:00

I tried this, but failed. fig3D = ContourPlot3D[ x^2 + y^3 – z^2 ==

  • 0

I tried this, but failed.

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]

The regenerated surface is very poor. Any suggestions? thanks!

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Not too bad if you specify MaxPlotPoints

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

    enter image description here

    Compare with

    ListSurfacePlot3D[pts]

    enter image description here

    Edit

    Regarding the export to Excel, please consider that the Excel surface plot is a very basic construction and requires a matrix whose first file and column are the XY values with the Z values in the inner cells. Example:

    enter image description here

    So, exporting a working dataset to Excel may require (an unspecified amount of) data massaging.

    • 0