MathGroup Archive 1993

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

Search the Archive

How to Animate Points???


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] ]