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]