Doxygen Source Code Documentation
Rrank.m
Go to the documentation of this file.00001 function p = Rrank(R,tol)
00002 %
00003 % [err,] = Rrank.m ()
00004 %
00005 %Purpose:
00006 %
00007 %
00008 %
00009 %Input Parameters:
00010 %
00011 %
00012 %
00013 %Output Parameters:
00014 % err : 0 No Problem
00015 % : 1 Problems
00016 %
00017 %
00018 %
00019 %Key Terms:
00020 %
00021 %More Info :
00022 %
00023 %
00024 %
00025 %
00026 % Author : Gang Chen
00027 % Date : Tue Mar 23 16:31:43 EST 2004
00028 % SSCC/NIMH/ National Institutes of Health, Bethesda MD 20892
00029
00030
00031 %Define the function name for easy referencing
00032 FuncName = 'Rrank.m';
00033
00034 %Debug Flag
00035 DBG = 1;
00036
00037
00038 if nargin<2
00039 tol = 100 * eps * max(size(R));
00040 end
00041 if (min(size(R))==1)
00042 d = abs(R(1,1));
00043 else
00044 d = abs(diag(R));
00045 end
00046 p = sum(d > tol*max(d));
00047
00048 return;
00049
