Mercurial > octave-antonio
comparison scripts/special-matrix/toeplitz.m @ 19833:9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Try to trim long lines to < 80 chars.
Use '##' for single line comments.
Use '(...)' around tests for if/elseif/switch/while.
Abut cell indexing operator '{' next to variable.
Abut array indexing operator '(' next to variable.
Use space between negation operator '!' and following expression.
Use two newlines between endfunction and start of %!test or %!demo code.
Remove unnecessary parens grouping between short-circuit operators.
Remove stray extra spaces (typos) between variables and assignment operators.
Remove stray extra spaces from ends of lines.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 23 Feb 2015 14:54:39 -0800 |
parents | 4197fc428c7d |
children | 2645f9ef8c88 |
comparison
equal
deleted
inserted
replaced
19832:a1acca0c2216 | 19833:9fc020886ae9 |
---|---|
123 | 123 |
124 %!assert (toeplitz (1), [1]) | 124 %!assert (toeplitz (1), [1]) |
125 %!assert (toeplitz ([1, 2, 3], [1; -3; -5]), [1, -3, -5; 2, 1, -3; 3, 2, 1]) | 125 %!assert (toeplitz ([1, 2, 3], [1; -3; -5]), [1, -3, -5; 2, 1, -3; 3, 2, 1]) |
126 %!assert (toeplitz ([1, 2, 3], [1; -3i; -5i]), [1, -3i, -5i; 2, 1, -3i; 3, 2, 1]) | 126 %!assert (toeplitz ([1, 2, 3], [1; -3i; -5i]), [1, -3i, -5i; 2, 1, -3i; 3, 2, 1]) |
127 | 127 |
128 %% Test input validation | 128 ## Test input validation |
129 %!error toeplitz () | 129 %!error toeplitz () |
130 %!error toeplitz (1, 2, 3) | 130 %!error toeplitz (1, 2, 3) |
131 %!error <C must be a vector> toeplitz ([1, 2; 3, 4]) | 131 %!error <C must be a vector> toeplitz ([1, 2; 3, 4]) |
132 %!error <C and R must be vectors> toeplitz ([1, 2; 3, 4], 1) | 132 %!error <C and R must be vectors> toeplitz ([1, 2; 3, 4], 1) |
133 %!error <C and R must be vectors> toeplitz (1, [1, 2; 3, 4]) | 133 %!error <C and R must be vectors> toeplitz (1, [1, 2; 3, 4]) |