Mercurial > octave-nkf

comparison scripts/signal/fractdiff.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 e07e93c04080
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
25 25
26 ## Author: FL <Friedrich.Leisch@ci.tuwien.ac.at> 26 ## Author: FL <Friedrich.Leisch@ci.tuwien.ac.at>
27 ## Description: Compute fractional differences 27 ## Description: Compute fractional differences
28 28
29 function retval = fractdiff (x, d) 29 function retval = fractdiff (x, d)
30
31 if (nargin != 2)
32 print_usage ();
33 endif
30 34
31 N = 100; 35 N = 100;
32 36
33 if (! isvector (x)) 37 if (! isvector (x))
34 error ("fractdiff: x must be a vector") 38 error ("fractdiff: x must be a vector")