Mercurial > hg > octave-lyh
diff scripts/plot/subplot.m @ 2303:5cffc4b8de57
[project @ 1996-06-24 09:15:24 by jwe]
author | jwe |
---|---|
date | Mon, 24 Jun 1996 09:15:24 +0000 |
parents | 5f6c19054139 |
children | 2b5788792cad |
line wrap: on
line diff
--- a/scripts/plot/subplot.m +++ b/scripts/plot/subplot.m @@ -1,75 +1,75 @@ -# Copyright (C) 1996 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, 59 Temple Place - Suite 330, Boston, MA -# 02111-1307, USA. +### Copyright (C) 1996 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, 59 Temple Place - Suite 330, Boston, MA +### 02111-1307, USA. function subplot (rows, columns, index) -# usage: subplot (rows, columns, index) -# subplot (rcn) -# -# NOTE: this will work only with gnuplot installed with -# multiplot patch (or version 3.6 beta) -# -# Sets gnuplot in multiplot mode and plots in location -# given by index (there are columns X rows subwindows) -# -# Input: -# -# rows : number of rows in subplot grid -# columns: number of columns in subplot grid -# index : index of subplot where to make the next plot -# -# If only one arg, then it (crn) has to be three digit value -# specifying the location in digit 1 (rows) and 2 (columns) and digit -# 3 is the plot index -# -# The plot index runs row-wise,i.e., first all the columns in a row -# are filled and then the next row is filled -# -# For example, plot with 4 X 2 grid, will have plot indices running as -# follows: -# -# ----------------------------------- -# | | | | | -# | 1 | 2 | 3 | 4 | -# | | | | | -# ----------------------------------- -# | | | | | -# | 5 | 6 | 7 | 8 | -# | | | | | -# ----------------------------------- -# + ## usage: subplot (rows, columns, index) + ## subplot (rcn) + ## + ## NOTE: this will work only with gnuplot installed with + ## multiplot patch (or version 3.6 beta) + ## + ## Sets gnuplot in multiplot mode and plots in location + ## given by index (there are columns X rows subwindows) + ## + ## Input: + ## + ## rows : number of rows in subplot grid + ## columns: number of columns in subplot grid + ## index : index of subplot where to make the next plot + ## + ## If only one arg, then it (crn) has to be three digit value + ## specifying the location in digit 1 (rows) and 2 (columns) and digit + ## 3 is the plot index + ## + ## The plot index runs row-wise,i.e., first all the columns in a row + ## are filled and then the next row is filled + ## + ## For example, plot with 4 X 2 grid, will have plot indices running as + ## follows: + ## + ## ----------------------------------- + ## | | | | | + ## | 1 | 2 | 3 | 4 | + ## | | | | | + ## ----------------------------------- + ## | | | | | + ## | 5 | 6 | 7 | 8 | + ## | | | | | + ## ----------------------------------- + ## -# Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU + ## Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU if (! gnuplot_has_multiplot) error ("subplot: gnuplot does not appear to support this feature"); endif - # global variables to keep track of multiplot options + ## global variables to keep track of multiplot options global multiplot_mode global multiplot_xsize multiplot_ysize global multiplot_xn multiplot_yn global multiplot_xi multiplot_yi - # This is a real kludge. We gnuplot should be made so that replot can - # be executed while doing multiple plots... + ## This is a real kludge. We gnuplot should be made so that replot can + ## be executed while doing multiple plots... global multiplot_save_auto_replot = automatic_replot @@ -115,7 +115,7 @@ if (columns*rows == 1) - # switching to single plot ? + ## switching to single plot ? set nomultiplot; set size 1, 1; @@ -125,7 +125,7 @@ multiplot_yn = 1; multiplot_mode = 0; - # Someone may have reset it betweeen calls... + ## Someone may have reset it betweeen calls... if (! isstr (automatic_replot) && ! automatic_replot) automatic_replot = multiplot_save_auto_replot; @@ -133,7 +133,7 @@ else - # doing multiplot plots + ## doing multiplot plots doagain = 0; @@ -158,14 +158,14 @@ endif - # get the sub plot location + ## get the sub plot location yp = fix ((index-1)/columns); xp = index - yp*columns - 1; multiplot_xi = ++xp; multiplot_yi = ++yp; - # set the origin + ## set the origin xo = (xp - 1.0)*multiplot_xsize; yo = (rows - yp)*multiplot_ysize;