MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Export points 3D plots

Am 17.06.2012 10:01, schrieb Mat' G.:
> Hello,
> Is it possible to export the points of 3D plot to use it later in, say,
> a density plot?
> Any help would be welcome. :-)
> Yours,
> Mat'


usually the first element of a 3d-plot is a GraphicsComplex object with 
a list of the used points as its first element. So

pl=Plot3D[Sinc[Sqrt[x^2 + y^2]], {x, -Pi, Pi}, {y, -Pi, Pi},
      PlotRange->All, PlotPoints->50];


should work.


P.S.: try
pts2 = SortBy[pts,
    Through[{Round[Abs[#], Pi/100] &, Arg}[Complex @@ Most[#]]] &];
Show[MapIndexed[{Blend[{Red, Darker@Green, Blue}, #2[[1]]/
        Length[pts2]], #1} &, Line /@ Partition[pts2, 2, 1]] //
    Flatten // Graphics3D, BoxRatios -> {1, 1, 1/GoldenRatio}]
if you like

  • Prev by Date: Re: Parenthesis reduction
  • Next by Date: Eigendecomposition problem?
  • Previous by thread: Re: Export points 3D plots
  • Next by thread: fyi, updated my Mathematica HOWTO for basic engineering examples