macros/spencer.sci


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

function y= spencer(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