Mercurial > hg > octave-lyh
annotate scripts/plot/mesh.m @ 14411:b9630dfc4fd9
Add mesh() demos.
* mesh.m: Add demos for linear and log zscale. The log scale demo reveals a
bug present in Gnuplot 4.4.x.
| author | Ben Abbott <bpabbott@mac.com> |
|---|---|
| date | Sat, 25 Feb 2012 17:06:44 -0500 |
| parents | 72c96de7a403 |
| children | c4a2eac243b4 |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
14032
diff
changeset
|
1 ## Copyright (C) 1993-2012 John W. Eaton |
| 2313 | 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 | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 2313 | 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 | |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 245 | 18 |
| 3368 | 19 ## -*- texinfo -*- |
|
11101
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
20 ## @deftypefn {Function File} {} mesh (@var{x}, @var{y}, @var{z}) |
|
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
21 ## @deftypefnx {Function File} {} mesh (@var{z}) |
|
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
22 ## @deftypefnx {Function File} {} mesh (@dots{}, @var{c}) |
|
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
23 ## @deftypefnx {Function File} {} mesh (@var{hax}, @dots{}) |
|
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
24 ## @deftypefnx {Function File} {@var{h} =} mesh (@dots{}) |
| 6154 | 25 ## Plot a mesh given matrices @var{x}, and @var{y} from @code{meshgrid} and |
| 3368 | 26 ## a matrix @var{z} corresponding to the @var{x} and @var{y} coordinates of |
| 27 ## the mesh. If @var{x} and @var{y} are vectors, then a typical vertex | |
| 28 ## is (@var{x}(j), @var{y}(i), @var{z}(i,j)). Thus, columns of @var{z} | |
| 29 ## correspond to different @var{x} values and rows of @var{z} correspond | |
| 30 ## to different @var{y} values. | |
|
11101
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
31 ## |
|
11575
d6619410e79c
Spellcheck documentation before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11563
diff
changeset
|
32 ## The color of the mesh is derived from the @code{colormap} |
|
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
33 ## and the value of @var{z}. Optionally the color of the mesh can be |
|
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
34 ## specified independent of @var{z}, by adding a fourth matrix, @var{c}. |
|
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11575
diff
changeset
|
35 ## |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11575
diff
changeset
|
36 ## The optional return value @var{h} is a graphics handle to the created |
|
14032
8497d89a17f1
mesh.m: Correct typo in documentation
Rik <octave@nomad.inbox5.com>
parents:
14001
diff
changeset
|
37 ## surface object. |
|
11101
1f9ab076f5f7
Include the 4 input (color) in the docstrings for mesh() and surf().
Ben Abbott <bpabbott@mac.com>
parents:
7149
diff
changeset
|
38 ## @seealso{colormap, contour, meshgrid, surf} |
| 3368 | 39 ## @end deftypefn |
| 4 | 40 |
| 2314 | 41 ## Author: jwe |
| 42 | |
| 7109 | 43 function h = mesh (varargin) |
| 6172 | 44 |
| 6390 | 45 newplot (); |
| 46 | |
| 7109 | 47 tmp = surface (varargin{:}); |
| 7110 | 48 |
| 49 ax = get (tmp, "parent"); | |
| 50 | |
| 7149 | 51 set (tmp, "facecolor", "w"); |
| 7110 | 52 set (tmp, "edgecolor", "flat"); |
| 53 | |
| 7146 | 54 if (! ishold ()) |
|
11427
dc983f92e774
contour3.m: Grid on be default for 3D plots.
Ben Abbott <bpabbott@mac.com>
parents:
11101
diff
changeset
|
55 set (ax, "view", [-37.5, 30], |
|
dc983f92e774
contour3.m: Grid on be default for 3D plots.
Ben Abbott <bpabbott@mac.com>
parents:
11101
diff
changeset
|
56 "xgrid", "on", "ygrid", "on", "zgrid", "on"); |
| 7146 | 57 endif |
| 7110 | 58 |
| 6257 | 59 if (nargout > 0) |
| 60 h = tmp; | |
| 6154 | 61 endif |
| 62 | |
| 4 | 63 endfunction |
|
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11575
diff
changeset
|
64 |
|
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11575
diff
changeset
|
65 |
| 14411 | 66 %!demo |
| 67 %! clf (); | |
| 68 %! x = logspace(0,1,11); | |
| 69 %! z = x'*x; | |
| 70 %! mesh (x, x, z, z.^2); | |
| 71 %! xlabel xlabel | |
| 72 %! ylabel ylabel | |
| 73 %! zlabel "linear scale" | |
| 74 %! if (strcmp (get (gcf, "__graphics_toolkit__"), "gnuplot")) | |
| 75 %! title ("Gnuplot's mesh color is correct") | |
| 76 %! endif | |
|
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
11575
diff
changeset
|
77 |
| 14411 | 78 %!demo |
| 79 %! clf (); | |
| 80 %! x = logspace(0,1,11); | |
| 81 %! z = x'*x; | |
| 82 %! mesh (x, x, z, z.^2); | |
| 83 %! set (gca, "zscale", "log") | |
| 84 %! xlabel xlabel | |
| 85 %! ylabel ylabel | |
| 86 %! zlabel "log scale" | |
| 87 %! if (strcmp (get (gcf, "__graphics_toolkit__"), "gnuplot")) | |
| 88 %! title ({"Gnuplot's mesh color is wrong", "This a Gnuplot bug"}) | |
| 89 %! endif | |
| 90 |