Mercurial > hg > octave-lyh

comparison scripts/general/mod.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 045038e0108a
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
39 ## Adapted by: jwe 39 ## Adapted by: jwe
40 40
41 function r = mod (x, y) 41 function r = mod (x, y)
42 42
43 if (nargin != 2) 43 if (nargin != 2)
44 usage ("r = mod (x, y)"); 44 print_usage ();
45 endif 45 endif
46 46
47 if (((ndims (x) != ndims (y)) || any (size (x) != size (y))) && 47 if (((ndims (x) != ndims (y)) || any (size (x) != size (y))) &&
48 ! (isscalar (x) || isscalar (y))) 48 ! (isscalar (x) || isscalar (y)))
49 error ("mod: argument sizes must agree"); 49 error ("mod: argument sizes must agree");