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: [mg95174] Re: Animation = Translation + Vibration, But How?
  • From: dh <dh at metrohm.com>
  • Date: Thu, 8 Jan 2009 06:43:11 -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: Re: Problems combining new v7.0 Image command with other graphics
  • Next by Date: Re: Mathematica 7 much slower than Mathematica 6 on Limit
  • Previous by thread: Re: Animation = Translation + Vibration, But How?
  • Next by thread: Re: Animation = Translation + Vibration, But How?