Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1993

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

Search the Archive

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