Mercurial > hg > octave-nkf
comparison scripts/linear-algebra/commutation_matrix.m @ 20038: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 | 03b9d17a2d95 |
comparison
equal
deleted
inserted
replaced
20037:a1acca0c2216 | 20038:9fc020886ae9 |
---|---|
88 | 88 |
89 ## It is clearly possible to make this a LOT faster! | 89 ## It is clearly possible to make this a LOT faster! |
90 k = zeros (m * n, m * n); | 90 k = zeros (m * n, m * n); |
91 for i = 1 : m | 91 for i = 1 : m |
92 for j = 1 : n | 92 for j = 1 : n |
93 k ((i - 1) * n + j, (j - 1) * m + i) = 1; | 93 k((i - 1) * n + j, (j - 1) * m + i) = 1; |
94 endfor | 94 endfor |
95 endfor | 95 endfor |
96 | 96 |
97 endfunction | 97 endfunction |
98 | 98 |