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[[1]],pt2[[1]]}];
l2=Line[{pt2[[1]],pt3[[1]]}];
l3=Line[{pt3[[1]],pt4[[1]]}];
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[[1]],pt2[[1]]}];
l2=Line[{pt2[[1]],pt3[[1]]}];
l3=Line[{pt3[[1]],pt4[[1]]}];
Show[Graphics3D[{l1,l2,l3}],PlotRange->
{{0,1},{0,1},{0,1}},Axes->True]