How to Animate Points???

*To*: mathgroup at yoda.physics.unc.edu*Subject*: How to Animate Points???*From*: Susan Rempe <rempe at carson.u.washington.edu>*Date*: Mon, 25 Jan 1993 13:28:42 -0800 (PST)

Hi Mathgroup, I have the x,y,z coordinates for a point in space at an initial position (req) and a change in that position (coordlist). I want to watch that point move using the equations x(t)=x + delta x *Sin[w*t] y(t)=y + delta y *Sin[w*t] z(t)=z + delta z *Sin[w*t] I tried by first identifying just one point, anipts= Point[ {req[[1,1]]+coordlist[1][[1,1]] Sin[t], req[[1,2]]+coordlist[1][[1,2]] Sin[t], req[[1,3]]+coordlist[1][[1,3]] Sin[t] }] then making a bunch of graphs Table[Show[Graphics3D[anipts],DisplayFunction->Identity],{t,0,5}] and then trying to animate the result using Animate[Table[Show[Graphics3D[anipts]]],{t,0,5}] and ShowAnimation[Table[Show[Graphics3D[anipts]]],{t,0,5}] among other things. Nothing works. Can anyone offer a suggestion?? Susan Rempe