Mercurial > hg > octave-max
changeset 873:10882039366f
[project @ 1994-11-04 14:44:47 by jwe]
author | jwe |
---|---|
date | Fri, 04 Nov 1994 14:44:47 +0000 |
parents | fb24794ef0e2 |
children | 0c94207fb562 |
files | scripts/control/are.m |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/control/are.m +++ b/scripts/control/are.m @@ -1,4 +1,4 @@ -# Copyright (C) 1993 John W. Eaton +# Copyright (C) 1993, 1994 John W. Eaton # # This file is part of Octave. # @@ -76,7 +76,7 @@ # n-1 # rank ([ B A*B ... A^ *B]) method - [d, h] = balance ([a, -b; -c, -a'], opt), "A" + [d, h] = balance ([a, -b; -c, -a'], opt); [u, s] = schur (h, "A"); u = d * u; n1 = n + 1;