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