1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
function y = dst1(x, varargin) funcprot(0); lhs= argn(1); rhs= argn(2); if(rhs>2) error("Wrong number of input arguments"); end select(rhs) case 1 then y = callOctave("dst", x); case 2 then y = callOctave("dst", x, varargin(1)); end endfunction