macros/cceps.sci


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

function y = cceps (x,correct)

funcprot(0);
//
rhs = argn(2)
if(rhs<1 | rhs>2)
error("Wrong number of input arguments.")
end

	select(rhs)
	case 1 then
	y = callOctave("cceps",x)
	case 2 then
	y = callOctave("cceps",x,correct)
	end
endfunction