[Pkg-octave-commit] r1568 - in octave-forge-pkgs/octave-miscellaneous/trunk/debian: . patches

[Thomas Weber]

Author: thomas-guest
Date: 2008-04-05 08:46:47 +0000 (Sat, 05 Apr 2008)
New Revision: 1568

Added:
   octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/
   octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/series
   octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/special_matrix_lauchli
Modified:
   octave-forge-pkgs/octave-miscellaneous/trunk/debian/changelog
Log:
Add lauchli.m from package special-matrix

Modified: octave-forge-pkgs/octave-miscellaneous/trunk/debian/changelog
===================================================================
--- octave-forge-pkgs/octave-miscellaneous/trunk/debian/changelog	2008-04-05 08:40:18 UTC (rev 1567)
+++ octave-forge-pkgs/octave-miscellaneous/trunk/debian/changelog	2008-04-05 08:46:47 UTC (rev 1568)
@@ -1,5 +1,10 @@
 octave-miscellaneous (1.0.5-1) UNRELEASED; urgency=low
 
+  [ Ólafur Jens Sigurðsson ]
   * Initial release (closes: #468509)
 
- -- Ólafur Jens Sigurðsson <ojsbug at gmail.com>  Sat, 16 Feb 2008 15:02:34 +0100
\ No newline at end of file
+  [ Thomas Weber ]
+  * Add lauchli.m from special-matrix package, avoiding the need for a
+    package (special-matrix) for just one file.
+
+ -- Thomas Weber <thomas.weber.mail at gmail.com>  Fri, 04 Apr 2008 22:02:13 +0200

Added: octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/series
===================================================================
--- octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/series	                        (rev 0)
+++ octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/series	2008-04-05 08:46:47 UTC (rev 1568)
@@ -0,0 +1 @@
+special_matrix_lauchli

Added: octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/special_matrix_lauchli
===================================================================
--- octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/special_matrix_lauchli	                        (rev 0)
+++ octave-forge-pkgs/octave-miscellaneous/trunk/debian/patches/special_matrix_lauchli	2008-04-05 08:46:47 UTC (rev 1568)
@@ -0,0 +1,35 @@
+--- /dev/null
++++ b/inst/lauchli.m
+@@ -0,0 +1,32 @@
++## -*- texinfo -*-
++## @deftypefn {Function File} {@var{a}} = lauchli (@var{n})
++## @deftypefnx {Function File} {@var{a}} = lauchli (@var{n}, at var{mu})
++## Creates the matrix [ ones(1, at var{n}); @var{mu}*eye(@var{n}) ]
++## The value @var{mu} defaults to sqrt(eps).
++## This is an ill-conditioned system for testing the
++## accuracy of the QR routine.
++##
++## @example
++## @group
++##       A = lauchli(15);
++##       [Q, R] = qr(A);
++##       norm(Q*R - A)
++##       norm(Q'*Q - eye(rows(Q)))
++## @end group
++## @end example
++## @end deftypefn
++## @seealso {ones,zeros,eye}
++
++## This program is in the public domain
++## Author: Paul Kienzle <pkienzle at users.sf.net>
++
++function A = lauchli(n,mu)
++  if (nargin < 1 || nargin > 2)
++    usage("A = lauchli(n [, mu])");
++  endif
++
++  if (nargin < 2), mu = sqrt(eps); endif
++
++  A = [ ones(1,n); mu*eye(n) ];
++
++endfunction