Mercurial > octave-nkf

comparison scripts/statistics/base/run_count.m @ 10540:952d4df5b686

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate NaN*ones and Inf*ones constructs and just use Nan() and Inf()
author Rik <code@nomad.inbox5.com>
date Thu, 22 Apr 2010 14:03:47 -0700
parents 16f53d29049f
children 95c3e38098bf
comparison
equal deleted inserted replaced
10539:8db807a0eb78 10540:952d4df5b686
70 for i = 1 : nd 70 for i = 1 : nd
71 idx{i} = 1 : sz(i); 71 idx{i} = 1 : sz(i);
72 endfor 72 endfor
73 c = sz(1); 73 c = sz(1);
74 tmp = zeros ([c + 1, sz(2 : end)]); 74 tmp = zeros ([c + 1, sz(2 : end)]);
75 infvec = Inf * ones ([1, sz(2 : end)]); 75 infvec = Inf ([1, sz(2 : end)]);
76 76
77 ind = find (diff ([infvec; x; -infvec]) < 0); 77 ind = find (diff ([infvec; x; -infvec]) < 0);
78 tmp(ind(2:end) - 1) = diff(ind); 78 tmp(ind(2:end) - 1) = diff(ind);
79 tmp = tmp(idx{:}); 79 tmp = tmp(idx{:});
80 80