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!