MathGroup Archive 1997

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

Search the Archive

Re: Simple 3D Graph

  • To: mathgroup at
  • Subject: [mg7326] Re: Simple 3D Graph
  • From: tburton at (Tom Burton)
  • Date: Fri, 23 May 1997 02:23:40 -0400 (EDT)
  • Organization: Brahea Consulting
  • Sender: owner-wri-mathgroup at

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?
>    0.134047},{-1,-2,0.874098},{-1,-1,5.69983},{-1,0,10.6487},{-1,1,
>    1,0.874098},{2,2,0.134047}}

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