Mercurial > hg > octave-lyh

diff scripts/linear-algebra/orth.m @ 2312:204cc7db6f4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 21:20:36 by jwe]
author jwe
date Thu, 11 Jul 1996 21:20:36 +0000
parents 2b5788792cad
children 5ca126254d15
line wrap: on
line diff
--- a/scripts/linear-algebra/orth.m
+++ b/scripts/linear-algebra/orth.m
@@ -27,9 +27,11 @@
 ## max (size (A)) * sigma_max (A) * eps, where sigma_max (A) is the
 ## maximal singular value of A.
 
-function retval = orth (A, tol)
+## Author: KH <Kurt.Hornik@ci.tuwien.ac.at>
+## Created: 24 December 1993.
+## Adapted-By: jwe
 
-  ## Written by KH (Kurt.Hornik@ci.tuwien.ac.at) on Dec 24, 1993.
+function retval = orth (A, tol)
 
   [U, S, V] = svd (A);