Mercurial > forge

changeset 12496:c982a4069ee7 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: moved special-matrix package to separate individual hg repository
author carandraug
date Sun, 25 May 2014 20:16:06 +0000
parents 0b2ba8989738
children f0a5ce270b36
files main/special-matrix/COPYING main/special-matrix/DESCRIPTION main/special-matrix/INDEX main/special-matrix/NEWS main/special-matrix/inst/arecibo.m main/special-matrix/inst/lauchli.m
diffstat 6 files changed, 0 insertions(+), 145 deletions(-) [+]
line wrap: on
line diff
--- a/main/special-matrix/COPYING	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-This program is donated to the public domain
--- a/main/special-matrix/DESCRIPTION	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,12 +0,0 @@
-Name: special-matrix
-Version: 1.0.7
-Date: 2009-05-06
-Author: Paul Kienzle <pkienzle@users.sf.net>
-Maintainer: Octave-Forge community <octave-dev@lists.sourceforge.net>
-Title: Special Matrices
-Description: Additional Special Matrices for Octave.
-Categories: Special Matrices
-Depends: octave (>= 2.9.7)
-Autoload: no
-License: public domain
-Url: http://octave.sf.net
--- a/main/special-matrix/INDEX	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,4 +0,0 @@
-matrix >> Linear Algebra
-Special matrices
- arecibo
- lauchli
--- a/main/special-matrix/NEWS	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-Summary of important user-visible changes for special-matrix 1.1.0:
--------------------------------------------------------------------
-
- ** The following function is new:
-
-      arecibo
-
- ** Package is no longer automatically loaded.
--- a/main/special-matrix/inst/arecibo.m	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,87 +0,0 @@
-## Author: Jaroslav Hajek <highegg@gmail.com>
-## This program is granted to the public domain.
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {@var{a} =} arecibo ()
-## Returns the 73x23 logical matrix corresponding to the Arecibo message.
-## @seealso {ones,zeros,eye}
-## @end deftypefn
-
-function a = arecibo ()
-  persistent aa = [
-    "00000010101010000000000";
-    "00101000001010000000100";
-    "10001000100010010110010";
-    "10101010101010100100100";
-    "00000000000000000000000";
-    "00000000000011000000000";
-    "00000000001101000000000";
-    "00000000001101000000000";
-    "00000000010101000000000";
-    "00000000011111000000000";
-    "00000000000000000000000";
-    "11000011100011000011000";
-    "10000000000000110010000";
-    "11010001100011000011010";
-    "11111011111011111011111";
-    "00000000000000000000000";
-    "00010000000000000000010";
-    "00000000000000000000000";
-    "00001000000000000000001";
-    "11111000000000000011111";
-    "00000000000000000000000";
-    "11000011000011100011000";
-    "10000000100000000010000";
-    "11010000110001110011010";
-    "11111011111011111011111";
-    "00000000000000000000000";
-    "00010000001100000000010";
-    "00000000001100000000000";
-    "00001000001100000000001";
-    "11111000001100000011111";
-    "00000000001100000000000";
-    "00100000000100000000100";
-    "00010000001100000001000";
-    "00001100001100000010000";
-    "00000011000100001100000";
-    "00000000001100110000000";
-    "00000011000100001100000";
-    "00001100001100000010000";
-    "00010000001000000001000";
-    "00100000001100000000100";
-    "01000000001100000000100";
-    "01000000000100000001000";
-    "00100000001000000010000";
-    "00010000000000001100000";
-    "00001100000000110000000";
-    "00100011101011000000000";
-    "00100000001000000000000";
-    "00100000111110000000000";
-    "00100001011101001011011";
-    "00000010011100100111111";
-    "10111000011100000110111";
-    "00000000010100000111011";
-    "00100000010100000111111";
-    "00100000010100000110000";
-    "00100000110110000000000";
-    "00000000000000000000000";
-    "00111000001000000000000";
-    "00111010100010101010101";
-    "00111000000000101010100";
-    "00000000000000101000000";
-    "00000000111110000000000";
-    "00000011111111100000000";
-    "00001110000000111000000";
-    "00011000000000001100000";
-    "00110100000000010110000";
-    "01100110000000110011000";
-    "01000101000001010001000";
-    "01000100100010010001000";
-    "00000100010100010000000";
-    "00000100001000010000000";
-    "00000100000000010000000";
-    "00000001001010000000000";
-    "01111001111101001111000";
-  ] == "1";
-  a = aa;
-endfunction
--- a/main/special-matrix/inst/lauchli.m	Sun May 25 20:00:24 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,33 +0,0 @@
-## Author: Paul Kienzle <pkienzle@users.sf.net>
-## This program is granted to the public domain.
-
-## -*- texinfo -*-
-## @deftypefn {Function File} {@var{a}} = lauchli (@var{n})
-## @deftypefnx {Function File} {@var{a}} = lauchli (@var{n},@var{mu})
-## Creates the matrix [ ones(1,@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}
-## @end deftypefn
-
-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