Mercurial > octave-nkf

comparison scripts/general/gradient.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 8c71a86c4bf4
children d1978e7364ad
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
133 m = shiftdim (m, 1); 133 m = shiftdim (m, 1);
134 for i = 1:min (nd, nargout) 134 for i = 1:min (nd, nargout)
135 mr = rows (m); 135 mr = rows (m);
136 mc = numel (m) / mr; 136 mc = numel (m) / mr;
137 Y = zeros (size (m), class (m)); 137 Y = zeros (size (m), class (m));
138 138
139 if (mr > 1) 139 if (mr > 1)
140 ## Top and bottom boundary. 140 ## Top and bottom boundary.
141 Y(1,:) = diff (m(1:2, :)) / d{i}(1); 141 Y(1,:) = diff (m(1:2, :)) / d{i}(1);
142 Y(mr,:) = diff (m(mr-1:mr, :) / d{i}(mr - 1)); 142 Y(mr,:) = diff (m(mr-1:mr, :) / d{i}(mr - 1));
143 endif 143 endif