octave-nkf: scripts/polynomial/polyreduce.m annotate

annotate scripts/polynomial/polyreduce.m @ 15063:36cbcc37fdb8

Refactor configure.ac to make it more understandable. Use common syntax for messages in config.h Correct typos, refer to libraries in all caps, use two spaces after period. Follow Autoconf guidelines and place general tests before specific tests. * configure.ac, m4/acinclude.m4: Use common syntax for messages in config.h Correct typos, refer to libraries in all caps, use two spaces after period. Follow Autoconf guidelines and place general tests before specific tests.

author	Rik <rik@octave.org>
date	Tue, 31 Jul 2012 10:28:51 -0700
parents	f6007bb54f06
children	d63878346099

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 14104 diff changeset	1 ## Copyright (C) 1994-2012 John W. Eaton
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	8 ## your option) any later version.
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	15 ## 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	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6046 diff changeset	17 ## <http://www.gnu.org/licenses/>.
904 3470f1e25a79 [project @ 1994-11-09 21:22:15 by jwe] jwe parents: 561 diff changeset	18
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3202 diff changeset	19 ## -- texinfo --
a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3202 diff changeset	20 ## @deftypefn {Function File} {} polyreduce (@var{c})
12575 d0b799dafede Grammarcheck files for 3.4.1 release. Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	21 ## Reduce a polynomial coefficient vector to a minimum number of terms by
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3202 diff changeset	22 ## stripping off any leading zeros.
14104 614505385171 doc: Overhaul docstrings for polynomial functions. Rik <octave@nomad.inbox5.com> parents: 13963 diff changeset	23 ## @seealso{polyout}
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3202 diff changeset	24 ## @end deftypefn
1025 f558749713f1 [project @ 1995-01-11 20:52:10 by jwe] jwe parents: 904 diff changeset	25
3202 44d82b369c78 [project @ 1998-10-29 20:27:57 by jwe] jwe parents: 2847 diff changeset	26 ## Author: Tony Richardson <arichard@stark.cc.oh.us>
2312 204cc7db6f4a [project @ 1996-07-11 21:20:36 by jwe] jwe parents: 2311 diff changeset	27 ## Created: June 1994
204cc7db6f4a [project @ 1996-07-11 21:20:36 by jwe] jwe parents: 2311 diff changeset	28 ## Adapted-By: jwe
561 e79ff1f4df3c [project @ 1994-07-25 22:32:08 by jwe] jwe parents: diff changeset	29
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10224 diff changeset	30 function p = polyreduce (c)
1025 f558749713f1 [project @ 1995-01-11 20:52:10 by jwe] jwe parents: 904 diff changeset	31
2716 2b5c27299cde [project @ 1997-02-22 08:40:55 by jwe] jwe parents: 2313 diff changeset	32 if (nargin != 1)
6046 34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe] jwe parents: 5642 diff changeset	33 print_usage ();
14224 f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	34 elseif (! isvector (c) \|\| isempty (c))
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10224 diff changeset	35 error ("polyreduce: C must be a non-empty vector");
2716 2b5c27299cde [project @ 1997-02-22 08:40:55 by jwe] jwe parents: 2313 diff changeset	36 endif
561 e79ff1f4df3c [project @ 1994-07-25 22:32:08 by jwe] jwe parents: diff changeset	37
14224 f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	38 idx = find (c != 0, 1);
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	39
14224 f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	40 if (isempty (idx))
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	41 p = 0;
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	42 else
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	43 p = c(idx:end);
561 e79ff1f4df3c [project @ 1994-07-25 22:32:08 by jwe] jwe parents: diff changeset	44 endif
1025 f558749713f1 [project @ 1995-01-11 20:52:10 by jwe] jwe parents: 904 diff changeset	45
561 e79ff1f4df3c [project @ 1994-07-25 22:32:08 by jwe] jwe parents: diff changeset	46 endfunction
7411 83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	47
83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	48
14224 f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	49 %!assert (polyreduce ([0, 0, 1, 2, 3]), [1, 2, 3])
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	50 %!assert (polyreduce ([1, 2, 3, 0, 0]), [1, 2, 3, 0, 0])
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	51 %!assert (polyreduce ([1, 0, 3]), [1, 0, 3])
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	52 %!assert (polyreduce ([0, 0, 0]), 0)
7411 83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	53
14224 f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	54 %!error polyreduce ()
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	55 %!error polyreduce (1, 2)
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	56 %!error <C must be a non-empty vector> polyreduce ([1, 2; 3, 4])
f6007bb54f06 polyreduce.m: Recode function using modern syntax. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	57 %!error <C must be a non-empty vector> polyreduce ([])
7411 83a8781b529d [project @ 2008-01-22 21:52:25 by jwe] jwe parents: 7017 diff changeset	58

Mercurial > hg > octave-nkf

annotate scripts/polynomial/polyreduce.m @ 15063:36cbcc37fdb8