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