Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: Region for ListPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg88727] Re: [mg88698] Region for ListPlot3D
  • From: "W_Craig Carter" <ccarter at mit.edu>
  • Date: Wed, 14 May 2008 06:05:48 -0400 (EDT)
  • References: <200805131108.HAA24472@smc.vnet.net>

Hello Hugh,
I can't see how ListPlot3D isn't doing what you wish--sorry if I am
missing something obvious.

viz:

ppf = Flatten[pp, 1]
gc = GraphicsComplex[ppf, Table[Sphere[i, 5], {i, Length[ppf]}]];
g1 = Graphics3D[{Orange, gc}]
g2 = ListPlot3D[ppf]
Show[g2, g1]
g3 = ListPlot3D[Flatten[pp, 1], InterpolationOrder -> 3]
Show[g3, g1]

WCC

On Tue, May 13, 2008 at 7:08 AM, Hugh Goyder
<h.g.d.goyder at cranfield.ac.uk> wrote:
> Below I give a set of 3D points and attempt to plot them as a surface
>  using ListPlot3D. I also plot the points directly using Graphics3D.
>  The data fill a region that is approximately a trapezium except that
>  one side is concave. ListPlot3D extrapolates the concave side out to
>  the convex hull of the x -y coordinates thus giving a false impression
>  of the surface. How can I make the plotting region conform to the data
>  and exclude the extrapolation?

>  pp = {{{0, 0, 0}, {5, 0, 0},
>          {10, 0, 0}, {14, 0, 0},
:
:
>          {348, 533, 17}}};
>
>  g1 = Graphics3D[{Point[Flatten[pp, 1]]},
>      PlotRange -> All]
>
>  g2 = ListPlot3D[Flatten[pp, 1]]
>
>  Show[g1, g2]
>
>
>



-- 
W. Craig Carter


  • Prev by Date: Re: CurrentValue
  • Next by Date: Expression manipulation
  • Previous by thread: Region for ListPlot3D
  • Next by thread: Re: Region for ListPlot3D