MathGroup Archive 2003

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

Search the Archive

RE: using of Table

  • To: mathgroup at smc.vnet.net
  • Subject: [mg38926] RE: [mg38915] using of Table
  • From: "David Park" <djmp at earthlink.net>
  • Date: Mon, 20 Jan 2003 00:45:11 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Yaw,

All you need is two levels of Flattening.

Needs["Graphics`Colors`"]
Needs["Graphics`Animation`"]

a = {2, 3, 5}
c = {3, 5, 3}
t = {-1, 3, 5}

pts = Flatten[Table[a*k + b*c + v*t, {k, 1, 2}, {b, 1, 2}, {v, 1, 2}], 2];

plot1 =
    Show[Graphics3D[
        {AbsolutePointSize[4],
          Point /@ pts}],
      Background -> Linen,
      BoxStyle -> Gray,
      ImageSize -> 400];

SpinShow[plot1]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.01];
FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
      AnimationDirection -> Forward]}]

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


From: yaw [mailto:asare at vt.edu]
To: mathgroup at smc.vnet.net

a={2,3,5}
c={3,5,3}
t={-1,3,5}
I am using Table[a*k+b*c+v*t,{k,1,2},{b,1,2},{v,1,2}]
to generate some points. After this I need to plot the points by using 3D
commands like Scatter3DPlot.
How can I get the points from Table in the form of a list so that I can plot
them?.
Thank u!






  • Prev by Date: Re: How to find out which directory a .m file is loaded from?
  • Next by Date: RE: Waterfall Plot Plea for Help
  • Previous by thread: Re: using of Table
  • Next by thread: Re: using of Table