Mercurial > octave
annotate scripts/polynomial/polyreduce.m @ 27919:1891570abac8
update Octave Project Developers copyright for the new year
In files that have the "Octave Project Developers" copyright notice,
update for 2020.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 06 Jan 2020 22:29:51 -0500 |
parents | b442ec6dda5c |
children | bd51beb6205e |
rev | line source |
---|---|
27919
1891570abac8
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
27918
diff
changeset
|
1 ## Copyright (C) 1994-2020 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
|
2 ## |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
3 ## See the file COPYRIGHT.md in the top-level directory of this distribution |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
4 ## or <https://octave.org/COPYRIGHT.html/>. |
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
26376
diff
changeset
|
5 ## |
2313 | 6 ## |
7 ## This file is part of Octave. | |
8 ## | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
9 ## Octave is free software: you can redistribute it and/or modify it |
2313 | 10 ## 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
|
11 ## 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
|
12 ## (at your option) any later version. |
2313 | 13 ## |
14 ## Octave is distributed in the hope that it will be useful, but | |
15 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
16 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
17 ## GNU General Public License for more details. |
2313 | 18 ## |
19 ## You should have received a copy of the GNU General Public License | |
7016 | 20 ## 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
|
21 ## <https://www.gnu.org/licenses/>. |
904 | 22 |
3368 | 23 ## -*- texinfo -*- |
20852
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
24 ## @deftypefn {} {} polyreduce (@var{c}) |
12575
d0b799dafede
Grammarcheck files for 3.4.1 release.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
25 ## Reduce a polynomial coefficient vector to a minimum number of terms by |
3368 | 26 ## stripping off any leading zeros. |
14104
614505385171
doc: Overhaul docstrings for polynomial functions.
Rik <octave@nomad.inbox5.com>
parents:
13963
diff
changeset
|
27 ## @seealso{polyout} |
3368 | 28 ## @end deftypefn |
1025 | 29 |
3202 | 30 ## Author: Tony Richardson <arichard@stark.cc.oh.us> |
2312 | 31 ## Created: June 1994 |
32 ## Adapted-By: jwe | |
561 | 33 |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
10224
diff
changeset
|
34 function p = polyreduce (c) |
1025 | 35 |
2716 | 36 if (nargin != 1) |
6046 | 37 print_usage (); |
14224
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
38 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
|
39 error ("polyreduce: C must be a non-empty vector"); |
2716 | 40 endif |
561 | 41 |
14224
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
42 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
|
43 |
14224
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
44 if (isempty (idx)) |
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
45 p = 0; |
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
46 else |
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
47 p = c(idx:end); |
561 | 48 endif |
1025 | 49 |
561 | 50 endfunction |
7411 | 51 |
52 | |
14224
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
53 %!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
|
54 %!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
|
55 %!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
|
56 %!assert (polyreduce ([0, 0, 0]), 0) |
7411 | 57 |
14224
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
58 %!error polyreduce () |
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
59 %!error polyreduce (1, 2) |
f6007bb54f06
polyreduce.m: Recode function using modern syntax.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
60 %!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
|
61 %!error <C must be a non-empty vector> polyreduce ([]) |