(48G 49G 50G) Runge-Kutta Diff Eqn solver

[Werner]

You can rewrite that as

[ y v ]' = [ v g-k.X.v^2 ]

So the ODE program must accept [y v] and return [v g-k.X.v^2]
Something like this, with g,k and X global vars:

Code:

\<<
  2. GET @ v
  g OVER SQ
  k * X * - \->NUM
  2. \->ARRY
\>>

Cheers, Werner