885e5e63eab99b36e961f25aff9738df7cd40c9c
[scilab.git] / scilab / modules / elementary_functions / macros / isnan.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // Copyright (C) DIGITEO - 2011 - Allan CORNET
4 //
5 // Copyright (C) 2012 - 2016 - Scilab Enterprises
6 //
7 // This file is hereby licensed under the terms of the GNU GPL v2.0,
8 // pursuant to article 5.3.4 of the CeCILL v.2.1.
9 // This file was originally licensed under the terms of the CeCILL v2.1,
10 // and continues to be available under such terms.
11 // For more information, see the COPYING file which you should have received
12 // along with this program.
13
14 function r = isnan(x)
15     rhs = argn(2);
16     if rhs <> 1 then
17         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"isnan", 1));
18     end
19     if x == [] then
20         r = [];
21     else
22         r =~ (x == x);
23     end
24 endfunction