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