Mercurial > octave-antonio

comparison scripts/deprecated/interp1q.m @ 19833:9fc020886ae9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 bcf0a288aa6c
comparison
equal deleted inserted replaced
19832:a1acca0c2216 19833:9fc020886ae9
53 szx = size (xi); 53 szx = size (xi);
54 xi = xi (:); 54 xi = xi (:);
55 dy = diff (y); 55 dy = diff (y);
56 dx = diff (x); 56 dx = diff (x);
57 idx = lookup (x, xi, "lr"); 57 idx = lookup (x, xi, "lr");
58 s = (xi - x (idx)) ./ dx (idx); 58 s = (xi - x(idx)) ./ dx(idx);
59 yi = bsxfun (@times, s, dy(idx,:)) + y(idx,:); 59 yi = bsxfun (@times, s, dy(idx,:)) + y(idx,:);
60 range = xi < x(1) | !(xi <= x(nx)); 60 range = xi < x(1) | !(xi <= x(nx));
61 yi(range,:) = NA; 61 yi(range,:) = NA;
62 if (length (szx) == 2 && any (szx == 1)) 62 if (length (szx) == 2 && any (szx == 1))
63 yi = reshape (yi, [max(szx), szy(2:end)]); 63 yi = reshape (yi, [max(szx), szy(2:end)]);