Re: Animation = Translation + Vibration, But How?

*To*: mathgroup at smc.vnet.net*Subject*: [mg95155] Re: Animation = Translation + Vibration, But How?*From*: dh <dh at metrohm.com>*Date*: Wed, 7 Jan 2009 07:13:27 -0500 (EST)*References*: <gk1rso$pgl$1@smc.vnet.net>

Hi Gidi, here is a very simple aproach: lever[x_, y_, phi_?NumericQ] := Module[{length = 1}, p1 = {x, y, 0}; p2 = p1 + length { Cos[phi], 0, Sin[phi]}; Line[{p1, p2}] ]; Do[ x = 0.01 t; y = 0.01 t; phi = 0.2 Sin[0.2 t]; Show[Graphics3D[{Thickness[0.1], lever[x, y, phi]}], PlotRange -> {{0, 2}, {0, 2}, {-1, 1}}] // Print; , {t, 0, 100}] hope that this get you started, Daniel GidiL wrote: > Dear All! > > I created a cantilever in Mathematica (nothing fancy, a Graphics 3D > object created with Polygon). > The only thing that I want now is to simulate its movement. I thought > it would be easy, but it's proving to be diabolically difficult. > Boundary conditions: the cantilever should be fixed in one end, and > allowed to oscillate in the other (the oscillations are predetermined > by some simple trigonometric function). > This system should be allowed to translate in space (a moving beam, so > to speak). > So it should be allowed to move in the X-Y plane and oscillate along > the Z- axis. > > Moving it in the X-Y plane is accomplished with the Translate > function. But how can I make it oscillate in a specific manner? How > can I combine in one animation both movements? > > Any help would be greatly apprerciated, > > Gideon >