Message Boards

WOLFRAM COMMUNITY

11787 Views

7 Replies

0 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Runge Kutta method to solve the Equation

Zainab Junaid

Posted 10 years ago

Hi dear community, I want to solve my equation by the Runge kutta 4rth order method. Can somebody guide me to solve my problem please?

POSTED BY: Zainab Junaid

7 Replies

Sort By:

Thai Kee Gan

Posted 10 years ago

Hello, I have the same thread too. Please check the discussions created by me. Thanks

POSTED BY: Thai Kee Gan

Bruce Miller

Bruce Miller, Wolfram Research

Posted 10 years ago

I think you are referring to discussion http://community.wolfram.com/groups/-/m/t/421465 . Please include the URL and/or discussion title when adding a reference to another thread.

POSTED BY: Bruce Miller

Thai Kee Gan

Posted 10 years ago

Thank you, I will keep that in mind. :D

POSTED BY: Thai Kee Gan

Simon Tyran

Posted 10 years ago

tMax = 10; f = Sin[t]; nds = NDSolve[{x'''''[t] == f, x''''[0] == 0, x'''[0] == 0, x''[0] == 0, x'[0] == 0, x[0] == 0}, x, {t, 0, tMax}, MaxSteps -> Infinity, Method -> {"ImplicitRungeKutta", "DifferenceOrder" -> 20}, InterpolationOrder -> All]; crackle -> Evaluate[x'''''[tMax] /. nds][[1]] velocity -> Evaluate[x'[tMax] /. nds][[1]] position -> Evaluate[x[tMax] /. nds][[1]]

tMax = 10; f = Sin[t];
nds = NDSolve[{x'''''[t] == f, x''''[0] == 0, x'''[0] == 0, 
    x''[0] == 0, x'[0] == 0, x[0] == 0}, x, {t, 0, tMax}, 
   MaxSteps -> Infinity, 
   Method -> {"ImplicitRungeKutta", "DifferenceOrder" -> 20}, 
   InterpolationOrder -> All];
crackle -> Evaluate[x'''''[tMax] /. nds][[1]]
velocity -> Evaluate[x'[tMax] /. nds][[1]]
position -> Evaluate[x[tMax] /. nds][[1]]

POSTED BY: Simon Tyran