Mercurial > octave-nkf

comparison scripts/plot/quiver.m @ 7130:5eeb46c784d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 15:27:23 by jwe]
author jwe
date Thu, 08 Nov 2007 15:28:41 +0000
parents c0d9ac299176
children e8d953d03f6a
comparison
equal deleted inserted replaced
7129:363ffc8a5c80 7130:5eeb46c784d7
177 177
178 xtmp = x + u(:) .* (1 - arrowsize); 178 xtmp = x + u(:) .* (1 - arrowsize);
179 ytmp = y + v(:) .* (1 - arrowsize); 179 ytmp = y + v(:) .* (1 - arrowsize);
180 xarrw1 = xtmp + (y - yend) * arrowsize / 3; 180 xarrw1 = xtmp + (y - yend) * arrowsize / 3;
181 xarrw2 = xtmp - (y - yend) * arrowsize / 3; 181 xarrw2 = xtmp - (y - yend) * arrowsize / 3;
182 yarrw1 = ytmp + (x - xend) * arrowsize / 3; 182 yarrw1 = ytmp - (x - xend) * arrowsize / 3;
183 yarrw2 = ytmp - (x - xend) * arrowsize / 3; 183 yarrw2 = ytmp + (x - xend) * arrowsize / 3;
184 184
185 if (have_line_spec) 185 if (have_line_spec)
186 if (isfield (linespec, "marker") && 186 if (isfield (linespec, "marker") &&
187 ! strncmp (linespec.marker, "none", 4)) 187 ! strncmp (linespec.marker, "none", 4))
188 h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:), 188 h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),