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	Fri Nov 04 00:59:24 1994 +0000
+++ b/scripts/control/are.m	Fri Nov 04 14:44:47 1994 +0000
@@ -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;