Mercurial > hg > octave-lyh

diff examples/oregonator.m @ 2689:8c7955a8d49f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-02-18 09:06:10 by jwe]
author jwe
date Tue, 18 Feb 1997 09:09:12 +0000
parents
children 7c96e85c76db
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/examples/oregonator.m
@@ -0,0 +1,11 @@
+## The `oregonator'.
+
+function dx = oregonator (x, t)
+
+  dx = zeros (3, 1);
+
+  dx(1) = 77.27*(x(2) - x(1)*x(2) + x(1) - 8.375e-06*x(1)^2);
+  dx(2) = (x(3) - x(1)*x(2) - x(2)) / 77.27;
+  dx(3) = 0.161*(x(1) - x(3));
+
+end