Mercurial > forge
changeset 9606:33ed042002f9 octave-forge
normc: use print_usage
author | carandraug |
---|---|
date | Thu, 08 Mar 2012 17:54:19 +0000 |
parents | 4fa3d0a20d75 |
children | 2ca6888e8218 |
files | main/miscellaneous/inst/normc.m |
diffstat | 1 files changed, 14 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/main/miscellaneous/inst/normc.m Thu Mar 08 17:52:40 2012 +0000 +++ b/main/miscellaneous/inst/normc.m Thu Mar 08 17:54:19 2012 +0000 @@ -1,20 +1,20 @@ -## Copyright (C) 2011 Thomas Weber +## Copyright (C) 2011 Thomas Weber <tweber@debian.org> ## -## This program 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 3 of the License, or -## (at your option) any later version. +## This program 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 3 of the License, or (at your option) any later +## version. ## -## This program 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. +## This program 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 this program; If not, see <http://www.gnu.org/licenses/>. +## You should have received a copy of the GNU General Public License along with +## this program; if not, see <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Function File} {@var{x} = } normc (@var{M}) +## @deftypefn {Function File} {@var{x} =} normc (@var{M}) ## Normalize the columns of a matrix to a length of 1 and return the matrix. ## ## @example @@ -32,9 +32,9 @@ function X = normc(M) if (1 != nargin) - usage("normc(M)"); + print_usage; endif - + X = normr(M.').'; endfunction