octave-nkf: scripts/plot/axis.m annotate

annotate scripts/plot/axis.m @ 14237:11949c9795a0

Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Add clf() to all demos using plot features to get reproducibility. Use 64 as input to all colormaps (jet (64)) to get reproducibility. * bicubic.m, cell2mat.m, celldisp.m, cplxpair.m, interp1.m, interp2.m, interpft.m, interpn.m, profile.m, profshow.m, convhull.m, delaunay.m, griddata.m, inpolygon.m, voronoi.m, autumn.m, bone.m, contrast.m, cool.m, copper.m, flag.m, gmap40.m, gray.m, hot.m, hsv.m, image.m, imshow.m, jet.m, ocean.m, pink.m, prism.m, rainbow.m, spring.m, summer.m, white.m, winter.m, condest.m, onenormest.m, axis.m, clabel.m, colorbar.m, comet.m, comet3.m, compass.m, contour.m, contour3.m, contourf.m, cylinder.m, daspect.m, ellipsoid.m, errorbar.m, ezcontour.m, ezcontourf.m, ezmesh.m, ezmeshc.m, ezplot.m, ezplot3.m, ezpolar.m, ezsurf.m, ezsurfc.m, feather.m, fill.m, fplot.m, grid.m, hold.m, isosurface.m, legend.m, loglog.m, loglogerr.m, pareto.m, patch.m, pbaspect.m, pcolor.m, pie.m, pie3.m, plot3.m, plotmatrix.m, plotyy.m, polar.m, quiver.m, quiver3.m, rectangle.m, refreshdata.m, ribbon.m, rose.m, scatter.m, scatter3.m, semilogx.m, semilogxerr.m, semilogy.m, semilogyerr.m, shading.m, slice.m, sombrero.m, stairs.m, stem.m, stem3.m, subplot.m, surf.m, surfc.m, surfl.m, surfnorm.m, text.m, title.m, trimesh.m, triplot.m, trisurf.m, uigetdir.m, uigetfile.m, uimenu.m, uiputfile.m, waitbar.m, xlim.m, ylim.m, zlim.m, mkpp.m, pchip.m, polyaffine.m, spline.m, bicgstab.m, cgs.m, gplot.m, pcg.m, pcr.m, treeplot.m, strtok.m, demo.m, example.m, rundemos.m, speed.m, test.m, calendar.m, datestr.m, datetick.m, weekday.m: Revamp %!demos to use Octave coding conventions on spacing, etc.

