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