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

>

```

• Prev by Date: Re: Problems combining new v7.0 Image command with other graphics
• Next by Date: Re: Problems combining new v7.0 Image command with other graphics
• Previous by thread: Re: How to solve an equation with Gamma function in it?
• Next by thread: Re: Animation = Translation + Vibration, But How?