Mercurial > hg > octave-nkf

comparison scripts/geometry/voronoi.m @ 7208:a730e47fda4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-28 02:32:41 by jwe]
author jwe
date Wed, 28 Nov 2007 02:32:42 +0000
parents a1dbe9d80eee
children fa78cb8d8a5c
comparison
equal deleted inserted replaced
7207:71c03c7239fb 7208:a730e47fda4d
134 endfor 134 endfor
135 135
136 edges = zeros (2, k); 136 edges = zeros (2, k);
137 137
138 for i = 1 : ll 138 for i = 1 : ll
139 fac = c {idx(i)}; 139 fac = c{idx(i)};
140 lf = length (fac); 140 lf = length (fac);
141 fac = [fac, fac(1)]; 141 fac = [fac, fac(1)];
142 fst = fac (1 : length(fac) - 1); 142 fst = fac (1 : length(fac) - 1);
143 sec = fac(2 : length(fac)); 143 sec = fac(2 : length(fac));
144 edges (:, r : r + lf - 1) = [fst; sec]; 144 edges (:, r : r + lf - 1) = [fst; sec];