NDSolve problems in Mathematica (differential equations)

[sky8754180]

Hello everyone,

I am making use of Mathematica to solve differential equations developed by Lagrange method,

I have met some problems in solving the equations,

I cannot obtain the correct result even though I have set "t" and "MaxSteps" both as "Infinity". I have run the program for 7 hours, but it cannot stop calculation under the condition that
"Event"->(RLEy[[1,1]]).

I don't know much about how to set the parameters of NDSolve functions
properly in order to get correct results?

The program I have run is as the attached, I appreciate any help from you.

 

[muppet]

This sounds like more of a Mathematica problem than one about actual differential equations. There's a special forum for that: Other Sciences-> Computing->Math and Science software, where you're more likely to be able to find someone who can help.