octave: scripts/linear-algebra/vech.m annotate

annotate scripts/linear-algebra/vech.m @ 30564:796f54d4ddbf stable

update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2021. In all .txi and .texi files except gpl.txi and gpl.texi in the doc/liboctave and doc/interpreter directories, change the copyright to "Octave Project Developers", the same as used for other source files. Update copyright notices for 2022 (not done since 2019). For gpl.txi and gpl.texi, change the copyright notice to be "Free Software Foundation, Inc." and leave the date at 2007 only because this file only contains the text of the GPL, not anything created by the Octave Project Developers. Add Paul Thomas to contributors.in.

author	John W. Eaton <jwe@octave.org>
date	Tue, 28 Dec 2021 18:22:40 -0500
parents	7854d5752dd2
children	5d3faba0342e

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ########################################################################
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 ##
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	3 ## Copyright (C) 1995-2022 The Octave Project Developers
27918 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	4 ##
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 ## distribution or <https://octave.org/copyright/>.
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	7 ##
3922 38c61cbf086c [project @ 2002-05-01 06:48:35 by jwe] jwe parents: 3458 diff changeset	8 ## This file is part of Octave.
38c61cbf086c [project @ 2002-05-01 06:48:35 by jwe] jwe parents: 3458 diff changeset	9 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	10 ## Octave is free software: you can redistribute it and/or modify it
3922 38c61cbf086c [project @ 2002-05-01 06:48:35 by jwe] jwe parents: 3458 diff changeset	11 ## under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	12 ## the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	13 ## (at your option) any later version.
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	14 ##
3922 38c61cbf086c [project @ 2002-05-01 06:48:35 by jwe] jwe parents: 3458 diff changeset	15 ## Octave is distributed in the hope that it will be useful, but
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22323 diff changeset	18 ## GNU General Public License for more details.
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	19 ##
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	20 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	21 ## along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	22 ## <https://www.gnu.org/licenses/>.
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 ##
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ########################################################################
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	25
3369 f37ca3017116 [project @ 1999-11-21 16:26:02 by jwe] jwe parents: 2745 diff changeset	26 ## -- texinfo --
20852 516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20160 diff changeset	27 ## @deftypefn {} {} vech (@var{x})
19038 9e3c35d934ab doc: Periodic spell check of documentation. Rik <rik@octave.org> parents: 17744 diff changeset	28 ## Return the vector obtained by eliminating all superdiagonal elements of
3369 f37ca3017116 [project @ 1999-11-21 16:26:02 by jwe] jwe parents: 2745 diff changeset	29 ## the square matrix @var{x} and stacking the result one column above the
20160 03b9d17a2d95 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	30 ## other.
03b9d17a2d95 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	31 ##
03b9d17a2d95 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	32 ## This has uses in matrix calculus where the underlying matrix is symmetric
03b9d17a2d95 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	33 ## and it would be pointless to keep values above the main diagonal.
12639 4d777e05d47c doc: Review and update documentation for "Matrix Manipulation" chapter. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	34 ## @seealso{vec}
3369 f37ca3017116 [project @ 1999-11-21 16:26:02 by jwe] jwe parents: 2745 diff changeset	35 ## @end deftypefn
f37ca3017116 [project @ 1999-11-21 16:26:02 by jwe] jwe parents: 2745 diff changeset	36
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	37 ## See Magnus and Neudecker (1988), Matrix differential calculus with
c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	38 ## applications in statistics and econometrics.
c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	39
5428 2a16423e4aa0 [project @ 2005-08-23 18:38:27 by jwe] jwe parents: 5307 diff changeset	40 ## Author KH <Kurt.Hornik@wu-wien.ac.at>
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	41
c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	42 function v = vech (x)
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	43
28891 de5f2f9a64ff maint: Use same coding style when checking for a minimum of 1 input. Rik <rik@octave.org> parents: 28886 diff changeset	44 if (nargin < 1)
6046 34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe] jwe parents: 5428 diff changeset	45 print_usage ();
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	46 endif
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	47
4030 22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe] jwe parents: 3922 diff changeset	48 if (! issquare (x))
11472 1740012184f9 Use uppercase for variable names in error() strings to match Info documentation. Only m-files done. Rik <octave@nomad.inbox5.com> parents: 9093 diff changeset	49 error ("vech: X must be square");
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	50 endif
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3369 diff changeset	51
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	52 n = rows (x);
9093 8be05554bbd0 optimize vech Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	53 slices = cellslices (x(:), (1:n) + n(0:n-1), n(1:n));
8be05554bbd0 optimize vech Jaroslav Hajek <highegg@gmail.com> parents: 8920 diff changeset	54 v = vertcat (slices{:});
2540 c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	55
c3d634d49ce4 [project @ 1996-11-20 00:20:12 by jwe] jwe parents: diff changeset	56 endfunction
7411 83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	57
14363 f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	58
f3d52523cde1 Use Octave coding conventions in all m-file %!test blocks Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	59 %!assert (vech ([1, 2, 3; 4, 5, 6; 7, 8, 9]), [1; 4; 7; 5; 8; 9])
7411 83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	60
28886 d8318c12d903 test: remove unnecessary BIST tests in m-files checking for excessive number of inputs. Rik <rik@octave.org> parents: 27981 diff changeset	61 %!error <Invalid call> vech ()

Mercurial > octave

annotate scripts/linear-algebra/vech.m @ 30564:796f54d4ddbf stable