Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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