MathGroup Archive 2005

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

Search the Archive

Re: NewBie question Plot Table of points from a data file

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53299] Re: [mg53270] NewBie question Plot Table of points from a data file
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Wed, 5 Jan 2005 01:21:13 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

pts=Table[{5Random[],3Random[],4Random[]},{5}]

pts[[2]]

pts[[2,3]]

pts[[1,1]]+pts[[2,1]]

Needs["Graphics`Graphics3D`"];

Needs["Graphics`Colors`"];

ScatterPlot3D[pts, 
    PlotStyle->{Red,AbsolutePointSize[5]}];

Show[Graphics3D[{
        Blue,Line[{{1,1,0}#,#}]& /@ pts,
        Red,AbsolutePointSize[5],Point /@ pts}],
    Axes->True];

Show[Graphics3D[{
        Blue,Line[{{0,0,0},#}]& /@ pts,
        Red,AbsolutePointSize[5],Point /@ pts}],
    Axes->True];


Bob Hanlon

> 
> From: jfj <jf.jouvet at opales.fr>
To: mathgroup at smc.vnet.net
> Date: 2005/01/04 Tue AM 03:12:35 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg53299] [mg53270] NewBie question Plot Table  of points from a data file
> 
> Hello,
> I want to plot a file of data (x, y, z coordinate on each line of an 
> ascii file)
> I can read values with:
> pts = ReadList["myfile.dat", Table[Number, {3}]]
> but How display it
> Show[Graphics3D[pts]] give me error
> How access to my Table pts?
> How compute for instance pts[1,1] + pts[2,1] ?
> Thanks in advance for your help
> 
> 


  • Prev by Date: Re: FindMinimum -- MaxIterations
  • Next by Date: DisplayTogether has stopped working
  • Previous by thread: Re: NewBie question Plot Table of points from a data file
  • Next by thread: Re: NewBie question Plot Table of points from a data file