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

MathGroup Archive 2006

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

Search the Archive

Re: 3D surface plotting

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66305] Re: 3D surface plotting
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Tue, 9 May 2006 02:34:49 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <e3mjjm$7lf$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

pratham shenai wrote:
> I have a dataset of {x. y. z} coordinates comprising more than a thousand
> sample points. I want to generate the surface on which they all lie. The 
> obvious choice for the function is ListSurfacePlot3D[data]. I load the
> appropriate package i.e. ExtendGraphics and try to execute the operation.

According to the following URL 
http://support.wolfram.com/applicationpacks/unsupported/extend/
the package _ExtendGraphics_ is a pretty old unsupported package.

I would advise using the built-in function *ListSurfacePlot3D* defined 
in the package *Graphics3D* [1]. Load the package (see In[1]) and use 
*Information* (shortcut ?) to check that the correct function has been 
loaded (see In[2]). Then, assuming you have a list of triples (I have 
created an arbitrary data sample in In[3] just for the sake of the 
argument), everything should be straightforward (see In[4]).

In[1]:=
Needs["Graphics`Graphics3D`"]

In[2]:=
Information["ListSurfacePlot3D", LongForm -> False]

ListSurfacePlot3D[{{{x11, y11, z11}, ...},{{x12, y12, z12}, ...}, 
...},(options)] plots a matrix of points in three dimensions as a surface.

In[3]:=
Short[data = Table[{x, y, Sin[x*y]}, {x, 1, 10, 1/10},
     {y, 1, 10, 1/10}]]

Out[3]//Short=
{{{1,1,Sin[1]},\[LeftSkeleton]89\[RightSkeleton],{1,10,Sin[10]}},\
\[LeftSkeleton]89\[RightSkeleton],{\[LeftSkeleton]1\[RightSkeleton]}}

In[4]:=
ListSurfacePlot3D[data];

In[5]:=
$Version

Out[5]=
5.2 for Microsoft Windows (June 20, 2005)

HTH,
Jean-Marc

[1] 
http://documents.wolfram.com/mathematica/Add-onsLinks/StandardPackages/Graphics/Graphics3D.html


  • Prev by Date: Re: "In progress" saving of data collected using Reap/Sow
  • Next by Date: Problem calling function in DLL via NETLink: NET::netexcptn: A .NET exception occurred
  • Previous by thread: Re: 3D surface plotting
  • Next by thread: mirror image of a square matrix