Mercurial > hg > octave-avbm
changeset 590:8e42786004d6
[project @ 1994-08-09 01:18:13 by jwe]
Initial revision
author | jwe |
---|---|
date | Tue, 09 Aug 1994 01:18:13 +0000 |
parents | 81b973e373f9 |
children | 7563a815389b |
files | scripts/plot/axis.m |
diffstat | 1 files changed, 58 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/plot/axis.m @@ -0,0 +1,58 @@ +# Copyright (C) 1993, 1994 John W. Eaton +# +# This file is part of Octave. +# +# Octave is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# Octave is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License +# along with Octave; see the file COPYING. If not, write to the Free +# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +function axis (ax) + +# usage: axis ([xmin, xmax]) +# axis ([xmin, xmax, ymin, ymax]) +# axis ([xmin, xmax, ymin, ymax, zmin, zmax]) +# +# Sets the axis limits. +# +# If your plot is already drawn, then you need to REPLOT before +# the new axis limits will take effect. + + if (nargin != 1) + error ("usage: axis ([xmin, xmax, ymin, ymax, zmin, zmax])"); + endif + + if (is_vector (ax)) + + len = length (ax); + + if (len != 2 && len != 4 && len != 6) + error ("axis: expecting vector with 2, 4, or 6 elements"); + endif + + if (len > 1) + eval (sprintf ("set xrange [%d:%d];", ax (1), ax (2))); + endif + + if (len > 3) + eval (sprintf ("set yrange [%d:%d];", ax (3), ax (4))); + endif + + if (len > 5) + eval (sprintf ("set zrange [%d:%d];", ax (5), ax (6))); + endif + + else + error ("axis: expecting vector with 2, 4, or 6 elements"); + endif + +endfunction