Mercurial > forge

annotate extra/ver20/isfinite.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 7c7be07e7805
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
1 function x = isfinite(A)
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
2 if nargin != 1
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
3 usage("x = isfinite(A)");
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
4 endif
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
5 x = !isinf(A);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
6