summaryrefslogtreecommitdiff
path: root/examples/ode.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-10-04 14:16:57 +0200
committerAlberto Ruiz <aruiz@um.es>2015-10-04 14:16:57 +0200
commit0500032a1d954058b94cf9a0fa2a662e5666a526 (patch)
treedad39582ff940d2043acf6042470ee63898c3185 /examples/ode.hs
parent04ec1d6b547d6c48506d66298f7d09f7de22c96e (diff)
update examples
Diffstat (limited to 'examples/ode.hs')
-rw-r--r--examples/ode.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/ode.hs b/examples/ode.hs
index dc6e0ec..4cf1673 100644
--- a/examples/ode.hs
+++ b/examples/ode.hs
@@ -43,7 +43,7 @@ vanderpol' mu = do
43 jac t (toList->[x,v]) = (2><2) [ 0 , 1 43 jac t (toList->[x,v]) = (2><2) [ 0 , 1
44 , -1-2*x*v*mu, mu*(1-x**2) ] 44 , -1-2*x*v*mu, mu*(1-x**2) ]
45 ts = linspace 1000 (0,50) 45 ts = linspace 1000 (0,50)
46 hi = (ts@>1 - ts@>0)/100 46 hi = (ts!1 - ts!0)/100
47 sol = toColumns $ odeSolveV (MSBDF jac) hi 1E-8 1E-8 (xdot mu) (fromList [1,0]) ts 47 sol = toColumns $ odeSolveV (MSBDF jac) hi 1E-8 1E-8 (xdot mu) (fromList [1,0]) ts
48 mplot sol 48 mplot sol
49 49