Mercurial > forge

changeset 985:e347f09afbbb octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
check of maximum UC corrected
author schloegl
date Tue, 24 Jun 2003 20:04:26 +0000
parents 3451c5f4a428
children e9787a8e83d7
files extra/tsa/adim.m
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/extra/tsa/adim.m	Tue Jun 24 19:27:13 2003 +0000
+++ b/extra/tsa/adim.m	Tue Jun 24 20:04:26 2003 +0000
@@ -41,8 +41,7 @@
 % Boston, MA  02111-1307, USA.
 
 
-[ur,uc] = size(U);
-p = uc;
+[ur,p] = size(U);
 
 Mode_E = 1;
 if nargin < 4,
@@ -57,7 +56,7 @@
                 fprintf(2,'Error ADIM: update coefficient not within range [0,1]\n');
                 return;
         end;
-        if UC < 1/uc,
+        if UC > 1/p,
                 fprintf(2,'Warning ADIM: update coefficient should be smaller than 1/number_of_dimensions\n');
         end;
 end;