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