Mercurial > octave-antonio
comparison scripts/linear-algebra/duplication_matrix.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 | 03b9d17a2d95 |
comparison
equal
deleted
inserted
replaced
19832:a1acca0c2216 | 19833:9fc020886ae9 |
---|---|
75 d = zeros (n * n, n * (n + 1) / 2); | 75 d = zeros (n * n, n * (n + 1) / 2); |
76 | 76 |
77 ## It is clearly possible to make this a LOT faster! | 77 ## It is clearly possible to make this a LOT faster! |
78 count = 0; | 78 count = 0; |
79 for j = 1 : n | 79 for j = 1 : n |
80 d ((j - 1) * n + j, count + j) = 1; | 80 d((j - 1) * n + j, count + j) = 1; |
81 for i = (j + 1) : n | 81 for i = (j + 1) : n |
82 d ((j - 1) * n + i, count + i) = 1; | 82 d((j - 1) * n + i, count + i) = 1; |
83 d ((i - 1) * n + j, count + i) = 1; | 83 d((i - 1) * n + j, count + i) = 1; |
84 endfor | 84 endfor |
85 count = count + n - j; | 85 count = count + n - j; |
86 endfor | 86 endfor |
87 | 87 |
88 endfunction | 88 endfunction |