summaryrefslogtreecommitdiff
path: root/macros/cceps.sci
blob: 99e4a7dd9b709327342ace3169bbbfb4dc17d3c8 (plain)
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