Mercurial > forge

annotate extra/ver20/isreal.m @ 0:6b33357c7561 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author pkienzle
date Wed, 10 Oct 2001 19:54:49 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
1 ## usage: b = isreal(x)
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
2 ##
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
3 ## Returns 1 if all elements of x are real.
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
4
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
5 function b = isreal(x)
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
6 if (nargin != 1)
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
7 usage("b = isreal(x)");
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
8 endif
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
9 b = !any(any(imag(x)));
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
10 endfunction
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
11
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
12 %!shared x
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
13 %! x=rand(10,10);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
14 %!assert (isreal (x));
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
15 %!test x(5,1)=1i;
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
16 %!assert (!isreal (x));
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
17 %!assert (isreal ([]));
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
18 %!error isreal
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
19 %!error isreal(1,2)