From 662a884304741797ecabf2c70340e7d157d77e4e Mon Sep 17 00:00:00 2001
From: sebastien <sebastien@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Thu, 23 Apr 2009 13:27:52 +0000
Subject: [PATCH] 4.0: merged r2618 changeset (mex/octave/rcond.m:
 simplification + header update)

git-svn-id: https://www.dynare.org/svn/dynare/branches/4.0@2619 ac1d8469-bf42-47a9-8791-bf33cf982152
---
 mex/octave/rcond.m | 32 +++++++++++++++++++++++++++-----
 1 file changed, 27 insertions(+), 5 deletions(-)

diff --git a/mex/octave/rcond.m b/mex/octave/rcond.m
index 0a186a08ef..7bd788192a 100644
--- a/mex/octave/rcond.m
+++ b/mex/octave/rcond.m
@@ -1,5 +1,27 @@
-function r = rcond(A)
-% Computes reciprocal condition number
-% part of DYNARE, copyright Dynare Team (2008)
-% Gnu Public License.
-  r = 1/(norm(A,1) * norm(inv(A), 1));
+## Copyright (C) 2008-2009 Dynare Team
+##
+## This file is part of Dynare.
+##
+## Dynare 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.
+##
+## Dynare 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 Dynare.  If not, see <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {@var{rcn} =} rcond (@var{A})
+##
+## Computes an estimate for the reciprocal of the condition number
+## of matrix @var{A}, using the 1-norm.
+## @end deftypefn
+
+function rcn = rcond(A)
+  [dummy, rcn] = inv(A);
+endfunction
-- 
GitLab