MathGroup Archive 1993

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

Search the Archive

lines(t)

  • To: mathgroup <mathgroup at yoda.physics.unc.edu>
  • Subject: lines(t)
  • From: Susan Rempe <rempe at carson.u.washington.edu>
  • Date: Mon, 8 Mar 1993 10:50:04 -0800 (PST)

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