author	Rik <octave@nomad.inbox5.com>
date	Fri, 20 Jan 2012 12:59:53 -0800
parents	72c96de7a403
children	4506eade9f04

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 14092 diff changeset	1 ## Copyright (C) 1994-2012 John W. Eaton
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6765 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6765 diff changeset	8 ## your option) any later version.
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2311 diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6765 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6765 diff changeset	17 ## <http://www.gnu.org/licenses/>.
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	18
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3106 diff changeset	19 ## -- texinfo --
10687 a8ce6bdecce5 Improve documentation strings. Rik <octave@nomad.inbox5.com> parents: 10557 diff changeset	20 ## @deftypefn {Function File} {} axis ()
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	21 ## @deftypefnx {Function File} {} axis ([@var{x}_lo @var{x}_hi])
f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	22 ## @deftypefnx {Function File} {} axis ([@var{x}_lo @var{x}_hi @var{y}_lo @var{y}_hi])
f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11589 diff changeset	23 ## @deftypefnx {Function File} {} axis ([@var{x}_lo @var{x}_hi @var{y}_lo @var{y}_hi @var{z}_lo @var{z}_hi])
10687 a8ce6bdecce5 Improve documentation strings. Rik <octave@nomad.inbox5.com> parents: 10557 diff changeset	24 ## @deftypefnx {Function File} {} axis (@var{option})
a8ce6bdecce5 Improve documentation strings. Rik <octave@nomad.inbox5.com> parents: 10557 diff changeset	25 ## @deftypefnx {Function File} {} axis (@dots{}, @var{option})
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10687 diff changeset	26 ## @deftypefnx {Function File} {} axis (@var{h}, @dots{})
be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 10687 diff changeset	27 ## @deftypefnx {Function File} {@var{limits} =} axis ()
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	28 ## Set axis limits for plots.
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3368 diff changeset	29 ##
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	30 ## The argument @var{limits} should be a 2-, 4-, or 6-element vector. The
3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	31 ## first and second elements specify the lower and upper limits for the
3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	32 ## x-axis. The third and fourth specify the limits for the y-axis, and the
9209 923c7cb7f13f Simplify TeXinfo files by eliminating redundant @iftex followed by @tex construction. Rik <rdrider0-list@yahoo.com> parents: 8953 diff changeset	33 ## fifth and sixth specify the limits for the z-axis.
3426 f8dde1807dee [project @ 2000-01-13 08:40:00 by jwe] jwe parents: 3368 diff changeset	34 ##
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	35 ## Without any arguments, @code{axis} turns autoscaling on.
4945 4bd917f8a4a7 [project @ 2004-08-31 15:09:17 by jwe] jwe parents: 4340 diff changeset	36 ##
10687 a8ce6bdecce5 Improve documentation strings. Rik <octave@nomad.inbox5.com> parents: 10557 diff changeset	37 ## With one output argument, @code{x = axis} returns the current axes.
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	38 ##
3668 b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	39 ## The vector argument specifying limits is optional, and additional
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	40 ## string arguments may be used to specify various axis properties. For
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	41 ## example,
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	42 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	43 ## @example
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	44 ## axis ([1, 2, 3, 4], "square");
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	45 ## @end example
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	46 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	47 ## @noindent
3668 b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	48 ## forces a square aspect ratio, and
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	49 ##
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	50 ## @example
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	51 ## axis ("tic", "labely");
3668 b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	52 ## @end example
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	53 ##
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	54 ## @noindent
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	55 ## turns tic marks on for all axes and tic mark labels on for the y-axis
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	56 ## only.
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	57 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	58 ## @noindent
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	59 ## The following options control the aspect ratio of the axes.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	60 ##
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	61 ## @table @asis
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	62 ## @item "square"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	63 ## Force a square aspect ratio.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	64 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	65 ## @item "equal"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	66 ## Force x distance to equal y-distance.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	67 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	68 ## @item "normal"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	69 ## Restore the balance.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	70 ## @end table
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	71 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	72 ## @noindent
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	73 ## The following options control the way axis limits are interpreted.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	74 ##
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	75 ## @table @asis
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	76 ## @item "auto"
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	77 ## Set the specified axes to have nice limits around the data
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	78 ## or all if no axes are specified.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	79 ##
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	80 ## @item "manual"
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	81 ## Fix the current axes limits.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	82 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	83 ## @item "tight"
9277 be84e9654feb Update axis.m documentation to reflect addition of "tight" option. Rik <rdrider0-list@yahoo.com> parents: 9209 diff changeset	84 ## Fix axes to the limits of the data.
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	85 ## @end table
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	86 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	87 ## @noindent
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	88 ## The option @code{"image"} is equivalent to @code{"tight"} and
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	89 ## @code{"equal"}.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	90 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	91 ## @noindent
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	92 ## The following options affect the appearance of tic marks.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	93 ##
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	94 ## @table @asis
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	95 ## @item "on"
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	96 ## Turn tic marks and labels on for all axes.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	97 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	98 ## @item "off"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	99 ## Turn tic marks off for all axes.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	100 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	101 ## @item "tic[xyz]"
3668 b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	102 ## Turn tic marks on for all axes, or turn them on for the
b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	103 ## specified axes and off for the remainder.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	104 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	105 ## @item "label[xyz]"
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	106 ## Turn tic labels on for all axes, or turn them on for the
3668 b0a68efa1295 [project @ 2000-05-13 06:40:56 by jwe] jwe parents: 3667 diff changeset	107 ## specified axes and off for the remainder.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	108 ##
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	109 ## @item "nolabel"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	110 ## Turn tic labels off for all axes.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	111 ## @end table
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	112 ## Note, if there are no tic marks for an axis, there can be no labels.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	113 ##
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	114 ## @noindent
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	115 ## The following options affect the direction of increasing values on
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	116 ## the axes.
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	117 ##
11563 3c6e8aaa9555 Grammarcheck m-files before 3.4 release. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	118 ## @table @asis
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	119 ## @item "ij"
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	120 ## Reverse y-axis, so lower values are nearer the top.
10821 693e22af08ae Grammarcheck documentation of m-files Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	121 ##
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	122 ## @item "xy"
c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	123 ## Restore y-axis, so higher values are nearer the top.
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	124 ## @end table
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	125 ##
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	126 ## If an axes handle is passed as the first argument, then operate on
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	127 ## this axes rather than the current axes.
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 3106 diff changeset	128 ## @end deftypefn
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	129
2314 949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe] jwe parents: 2313 diff changeset	130 ## Author: jwe
949ab8eba8bc [project @ 1996-07-12 03:58:02 by jwe] jwe parents: 2313 diff changeset	131
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	132 function varargout = axis (varargin)
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	133
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	134 [h, varargin, nargin] = __plt_get_axis_arg__ ("axis", varargin{:});
7216 5389a52df87b [project @ 2007-11-29 19:07:29 by jwe] jwe parents: 7215 diff changeset	135
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	136 oldh = gca ();
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	137 unwind_protect
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	138 axes (h);
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	139 varargout = cell (max (nargin == 0, nargout), 1);
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	140 if (isempty (varargout))
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	141 __axis__ (h, varargin{:});
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	142 else
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	143 [varargout{:}] = __axis__ (h, varargin{:});
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	144 endif
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	145 unwind_protect_cleanup
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	146 axes (oldh);
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7189 diff changeset	147 end_unwind_protect
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	148
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	149 endfunction
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	150
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	151 function curr_axis = __axis__ (ca, ax, varargin)
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	152
e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	153 if (nargin == 1)
4945 4bd917f8a4a7 [project @ 2004-08-31 15:09:17 by jwe] jwe parents: 4340 diff changeset	154 if (nargout == 0)
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	155 set (ca, "xlimmode", "auto", "ylimmode", "auto", "zlimmode", "auto");
4945 4bd917f8a4a7 [project @ 2004-08-31 15:09:17 by jwe] jwe parents: 4340 diff changeset	156 else
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	157 xlim = get (ca, "xlim");
44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	158 ylim = get (ca, "ylim");
9427 7b74a7fd4761 axis: return 4-element vector for 2-d view John W. Eaton <jwe@octave.org> parents: 9357 diff changeset	159 view = get (ca, "view");
7b74a7fd4761 axis: return 4-element vector for 2-d view John W. Eaton <jwe@octave.org> parents: 9357 diff changeset	160 if (view(2) == 90)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	161 curr_axis = [xlim, ylim];
9427 7b74a7fd4761 axis: return 4-element vector for 2-d view John W. Eaton <jwe@octave.org> parents: 9357 diff changeset	162 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	163 zlim = get (ca, "zlim");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	164 curr_axis = [xlim, ylim, zlim];
9427 7b74a7fd4761 axis: return 4-element vector for 2-d view John W. Eaton <jwe@octave.org> parents: 9357 diff changeset	165 endif
4945 4bd917f8a4a7 [project @ 2004-08-31 15:09:17 by jwe] jwe parents: 4340 diff changeset	166 endif
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	167
5443 ec8c33dcd1bf [project @ 2005-09-08 01:40:57 by jwe] jwe parents: 5307 diff changeset	168 elseif (ischar (ax))
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	169 len = length (ax);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	170
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	171 ## 'matrix mode' to reverse the y-axis
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	172 if (strcmpi (ax, "ij"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	173 set (ca, "ydir", "reverse");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	174 elseif (strcmpi (ax, "xy"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	175 set (ca, "ydir", "normal");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	176
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	177 ## aspect ratio
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	178 elseif (strcmpi (ax, "image"))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	179 __axis__ (ca, "equal");
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	180 __do_tight_option__ (ca);
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	181 elseif (strcmpi (ax, "square"))
10532 568c7c041fac colorbar.m: Consistent treatment of plotboxaspectratio. Add listener for plotboxaspectratiomode. Ben Abbott <bpabbott@mac.com> parents: 10226 diff changeset	182 set (ca, "plotboxaspectratio", [1, 1, 1]);
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	183 elseif (strcmp (ax, "equal"))
11577 b124b83e5626 fix typo John W. Eaton <jwe@octave.org> parents: 11576 diff changeset	184 if (strcmp (get (get (ca, "parent"), "__graphics_toolkit__"), "gnuplot"))
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10953 diff changeset	185 ## FIXME - gnuplot applies the aspect ratio activepostionproperty.
2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10953 diff changeset	186 set (ca, "activepositionproperty", "position");
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11577 diff changeset	187 ## The following line is a trick used to trigger the recalculation of
11185 5b48695f3c13 Making 'axis equal' equivalent to 'daspect([1,1,1])' Konstantinos Poulios <logari81@googlemail.com> parents: 11183 diff changeset	188 ## aspect related magnitudes even if the aspect ratio is the same
5b48695f3c13 Making 'axis equal' equivalent to 'daspect([1,1,1])' Konstantinos Poulios <logari81@googlemail.com> parents: 11183 diff changeset	189 ## (useful with the x11 gnuplot terminal after a window resize)
5b48695f3c13 Making 'axis equal' equivalent to 'daspect([1,1,1])' Konstantinos Poulios <logari81@googlemail.com> parents: 11183 diff changeset	190 set (ca, "dataaspectratiomode", "auto");
11001 2ab8cc6dcced Special treatment activepositionproperty = outerposition for gnuplot. Ben Abbott <bpabbott@mac.com> parents: 10953 diff changeset	191 endif
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	192 set (ca, "dataaspectratio", [1, 1, 1]);
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	193 elseif (strcmpi (ax, "normal"))
11589 b0084095098e missing semicolons in script files John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	194 set (ca, "plotboxaspectratio", [1, 1, 1]);
10226 2884758e265b Replace dataaspectratio props with plotboxaspectratio props. Ben Abbott <bpabbott@mac.com> parents: 9427 diff changeset	195 set (ca, "plotboxaspectratiomode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	196
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	197 ## axis limits
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	198 elseif (len >= 4 && strcmpi (ax(1:4), "auto"))
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	199 if (len > 4)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	200 if (any (ax == "x"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	201 set (ca, "xlimmode", "auto");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	202 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	203 if (any (ax == "y"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	204 set (ca, "ylimmode", "auto");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	205 endif
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	206 if (any (ax == "z"))
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	207 set (ca, "zlimmode", "auto");
95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	208 endif
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	209 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	210 set (ca, "xlimmode", "auto", "ylimmode", "auto", "zlimmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	211 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	212 elseif (strcmpi (ax, "manual"))
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	213 ## fixes the axis limits, like axis(axis) should;
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	214 set (ca, "xlimmode", "manual", "ylimmode", "manual", "zlimmode", "manual");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	215 elseif (strcmpi (ax, "tight"))
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	216 ## sets the axis limits to the min and max of all data.
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	217 __do_tight_option__ (ca);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	218 ## tic marks
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	219 elseif (strcmpi (ax, "on") \|\| strcmpi (ax, "tic"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	220 set (ca, "xtickmode", "auto", "ytickmode", "auto", "ztickmode", "auto");
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	221 if (strcmpi (ax, "on"))
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	222 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	223 "zticklabelmode", "auto");
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	224 endif
6765 e6b528a3a2a9 [project @ 2007-06-28 15:25:43 by jwe] jwe parents: 6746 diff changeset	225 set (ca, "visible", "on");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	226 elseif (strcmpi (ax, "off"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	227 set (ca, "xtick", [], "ytick", [], "ztick", []);
6765 e6b528a3a2a9 [project @ 2007-06-28 15:25:43 by jwe] jwe parents: 6746 diff changeset	228 set (ca, "visible", "off");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	229 elseif (len > 3 && strcmpi (ax(1:3), "tic"))
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	230 if (any (ax == "x"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	231 set (ca, "xtickmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	232 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	233 set (ca, "xtick", []);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	234 endif
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	235 if (any (ax == "y"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	236 set (ca, "ytickmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	237 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	238 set (ca, "ytick", []);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	239 endif
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	240 if (any (ax == "z"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	241 set (ca, "ztickmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	242 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	243 set (ca, "ztick", []);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	244 endif
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	245 elseif (strcmpi (ax, "label"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	246 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto",
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	247 "zticklabelmode", "auto");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	248 elseif (strcmpi (ax, "nolabel"))
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	249 set (ca, "xticklabel", "", "yticklabel", "", "zticklabel", "");
8190 73d6b71788c0 use case-insensitive comparison for graphics properties; misc style fixes John W. Eaton <jwe@octave.org> parents: 7994 diff changeset	250 elseif (len > 5 && strcmpi (ax(1:5), "label"))
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	251 if (any (ax == "x"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	252 set (ca, "xticklabelmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	253 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	254 set (ca, "xticklabel", "");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	255 endif
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	256 if (any (ax == "y"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	257 set (ca, "yticklabelmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	258 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	259 set (ca, "yticklabel", "");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	260 endif
4340 8aa604426d35 [project @ 2003-02-20 04:01:31 by jwe] jwe parents: 4259 diff changeset	261 if (any (ax == "z"))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	262 set (ca, "zticklabelmode", "auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	263 else
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 10532 diff changeset	264 set (ca, "zticklabel", "");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	265 endif
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	266
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	267 else
4259 0493a367de6f [project @ 2003-01-02 17:30:14 by jwe] jwe parents: 4030 diff changeset	268 warning ("unknown axis option '%s'", ax);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	269 endif
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	270
4030 22bd65326ec1 [project @ 2002-08-09 18:58:13 by jwe] jwe parents: 3979 diff changeset	271 elseif (isvector (ax))
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	272
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	273 len = length (ax);
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	274
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	275 if (len != 2 && len != 4 && len != 6)
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	276 error ("axis: expecting vector with 2, 4, or 6 elements");
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	277 endif
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	278
5627 0f6a0a85a857 [project @ 2006-02-16 20:13:35 by jwe] jwe parents: 5561 diff changeset	279 for i = 1:2:len
13031 d2997525fcb6 Fix for bug #34158. Ben Abbott <bpabbott@mac.com> parents: 12642 diff changeset	280 if (ax(i) >= ax(i+1))
d2997525fcb6 Fix for bug #34158. Ben Abbott <bpabbott@mac.com> parents: 12642 diff changeset	281 error ("axis: limits(%d) must be less than limits(%d)", i, i+1);
5627 0f6a0a85a857 [project @ 2006-02-16 20:13:35 by jwe] jwe parents: 5561 diff changeset	282 endif
0f6a0a85a857 [project @ 2006-02-16 20:13:35 by jwe] jwe parents: 5561 diff changeset	283 endfor
0f6a0a85a857 [project @ 2006-02-16 20:13:35 by jwe] jwe parents: 5561 diff changeset	284
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	285 if (len > 1)
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	286 set (ca, "xlim", [ax(1), ax(2)]);
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	287 endif
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	288
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	289 if (len > 3)
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	290 set (ca, "ylim", [ax(3), ax(4)]);
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	291 endif
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	292
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	293 if (len > 5)
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	294 set (ca, "zlim", [ax(5), ax(6)]);
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	295 endif
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	296
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	297 else
595 a0cc17145462 [project @ 1994-08-09 18:42:23 by jwe] jwe parents: 594 diff changeset	298 error ("axis: expecting no args, or a vector with 2, 4, or 6 elements");
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	299 endif
8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	300
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	301 if (! isempty (varargin))
7189 e8d953d03f6a [project @ 2007-11-26 20:42:09 by dbateman] dbateman parents: 7017 diff changeset	302 __axis__ (ca, varargin{:});
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	303 endif
6447 3f79532415b5 [project @ 2007-03-24 00:00:31 by jwe] jwe parents: 6257 diff changeset	304
590 8e42786004d6 [project @ 1994-08-09 01:18:13 by jwe] jwe parents: diff changeset	305 endfunction
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	306
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	307 function lims = __get_tight_lims__ (ca, ax)
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	308
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	309 ## Get the limits for axis ("tight").
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	310 ## AX should be one of "x", "y", or "z".
7994 8ccd9b0bf6bc plot/axis.m (__get_tight_lims__): don't fail if data is not a vector John W. Eaton <jwe@octave.org> parents: 7376 diff changeset	311 kids = findobj (ca, "-property", strcat (ax, "data"));
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	312 ## The data properties for hggroups mirror their children.
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	313 ## Exclude the redundant hgroup values.
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	314 hg_kids = findobj (kids, "type", "hggroup");
11174 2114867f2a50 axis.m: Exclude hggroup {x,y,z}data properties when determing tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 11001 diff changeset	315 kids = setdiff (kids, hg_kids);
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	316 if (isempty (kids))
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	317 ## Return the current limits.
7994 8ccd9b0bf6bc plot/axis.m (__get_tight_lims__): don't fail if data is not a vector John W. Eaton <jwe@octave.org> parents: 7376 diff changeset	318 lims = get (ca, strcat (ax, "lim"));
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	319 else
7994 8ccd9b0bf6bc plot/axis.m (__get_tight_lims__): don't fail if data is not a vector John W. Eaton <jwe@octave.org> parents: 7376 diff changeset	320 data = get (kids, strcat (ax, "data"));
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11191 diff changeset	321 scale = get (ca, strcat (ax, "scale"));
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	322 if (! iscell (data))
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	323 data = {data};
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	324 end
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	325 if (strcmp (scale, "log"))
14063 6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	326 tmp = data;
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	327 data = cellfun (@(x) x(x>0), tmp, "uniformoutput", false);
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	328 n = cellfun (@isempty, data);
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	329 data(n) = cellfun (@(x) x(x<0), tmp(n), "uniformoutput", false);
13174 bd2cd4fd3edf maint: use specific endif, endfor tokens instead of simple end John W. Eaton <jwe@octave.org> parents: 13154 diff changeset	330 endif
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	331 data = cellfun (@(x) x(isfinite(x)), data, "uniformoutput", false);
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	332 data = data(! cellfun ("isempty", data));
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	333 if (! isempty (data))
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	334 lims_min = min (cellfun (@(x) min (x(:)), data(:)));
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	335 lims_max = max (cellfun (@(x) max (x(:)), data(:)));
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	336 lims = [lims_min, lims_max];
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	337 else
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	338 lims = [0, 1];
8610 85c9906abfd1 use endif and endfor instead of end John W. Eaton <jwe@octave.org> parents: 8507 diff changeset	339 endif
85c9906abfd1 use endif and endfor instead of end John W. Eaton <jwe@octave.org> parents: 8507 diff changeset	340 endif
9357 95ec56601497 axis.m: Fix bug for 'axis tight' with multiple surface plots, add demo. Ben Abbott <bpabbott@mac.com> parents: 9317 diff changeset	341
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	342 endfunction
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	343
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	344 function __do_tight_option__ (ca)
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	345
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	346 set (ca,
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	347 "xlim", __get_tight_lims__ (ca, "x"),
11183 ac6a199be45e Leave zlim unchanged during 'axis tight' on 2D plots Konstantinos Poulios <logari81@googlemail.com> parents: 11174 diff changeset	348 "ylim", __get_tight_lims__ (ca, "y"));
ac6a199be45e Leave zlim unchanged during 'axis tight' on 2D plots Konstantinos Poulios <logari81@googlemail.com> parents: 11174 diff changeset	349 if __calc_dimensions__ (ca) > 2
ac6a199be45e Leave zlim unchanged during 'axis tight' on 2D plots Konstantinos Poulios <logari81@googlemail.com> parents: 11174 diff changeset	350 set (ca, "zlim", __get_tight_lims__ (ca, "z"));
ac6a199be45e Leave zlim unchanged during 'axis tight' on 2D plots Konstantinos Poulios <logari81@googlemail.com> parents: 11174 diff changeset	351 endif
7376 b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	352
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	353 endfunction
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	354
b052b844e094 [project @ 2008-01-15 01:18:39 by jwe] jwe parents: 7216 diff changeset	355
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	356 %!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	357 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	358 %! t = 0:0.01:2*pi;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	359 %! x = sin (t);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	360 %!
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	361 %! subplot (221);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	362 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	363 %! title ("normal plot");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	364 %!
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	365 %! subplot (222);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	366 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	367 %! title ("square plot");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	368 %! axis ("square");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	369 %!
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	370 %! subplot (223);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	371 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	372 %! title ("equal plot");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	373 %! axis ("equal");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	374 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	375 %! subplot (224);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	376 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	377 %! title ("normal plot again");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	378 %! axis ("normal");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	379
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	380 %!demo
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	381 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	382 %! t = 0:0.01:2*pi;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	383 %! x = sin (t);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	384 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	385 %! subplot (121);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	386 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	387 %! title ("ij plot");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	388 %! axis ("ij");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	389 %!
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	390 %! subplot (122);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	391 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	392 %! title ("xy plot");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	393 %! axis ("xy");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	394
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	395 %!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	396 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	397 %! t = 0:0.01:2*pi;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	398 %! x = sin (t);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	399 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	400 %! subplot (331);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	401 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	402 %! title ("x tics and labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	403 %! axis ("ticx");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	404 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	405 %! subplot (332);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	406 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	407 %! title ("y tics and labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	408 %! axis ("ticy");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	409 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	410 %! subplot (333);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	411 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	412 %! title ("axis off");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	413 %! axis ("off");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	414 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	415 %! subplot (334);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	416 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	417 %! title ("x and y tics, x labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	418 %! axis ("labelx","tic");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	419 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	420 %! subplot (335);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	421 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	422 %! title ("x and y tics, y labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	423 %! axis ("labely","tic");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	424 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	425 %! subplot (336);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	426 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	427 %! title ("all tics but no labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	428 %! axis ("nolabel","tic");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	429 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	430 %! subplot (337);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	431 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	432 %! title ("x tics, no labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	433 %! axis ("nolabel","ticx");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	434 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	435 %! subplot (338);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	436 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	437 %! title ("y tics, no labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	438 %! axis ("nolabel","ticy");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	439 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	440 %! subplot (339);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	441 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	442 %! title ("all tics and labels");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	443 %! axis ("on");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	444
f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	445 %!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	446 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	447 %! t = 0:0.01:2*pi;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	448 %! x = sin (t);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	449 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	450 %! subplot (321);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	451 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	452 %! title ("axes at [0 3 0 1]");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	453 %! axis ([0,3,0,1]);
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	454 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	455 %! subplot (322);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	456 %! plot (t, x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	457 %! title ("auto");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	458 %! axis ("auto");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	459 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	460 %! subplot (323);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	461 %! plot (t, x, ";sine [0:2pi];"); hold on;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	462 %! plot (-3:3,-3:3, ";line (-3,-3)->(3,3);"); hold off;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	463 %! title ("manual");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	464 %! axis ("manual");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	465 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	466 %! subplot (324);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	467 %! plot (t, x, ";sine [0:2pi];");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	468 %! title ("axes at [0 3 0 1], then autox");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	469 %! axis ([0,3,0,1]);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	470 %! axis ("autox");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	471 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	472 %! subplot (325);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	473 %! plot (t, x, ";sine [0:2p];");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	474 %! title ("axes at [3 6 0 1], then autoy");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	475 %! axis ([3,6,0,1]);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	476 %! axis ("autoy");
3667 f7f94396dd81 [project @ 2000-05-13 06:31:28 by jwe] jwe parents: 3426 diff changeset	477 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	478 %! subplot (326);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	479 %! plot (t, sin(t), t, -2*sin(t/2));
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	480 %! axis ("tight");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	481 %! title ("tight");
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	482
a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	483 %!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	484 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	485 %! x = 0:0.1:10;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	486 %! plot (x, sin(x));
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	487 %! axis image;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	488 %! title ("image");
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	489
9357 95ec56601497 axis.m: Fix bug for 'axis tight' with multiple surface plots, add demo. Ben Abbott <bpabbott@mac.com> parents: 9317 diff changeset	490 %!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	491 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	492 %! [x,y,z] = peaks (50);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	493 %! x1 = max (x(:));
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	494 %! pcolor (x-x1, y-x1/2, z);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	495 %! hold on;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	496 %! [x,y,z] = sombrero ();
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	497 %! s = x1 / max (x(:));
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	498 %! pcolor (sx+x1, sy+x1/2, 5*z);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	499 %! axis tight;
8953 a6945f92b868 __go_draw_axes__.m: Unset the {x,y,z}ticks when initializing\n\teach axis. Set ticklabels when the ticklabels are empty and when\n\tticklabelmode=="manual". Ben Abbott <bpabbott@mac.com> parents: 8920 diff changeset	500
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11191 diff changeset	501 %!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	502 %! clf;
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11191 diff changeset	503 %! x = -10:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	504 %! plot (x,x, x,-x);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	505 %! set (gca, "yscale", "log");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	506 %! legend ({"x >= 1", "x <= 1"}, "location", "north");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	507 %! title ("ylim = [1, 10]");
11201 6c8791cb35b1 __go_draw_axes__.m: Set proper tight axis limits for log scale. Ben Abbott <bpabbott@mac.com> parents: 11191 diff changeset	508
13154 0c3b1a359998 Fix bug #33606. Marco Caliari <marco.caliar@univr.it> parents: 13031 diff changeset	509 %!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	510 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	511 %! loglog (1:20, "-s");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	512 %! axis tight;
13154 0c3b1a359998 Fix bug #33606. Marco Caliari <marco.caliar@univr.it> parents: 13031 diff changeset	513
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	514 %!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	515 %! clf;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	516 %! x = -10:0.1:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	517 %! y = sin (x)./(1 + abs (x)) + 0.1*x - 0.4;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	518 %! plot (x, y);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	519 %! title ("no plot box");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	520 %! set (gca, "xaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	521 %! set (gca, "yaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	522 %! box off;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	523
16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	524 %!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	525 %! clf;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	526 %! x = -10:0.1:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	527 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	528 %! plot (x, y);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	529 %! title ("no plot box");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	530 %! set (gca, "xaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	531 %! set (gca, "yaxislocation", "left");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	532 %! box off;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	533
16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	534 %!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	535 %! clf;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	536 %! x = -10:0.1:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	537 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	538 %! plot (x, y);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	539 %! title ("no plot box");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	540 %! set (gca, "xaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	541 %! set (gca, "yaxislocation", "right");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	542 %! box off;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	543
16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	544 %!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	545 %! clf;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	546 %! x = -10:0.1:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	547 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	548 %! plot (x, y);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	549 %! title ("no plot box");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	550 %! set (gca, "xaxislocation", "bottom");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	551 %! set (gca, "yaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	552 %! box off;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	553
16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	554 %!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	555 %! clf;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	556 %! x = -10:0.1:10;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	557 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	558 %! plot (x, y);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	559 %! title ("no plot box");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	560 %! set (gca, "xaxislocation", "top");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	561 %! set (gca, "yaxislocation", "zero");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	562 %! box off;
13322 16a706965ee0 Allow the axis box to be turned off for the gnuplot backend. Ben Abbott <bpabbott@mac.com> parents: 13175 diff changeset	563
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	564 %!test
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	565 %! hf = figure ("visible", "off");
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	566 %! unwind_protect
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	567 %! plot (11:20, [21:24, NaN, -Inf, 27:30]);
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	568 %! hold all;
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	569 %! plot (11:20, 25.5 + rand (10));
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	570 %! axis tight;
14063 6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	571 %! assert (axis (), [11 20 21 30]);
14054 ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	572 %! unwind_protect_cleanup
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	573 %! close (hf);
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	574 %! end_unwind_protect
ec79cd8359c5 Ignore Inf when determining tight axis limits. Ben Abbott <bpabbott@mac.com> parents: 13322 diff changeset	575
14063 6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	576 %!test
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	577 %! hf = figure ("visible", "off");
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	578 %! unwind_protect
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	579 %! a = logspace (-5, 1, 10);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	580 %! loglog (a, -a);
14063 6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	581 %! axis tight;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	582 %! assert (axis (), [1e-5, 10, -10, -1e-5]);
14063 6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	583 %! unwind_protect_cleanup
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	584 %! close (hf);
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	585 %! end_unwind_protect
6875d23ce051 Fix regression of tight axis limits introduced by changeset ec79cd8359c5. Ben Abbott <bpabbott@mac.com> parents: 14054 diff changeset	586

Mercurial > hg > octave-nkf

annotate scripts/plot/axis.m @ 14237:11949c9795a0