Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*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 1996

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

Search the Archive

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]



  • 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