diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-10-04 14:16:57 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-10-04 14:16:57 +0200 |
commit | 0500032a1d954058b94cf9a0fa2a662e5666a526 (patch) | |
tree | dad39582ff940d2043acf6042470ee63898c3185 /examples/ode.hs | |
parent | 04ec1d6b547d6c48506d66298f7d09f7de22c96e (diff) |
update examples
Diffstat (limited to 'examples/ode.hs')
-rw-r--r-- | examples/ode.hs | 2 |
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 | ||