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