Example: Runge-Kutta-Verner ordinary differential equation solver
An ordinary differential equation problem is solved using a solver which implements the Runge-Kutta-Verner method. The solution at time t=10 is printed.
using System;
using Imsl.Math;
public class OdeRungeKuttaEx1 : OdeRungeKutta.IFunction
{
public void F(double t, double[] y, double[] yprime)
{
yprime[0] = 2.0 * y[0] * (1 - y[1]);
yprime[1] = - y[1] * (1 - y[0]);
}
public static void Main(String[] args)
{
double[] y = new double[]{1, 3};
OdeRungeKutta q = new OdeRungeKutta(new OdeRungeKuttaEx1());
int nsteps = 10;
for (int k = 0; k < nsteps; k++)
{
q.Solve(k, k + 1, y);
}
Console.Out.WriteLine("Result = {" + y[0] + "," + y[1] + "}");
}
}
Output
Result = {3.14434167651608,0.348826598519701}
Link to C# source.