diff options
Diffstat (limited to 'macros/cceps.sci')
| -rw-r--r-- | macros/cceps.sci | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/macros/cceps.sci b/macros/cceps.sci new file mode 100644 index 0000000..99e4a7d --- /dev/null +++ b/macros/cceps.sci @@ -0,0 +1,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 |