Re: Simple 3D Graph
- To: mathgroup at smc.vnet.net
- Subject: [mg7326] Re: Simple 3D Graph
- From: tburton at cts.com (Tom Burton)
- Date: Fri, 23 May 1997 02:23:40 -0400 (EDT)
- Organization: Brahea Consulting
- Sender: owner-wri-mathgroup at wolfram.com
On 22 May 1997 09:46:59 -0400, in comp.soft-sys.math.mathematica you wrote:
>I have the following output that I want to plot as an x,y,z surface
>plot in Mathematica 3.0. This seems like it should be simple, but I am
>having a hard time figuring it out. Does anyone have a solution?
>
MoralesData=
>{{-2,-2,0.134047},{-2,-1,0.874098},{-2,0,1.63303},{-2,1,0.874098},{-2,2,
> 0.134047},{-1,-2,0.874098},{-1,-1,5.69983},{-1,0,10.6487},{-1,1,
>
>5.69983},{-1,2,0.874098},{0,-2,1.63303},{0,-1,10.6487},{0,0,19.8944},{0,1,
>
>10.6487},{0,2,1.63303},{1,-2,0.874098},{1,-1,5.69983},{1,0,10.6487},{1,1,
>
>5.69983},{1,2,0.874098},{2,-2,0.134047},{2,-1,0.874098},{2,0,1.63303},{2,
> 1,0.874098},{2,2,0.134047}}
>
Hi,
First, you need the following standard package.
In[309]:= Needs["Graphics`Graphics3D`"]
Second, you need to make the rectilinear pattern of your XY points explicit. If we call the data above "MoralesData", then do this:
In[310]:= partitionedData=Partition[MoralesData,5];
In[312]:= ListSurfacePlot3D[partitionedData,BoxRatios->{1,1,1}];
Without BoxRatios, the three axes are all scaled by same factor, and your particular plot is rather tall and skinny.
If your XY data are not spaced in a rectilinear array, then Mathematica must work harder to triangulate the points in XY-space in order to make a surface to plot. See Delaunay Triangulation in the Standard Packages book.
Tom Burton