Mercurial > octave-nkf

comparison scripts/signal/sinc.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children 81d6ab3ac93c
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
32 32
33 ## Author: jwe ??? 33 ## Author: jwe ???
34 34
35 function result = sinc (x) 35 function result = sinc (x)
36 36
37 if (nargin != 1)
38 print_usage ();
39 endif
40
37 result = ones (size (x)); 41 result = ones (size (x));
38 42
39 i = (x != 0); 43 i = (x != 0);
40 44
41 if (any (i(:))) 45 if (any (i(:)))