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
>