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

```

• Prev by Date: "Chaos and Fractals" programs
• Next by Date: Re: Exporting Mathematica output to word processing program
• Previous by thread: "Chaos and Fractals" programs
• Next by thread: EllipticTheta[3,real,Exp[I real] ]