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

MathGroup Archive 2009

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

Search the Archive

DAE system

  • To: mathgroup at smc.vnet.net
  • Subject: [mg104174] DAE system
  • From: rosenm <rosenm at mail.bg>
  • Date: Thu, 22 Oct 2009 02:17:01 -0400 (EDT)

Dear colleagues, can you help me to solve the following system of
differential-algebraic equations, wich describes pendulum swinging:

L = 1; m = 1; Te = 10; g = 9.81;
sol = NDSolve[{m*x''[t] == -x[t]*F[t]/L ,
m*y''[t] == -y[t]*F[t]/L - m*g, (x[t])^2 + (y[t])^2 - L^2 == 0,
x[0] == 0, x'[0] == 1, y[0] == -L, y'[0] == 0, F[0] == 10.81}, {x,
y, F}, {t, 0, Te}];


Thanks


  • Prev by Date: Re: Re: How to find which variable caused the trigger in Manipulate[]
  • Next by Date: Factor
  • Previous by thread: Re: options for VectorPlot in version 7 vs
  • Next by thread: Re: DAE system