Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?