Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

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