How to solve the attached differential equations using Mathematica

[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.

 

[jvicens]

I understand your frustration with trying to solve differential equations using the Lagrange method in Mathematica. It can be a complex process and it's not uncommon to encounter problems along the way. In order to help you, it would be helpful if you could provide more details about the specific equations you are trying to solve and the code you are using. This will allow us to better understand the issue and provide more targeted advice.

In general, when using the NDSolve function in Mathematica, it is important to carefully consider the parameters you are setting, such as "t" and "MaxSteps". It's also important to check the initial conditions and boundary conditions you have set for the equations. Sometimes, a small error in these parameters or conditions can lead to incorrect results or the program getting stuck in a continuous loop.

I would suggest checking the Mathematica documentation for NDSolve and also reaching out to the Mathematica community for assistance. They may have encountered similar issues and can provide helpful insights and solutions.

In addition, it may be helpful to break down your code into smaller chunks and test each part separately to identify where the problem may be occurring. This can help narrow down the issue and make it easier to troubleshoot.

I hope this helps and I wish you success in solving your equations. Don't hesitate to ask for help if you encounter any further difficulties. Best of luck!