Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2009

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

Search the Archive

Re: Differential Equation, pendulum, change of variable plot

  • To: mathgroup at
  • Subject: [mg99304] Re: Differential Equation, pendulum, change of variable plot
  • From: Jens-Peer Kuska <kuska at>
  • Date: Sat, 2 May 2009 05:59:41 -0400 (EDT)
  • References: <gtbtrf$249$>


beside the fact, that your equation is unreadable, but
it should be a differential equation second order for a
pendulum and if it is non-autonomous you must look to
w[n*Omega] when Omega is the frequency
of the driving force and n a natural number.


gareth wrote:
> Hello, thanks for taking the time to help sort out my query.
> I am in the middle of investigating non linear pendulum.
> The equations of motion are
> w'[t]=-(1/q)w[t]-Sin[=CE=B8[t]] + g Cos[wD t]
> Theta is the displacement, w the frequency, wD the driving frequency an=
d g the drive amplitude.
> Basically so far a I have plotted w vs theta to show chaos, however now=
 I want to create a bifurcation diagram,
> like this
> This is done as far as I know is plotting w at the start of every drive=
 cycle against g.
> But I cant figure out how to do this,
> maybe so sort of Do loop with the NDSolve of the differential equation.
> Any help would be much appreciated

  • Prev by Date: Re: Introducing the Wolfram Mathematica Tutorial Collection
  • Next by Date: Re: Ten chess-players...
  • Previous by thread: Re: MapAt problem with passing List
  • Next by thread: Re: Ten chess-players...