6

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!

Dr. belisarius
  • 60,527
  • 15
  • 115
  • 190
FreshApple
  • 592
  • 3
  • 14
  • 1
    That is a very neat method for extracting points from `ContourPlot3D`. Perhaps you would consider posting an answer to [this](http://stackoverflow.com/q/7356699/499167) recent question, or to [this](http://stackoverflow.com/q/6806034/499167) (earlier) question. – 681234 Sep 10 '11 at 04:44

1 Answers1

4

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.

Dr. belisarius
  • 60,527
  • 15
  • 115
  • 190