Mercurial > octave-nkf
view test/octave.test/diffeq/lsode-1.m @ 5301:9302581b820d ss-2-9-2
[project @ 2005-04-22 17:08:07 by jwe]
author | jwe |
---|---|
date | Fri, 22 Apr 2005 17:09:11 +0000 |
parents | 3aa0e187901c |
children |
line wrap: on
line source
## dassl-1.m ## ## Test lsode() function ## ## Author: David Billinghurst (David.Billinghurst@riotinto.com.au) ## Comalco Research and Technology ## 20 May 1998 ## ## Problem ## ## y1' = -y2, y1(0) = 1 ## y2' = y1, y2(0) = 0 ## ## Solution ## ## y1(t) = cos(t) ## y2(t) = sin(t) x0 = [1; 0]; xdot0 = [0; 1]; t = (0:1:10)'; tol = 500 * lsode_options ("relative tolerance"); function xdot = f (x, t) xdot = [-x(2); x(1)]; endfunction x = lsode ("f", x0, t); y = [cos(t), sin(t)]; all (all (abs (x - y) < tol))