Mercurial > hg > octave-lyh
diff scripts/general/interp3.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 6e9ba936e983 |
children | d1978e7364ad |
line wrap: on
line diff
--- a/scripts/general/interp3.m +++ b/scripts/general/interp3.m @@ -83,7 +83,7 @@ endif if (nargs < 3 || (nargs == 4 && ! isvector (varargin{1}) - && nargs == (ndims (varargin{1}) + 1))) + && nargs == (ndims (varargin{1}) + 1))) v = varargin{1}; if (ndims (v) != 3) error ("expect 3-dimensional array of values"); @@ -91,10 +91,10 @@ x = varargin (2:4); if (any (! cellfun (@isvector, x))) for i = 2 : 3 - if (! size_equal (x{1}, x{i})) - error ("dimensional mismatch"); - endif - x{i} = permute (x{i}, [2, 1, 3]); + if (! size_equal (x{1}, x{i})) + error ("dimensional mismatch"); + endif + x{i} = permute (x{i}, [2, 1, 3]); endfor x{1} = permute (x{1}, [2, 1, 3]); endif @@ -108,20 +108,20 @@ x = varargin (1:3); if (any (! cellfun (@isvector, x))) for i = 2 : 3 - if (! size_equal (x{1}, x{i}) || ! size_equal (x{i}, v)) - error ("dimensional mismatch"); - endif - x{i} = permute (x{i}, [2, 1, 3]); + if (! size_equal (x{1}, x{i}) || ! size_equal (x{i}, v)) + error ("dimensional mismatch"); + endif + x{i} = permute (x{i}, [2, 1, 3]); endfor x{1} = permute (x{1}, [2, 1, 3]); endif y = varargin (5:7); if (any (! cellfun (@isvector, y))) for i = 2 : 3 - if (! size_equal (y{1}, y{i})) - error ("dimensional mismatch"); - endif - y{i} = permute (y{i}, [2, 1, 3]); + if (! size_equal (y{1}, y{i})) + error ("dimensional mismatch"); + endif + y{i} = permute (y{i}, [2, 1, 3]); endfor y{1} = permute (y{1}, [2, 1, 3]); endif