Re: Animation = Translation + Vibration, But How?

• To: mathgroup at smc.vnet.net
• Subject: [mg95174] Re: Animation = Translation + Vibration, But How?
• From: dh <dh at metrohm.com>
• Date: Fri, 9 Jan 2009 06:21:18 -0500 (EST)
• References: <gk1rso\$pgl\$1@smc.vnet.net> <gk2679\$135\$1@smc.vnet.net> <gk3ffa\$e0n\$1@smc.vnet.net>

```
Hi Gidi,

e.g. look up "Animate" or:

http://www.math.northwestern.edu/~wphooper/code/latex/mathematica_movie/

Daniel

GidiL wrote:

> On Jan 7, 2:12 pm, dh <d... at metrohm.com> wrote:

>> 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- Hide quoted text -

>> - Show quoted text -

>

> Daniel,

>

> Thank you so very much!

> Your suggestion spurred another question: would you happen to know how

> I could combine the different frames into a single frame, which could

> then be made into a QuickTime movie?

>

> Gideon

>

```

• Prev by Date: New kind of Weierstrass fractal scaling: Eulerian scales,MacMahon
• Next by Date: Re: Manipulate, Export, .avi, forward run without the
• Previous by thread: Re: Animation = Translation + Vibration, But How?
• Next by thread: Re: Animation = Translation + Vibration, But How?