Mercurial > octave-nkf

comparison scripts/plot/meshz.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 5389a52df87b
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
59 if (isvector (x) && isvector (y)) 59 if (isvector (x) && isvector (y))
60 x = [x(1), x(:).', x(end)]; 60 x = [x(1), x(:).', x(end)];
61 y = [y(1); y(:); y(end)]; 61 y = [y(1); y(:); y(end)];
62 else 62 else
63 x = [x(1, 1), x(1, :), x(1, end); 63 x = [x(1, 1), x(1, :), x(1, end);
64 x(:, 1), x, x(:, end); 64 x(:, 1), x, x(:, end);
65 x(end, 1), x(end, :), x(end, end)]; 65 x(end, 1), x(end, :), x(end, end)];
66 y = [y(1, 1), y(1, :), y(1, end); 66 y = [y(1, 1), y(1, :), y(1, end);
67 y(:, 1), y, y(:, end); 67 y(:, 1), y, y(:, end);
68 y(end, 1), y(end, :), y(end, end)]; 68 y(end, 1), y(end, :), y(end, end)];
69 endif 69 endif
70 70
71 zref = min(z(isfinite(z))); 71 zref = min(z(isfinite(z)));
72 z = [zref .* ones(1, size(z, 2) + 2); 72 z = [zref .* ones(1, size(z, 2) + 2);
73 zref .* ones(size(z, 1), 1), z, zref .* ones(size(z, 1), 1); 73 zref .* ones(size(z, 1), 1), z, zref .* ones(size(z, 1), 1);