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
- References:
- Region for ListPlot3D
- From: Hugh Goyder <h.g.d.goyder@cranfield.ac.uk>
- Region for ListPlot3D