Mercurial > hg > octave-lyh

diff scripts/linear-algebra/orth.m @ 1065:5eeb61cac52e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-01-25 14:04:13 by jwe]
author jwe
date Wed, 25 Jan 1995 14:06:23 +0000
parents 9fc405c8c06c
children 611d403c7f3d
line wrap: on
line diff
--- a/scripts/linear-algebra/orth.m
+++ b/scripts/linear-algebra/orth.m
@@ -34,7 +34,13 @@
 
   [rows, cols] = size (A);
 
-  s = diag (S);
+  [S_nr, S_nc] = size (S);
+
+  if (S_nr == 1 || S_nc == 1)
+    s = S(1);
+  else
+    s = diag (S);
+  endif
 
   if (nargin == 1)
     tol = max (size (A)) * s (1) * eps;