Mercurial > forge
changeset 1093:c7fa8eb36812 octave-forge
removed. Not needed anymore.
author | schloegl |
---|---|
date | Wed, 05 Nov 2003 10:40:21 +0000 |
parents | 6df744f51427 |
children | 5b3804c48651 |
files | extra/NaN/flag_implicit_skip_nan.m |
diffstat | 1 files changed, 0 insertions(+), 61 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/NaN/flag_implicit_skip_nan.m Wed Nov 05 10:20:47 2003 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,61 +0,0 @@ -function FLAG = flag_implicit_skip_nan(i) -% FLAG_IMPLICIT_SKIP_NAN sets and gets default mode for handling NaNs -% 1 skips NaN's (the default mode if no mode is set) -% 0 NaNs are propagated; input NaN's give NaN's at the output -% -% FLAG = flag_implicit_skip_nan() -% gets current mode -% -% flag_implicit_skip_nan(FLAG) % sets mode -% -% prevFLAG = flag_implicit_skip_nan(nextFLAG) -% gets previous set FLAG and sets FLAG for the future -% flag_implicit_skip_nan(prevFLAG) -% resets FLAG to previous mode -% -% It is used in: -% SUMSKIPNAN, MEDIAN, QUANTILES, TRIMEAN -% and affects many other functions like: -% CENTER, KURTOSIS, MAD, MEAN, MOMENT, RMS, SEM, SKEWNESS, -% STATISTIC, STD, VAR, ZSCORE etc. -% -% The mode is stored in the global variable FLAG_implicit_skip_nan -% It is recommended to use flag_implicit_skip_nan(1) as default and -% flag_implicit_skip_nan(0) should be used for exceptional cases only. - - -% 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 2 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. -% -% You should have received a copy of the GNU General Public License -% along with this program; if not, write to the Free Software -% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -% $Revision$ -% $Id$ -% Copyright (C) 2001-2003 by Alois Schloegl <a.schloegl@ieee.org> - - -global FLAG_implicit_skip_nan; - -%%% check whether FLAG was already defined -if exist('FLAG_implicit_skip_nan')~=1, - FLAG_implicit_skip_nan = []; -end; - -%%% set DEFAULT value of FLAG -if isempty(FLAG_implicit_skip_nan), - FLAG_implicit_skip_nan = (1==1); %logical(1); % logical.m not available on 2.0.16 -end; - -FLAG = FLAG_implicit_skip_nan; -if nargin>0, - FLAG_implicit_skip_nan = (i~=0); %logical(i); %logical.m not available in 2.0.16 -end;