       Re: 3D-Plot of data points

• To: mathgroup at smc.vnet.net
• Subject: [mg5471] Re: [mg5431] 3D-Plot of data points
• From: Sherman Reed <Sherman.Reed at worldnet.att.net>
• Date: Wed, 11 Dec 1996 03:15:54 -0500
• Sender: owner-wri-mathgroup at wolfram.com

```At 05:26 AM 12/7/96 +0000, you wrote:
>Hallo everybody,
>
>I have some data in form of 3D points (x,y,z).
>Is there a way to plot this data as 3D map?
>I' ve tried ListPlot3D and Graphics3D, but none
>of this accepted points as input.
>and is there a possibility to do a fourier transform to
>these data-points?
>
>thank you
>Ingo Sieber
>
>
Ingo,

below is some code that works for 2.2.3.  I have not tried it for 3.0

it is based on TWJ's book, Mathematica Graphics.  You can remove the

semi-colons to see the exact syntax.  I will have to think above Fourier

Transform.

sherman c. reed

(* This Group of commands is for 2D material *)
pt1=Point[{Random[],Random[]}];
pt2=Point[{Random[],Random[]}];
pt3=Point[{Random[],Random[]}];
pt4=Point[{Random[],Random[]}];
Show[Graphics[{pt1,pt2,pt3,pt4}],PlotRange->
{{0,1},{0,1}},
Axes->True,Frame->True]
l1=Line[{pt1[],pt2[]}];
l2=Line[{pt2[],pt3[]}];
l3=Line[{pt3[],pt4[]}];
Show[Graphics[{l1,l2,l3}],PlotRange->
{{0,1},{0,1}},Axes->True,Frame->True]
(* This group of commands is for 3D material *)
pt1=Point[{Random[],Random[],Random[]}];
pt2=Point[{Random[],Random[],Random[]}];
pt3=Point[{Random[],Random[],Random[]}];
pt4=Point[{Random[],Random[],Random[]}];
Show[Graphics3D[{pt1,pt2,pt3,pt4}],PlotRange->
{{0,1},{0,1},{0,1}},Axes->True]
l1=Line[{pt1[],pt2[]}];
l2=Line[{pt2[],pt3[]}];
l3=Line[{pt3[],pt4[]}];
Show[Graphics3D[{l1,l2,l3}],PlotRange->
{{0,1},{0,1},{0,1}},Axes->True]

```

• Prev by Date: UTM-Lat/Long conversion
• Next by Date: Re: live support on SGI
• Previous by thread: 3D-Plot of data points
• Next by thread: Smoothing Filters