blob: 63a1b832f89a110936dd26d14d1da7202fd2c32c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
function y= spencer(x)
//Return Spencer's 15 point moving average of each column of X.
//Calling Sequence
//spencer(X)
//Parameters
//X: Real scalar or vector
//Description
//Return Spencer's 15 point moving average of each column of X.
funcprot(0);
rhs= argn(2);
if(rhs <1 | rhs >1)
error("Wrong number of input arguments");
end
select(rhs)
case 1 then
y = callOctave("spencer",x);
end
endfunction
|
