MathGroup Archive 1993

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

Search the Archive

lines(t)


HI Mathgroup,
	
	I want to animate a picture of points moving and a line connecting
them. 


<<Graphics`Animation`
$RasterFunction = Identity

pts[t_] :={Point[{Sin[t],Cos[t],Sin[t]+Cos[t]}],
           Point[{Cos[t],Sin[t],Sin[t]+Cos[t]}]}

lines[t_] :=Line[{{Sin[t],Cos[t],Sin[t]+Cos[t]},
                  {Cos[t],Sin[t],Sin[t]+Cos[t]}}]


Table[
        Graphics3D[{PointSize[.05], N[ pts[t]]},
                 PlotRange -> {{-1.5, 1.5},{-1.5,1.5},{-1.5,1.5}}],
                 {t,0,2Pi,Pi/8}]


ShowAnimation[%]

	
	The above code animates points.  Where do I put lines[t] so
both points and lines are animated???????

	Thanks for your help.

	Susan Rempe
	rempe at u.washington.edu







  • Prev by Date: RE: Integrate (deutsch)
  • Next by Date: Digital Plots
  • Previous by thread: RE: Integrate (deutsch)
  • Next by thread: Digital Plots