Mercurial > hg > octave-nkf
diff scripts/control/swaprows.m @ 3381:69b167451491
[project @ 1999-12-15 20:48:10 by jwe]
| author | jwe |
|---|---|
| date | Wed, 15 Dec 1999 20:48:45 +0000 |
| parents | f7e4a95916f2 |
| children | 10f21f7ccc7f |
line wrap: on
line diff
--- a/scripts/control/swaprows.m +++ b/scripts/control/swaprows.m @@ -1,27 +1,28 @@ -# Copyright (C) 1996 Auburn University. All Rights Reserved. -# -# 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 USA. +## Copyright (C) 1996 Auburn University. All Rights Reserved. +## +## 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 USA. +## usage: B = swaprows(A) +## permute rows of A into reverse order + function B = swaprows(A) - # function B = swaprows(A) - # permute rows of A into reverse order - # A. S. Hodel July 23, 1992 - # Conversion to Octave R. Bruce Tenison July 4, 1994 + ## A. S. Hodel July 23, 1992 + ## Conversion to Octave R. Bruce Tenison July 4, 1994 m = rows(A); idx = m:-1:1;