Mercurial > octave
annotate scripts/plot/draw/quiver.m @ 17744:d63878346099
maint: Update copyright notices for release.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 23 Oct 2013 22:09:27 -0400 |
parents | ddfc1600a311 |
children | 4197fc428c7d |
rev | line source |
---|---|
17744
d63878346099
maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents:
17671
diff
changeset
|
1 ## Copyright (C) 2007-2013 David Bateman |
7120 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7 ## the Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
16 ## along with Octave; see the file COPYING. If not, see | |
17 ## <http://www.gnu.org/licenses/>. | |
18 | |
19 ## -*- texinfo -*- | |
10793
be55736a0783
Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents:
9354
diff
changeset
|
20 ## @deftypefn {Function File} {} quiver (@var{u}, @var{v}) |
7120 | 21 ## @deftypefnx {Function File} {} quiver (@var{x}, @var{y}, @var{u}, @var{v}) |
22 ## @deftypefnx {Function File} {} quiver (@dots{}, @var{s}) | |
23 ## @deftypefnx {Function File} {} quiver (@dots{}, @var{style}) | |
14359
7277fe922e99
doc: Use Octave preference for double quote in docstrings in scripts/
Rik <octave@nomad.inbox5.com>
parents:
14245
diff
changeset
|
24 ## @deftypefnx {Function File} {} quiver (@dots{}, "filled") |
17161
52931d71400f
doc: Document that first argument can be an axes handle for several plot functions.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
25 ## @deftypefnx {Function File} {} quiver (@var{hax}, @dots{}) |
7120 | 26 ## @deftypefnx {Function File} {@var{h} =} quiver (@dots{}) |
27 ## | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
28 ## Plot the (@var{u}, @var{v}) components of a vector field in |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
29 ## an (@var{x}, @var{y}) meshgrid. If the grid is uniform, you can |
7120 | 30 ## specify @var{x} and @var{y} as vectors. |
31 ## | |
32 ## If @var{x} and @var{y} are undefined they are assumed to be | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
33 ## @code{(1:@var{m}, 1:@var{n})} where |
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
34 ## @code{[@var{m}, @var{n}] = size (@var{u})}. |
7120 | 35 ## |
36 ## The variable @var{s} is a scalar defining a scaling factor to use for | |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
37 ## the arrows of the field relative to the mesh spacing. A value of 0 |
17671 | 38 ## disables all scaling. The default value is 0.9. |
7120 | 39 ## |
40 ## The style to use for the plot can be defined with a line style @var{style} | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
41 ## of the same format as the @code{plot} command. |
7120 | 42 ## If a marker is specified then markers at the grid points of the vectors are |
17671 | 43 ## drawn rather than arrows. If the argument @qcode{"filled"} is given then |
44 ## the markers are filled. | |
7120 | 45 ## |
17161
52931d71400f
doc: Document that first argument can be an axes handle for several plot functions.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
46 ## If the first argument @var{hax} is an axes handle, then plot into this axis, |
52931d71400f
doc: Document that first argument can be an axes handle for several plot functions.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
47 ## rather than the current axes returned by @code{gca}. |
52931d71400f
doc: Document that first argument can be an axes handle for several plot functions.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
48 ## |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
49 ## The optional return value @var{h} is a graphics handle to a quiver object. |
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
50 ## A quiver object regroups the components of the quiver plot (body, arrow, |
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
51 ## and marker), and allows them to be changed together. |
7120 | 52 ## |
17671 | 53 ## Example: |
54 ## | |
7121 | 55 ## @example |
7120 | 56 ## @group |
7121 | 57 ## [x, y] = meshgrid (1:2:20); |
8056
9a6f4713f765
Add area, bar, quiver and stair series graphics objects. Document them
David Bateman <dbateman@free.fr>
parents:
7215
diff
changeset
|
58 ## h = quiver (x, y, sin (2*pi*x/10), sin (2*pi*y/10)); |
9a6f4713f765
Add area, bar, quiver and stair series graphics objects. Document them
David Bateman <dbateman@free.fr>
parents:
7215
diff
changeset
|
59 ## set (h, "maxheadsize", 0.33); |
7121 | 60 ## @end group |
7120 | 61 ## @end example |
62 ## | |
17122
eaab03308c0b
doc: Rewrite docstrings for most plot functions.
Rik <rik@octave.org>
parents:
17070
diff
changeset
|
63 ## @seealso{quiver3, compass, feather, plot} |
7120 | 64 ## @end deftypefn |
65 | |
17671 | 66 function h = quiver (varargin) |
7121 | 67 |
17070
d465f9970c02
quiver.m, quiver3.m: Upgrade to use new __plt_get_axis_arg__.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
16814
diff
changeset
|
68 [hax, varargin, nargin] = __plt_get_axis_arg__ ("quiver", varargin{:}); |
7215 | 69 |
7120 | 70 if (nargin < 2) |
71 print_usage (); | |
17671 | 72 endif |
73 | |
17211
87ba70043bfc
Don't use ifelse in plot fcns to avoid unnecessary fcn evaluations.
Rik <rik@octave.org>
parents:
17161
diff
changeset
|
74 oldfig = []; |
17301
68bcac3c043a
Correct inversion accidentally introduced in cset 87ba70043bfc.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
75 if (! isempty (hax)) |
17211
87ba70043bfc
Don't use ifelse in plot fcns to avoid unnecessary fcn evaluations.
Rik <rik@octave.org>
parents:
17161
diff
changeset
|
76 oldfig = get (0, "currentfigure"); |
87ba70043bfc
Don't use ifelse in plot fcns to avoid unnecessary fcn evaluations.
Rik <rik@octave.org>
parents:
17161
diff
changeset
|
77 endif |
17671 | 78 unwind_protect |
79 hax = newplot (hax); | |
80 htmp = __quiver__ (hax, false, varargin{:}); | |
81 unwind_protect_cleanup | |
17070
d465f9970c02
quiver.m, quiver3.m: Upgrade to use new __plt_get_axis_arg__.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
16814
diff
changeset
|
82 if (! isempty (oldfig)) |
d465f9970c02
quiver.m, quiver3.m: Upgrade to use new __plt_get_axis_arg__.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
16814
diff
changeset
|
83 set (0, "currentfigure", oldfig); |
d465f9970c02
quiver.m, quiver3.m: Upgrade to use new __plt_get_axis_arg__.
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
16814
diff
changeset
|
84 endif |
17671 | 85 end_unwind_protect |
7120 | 86 |
87 if (nargout > 0) | |
17671 | 88 h = htmp; |
7120 | 89 endif |
7121 | 90 |
7120 | 91 endfunction |
92 | |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
93 |
7120 | 94 %!demo |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
95 %! clf; |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
96 %! [x,y] = meshgrid (1:2:20); |
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
97 %! h = quiver (x,y, sin (2*pi*x/10), sin (2*pi*y/10)); |
17671 | 98 %! title ('quiver plot') |
7120 | 99 |
100 %!demo | |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
101 %! clf; |
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
102 %! x = linspace (0, 3, 80); |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
103 %! y = sin (2*pi*x); |
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
104 %! theta = 2*pi*x + pi/2; |
17671 | 105 %! quiver (x, y, sin (theta)/10, cos (theta)/10, 0.4); |
106 %! axis equal tight; | |
14245
4506eade9f04
Use Matlab coding conventions for demos in plot/ directory.
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
107 %! hold on; plot (x,y,'r'); hold off; |
17671 | 108 %! title ('quiver() with scaled arrows'); |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
109 |