Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg120730] Animation
- From: "DaleJenk" <dale.jenkins8 at deletegooglemail.com>
- Date: Mon, 8 Aug 2011 04:18:49 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
How can I animate the following: Manipulate[ m = 1.0; b1 = 1; b2 = 0; b3 = 0; {x1, x2, x3} = a = b1*Cos[t]*{1, 0, -1} + b2*Cos[Sqrt[(2 + Sqrt[2])]*t]*{1, -Sqrt[2], 1} + b3*Cos[Sqrt[(2 - Sqrt[2])]*t]*{1, Sqrt[2], 1}, {t, 0, 5}] balls = Graphics[{Black, Line[{{0, 0}, {1, x1}, {2, x2}, {3, x3}, {4, 0}}], Red, {Disk[{1, x1}, .1 Sqrt[m]], Disk[{2, x2}, .1 Sqrt[m]], Disk[{3, x3}, .1 Sqrt[m]]}}, PlotRange -> {{0, 4}, {-1, 1}}, Frame -> True, ImageSize -> {400, 250}] Thanks for any help.
- Follow-Ups:
- Re: Animation
- From: Heike Gramberg <heike.gramberg@gmail.com>
- Re: Animation