Re: Export points 3D plots

• To: mathgroup at smc.vnet.net
• Subject: [mg126938] Re: Export points 3D plots
• From: Peter Pein <petsie at dordos.net>
• Date: Mon, 18 Jun 2012 05:47:55 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <jrk2t0\$8n2\$1@smc.vnet.net>

```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'
>

Hi,

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];

pts=pl[[1,1]];

should work.

Peter

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