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

```

• Prev by Date: recursive use of Format
• Next by Date: Please Help Me!!!
• Previous by thread: Re: Simple 3D Graph
• Next by thread: PS printing problems: MMA V3.0 and Macs