Mercurial > hg > octave-lyh

comparison scripts/general/isequalwithequalnans.m @ 5549:6db3a5df1eab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-30 03:15:19 by jwe]
author jwe
date Wed, 30 Nov 2005 03:15:24 +0000
parents
children 815926a781f6
comparison
equal deleted inserted replaced
5548:5cc01ba4c052 5549:6db3a5df1eab
1 ## Copyright (C) 2005 William Poetra Yoga Hadisoeseno
2 ##
3 ## This file is part of Octave.
4 ##
5 ## Octave is free software; you can redistribute it and/or modify
6 ## it under the terms of the GNU General Public License as published by
7 ## the Free Software Foundation; either version 2 of the License, or
8 ## (at your option) any later version.
9 ##
10 ## Octave is distributed in the hope that it will be useful,
11 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ## GNU General Public License for more details.
14 ##
15 ## You should have received a copy of the GNU General Public License
16 ## along with Octave; if not, write to the Free Software
17 ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18
19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {} isequalwithequalnans (@var{x1}, @var{x2}, ...)
21 ## Assuming NaN == NaN, return true if all of @var{x1}, @var{x2}, ... are equal.
22 ## @end deftypefn
23 ##
24 ## @seealso{isequal}
25
26 function tf = isequalwithequalnans (x, varargin)
27
28 if (nargin < 2)
29 usage ("isequalwithequalnans (x1, x2, ...)");
30 end
31
32 tf = __isequal__ (1, x, varargin{:});
33
34 endfunction
35