Mercurial > octave-nkf
diff scripts/general/bicubic.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 1bf0ce0930be |
children | d1978e7364ad |
line wrap: on
line diff
--- a/scripts/general/bicubic.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/general/bicubic.m Fri Apr 23 11:28:50 2010 -0700 @@ -79,7 +79,7 @@ [rz, cz] = size (Z) ; if (isvector (X) && isvector (Y)) if (rz != length (Y) || cz != length (X)) - error ("length of X and Y must match the size of Z"); + error ("length of X and Y must match the size of Z"); endif elseif (size_equal (X, Y) && size_equal (X, Z)) X = X(1,:); @@ -184,8 +184,8 @@ it = indt(i); int = [it, it+1, it+2, it+3]; F(i,:) = ([ct0(i),ct1(i),ct2(i),ct3(i)] - * (p(int,inds) .* cs0 + p(int,inds+1) .* cs1 - + p(int,inds+2) .* cs2 + p(int,inds+3) .* cs3)); + * (p(int,inds) .* cs0 + p(int,inds+1) .* cs1 + + p(int,inds+2) .* cs2 + p(int,inds+3) .* cs3)); endfor ## Set points outside the table to extrapval.