diff options
Diffstat (limited to 'macros/spencer.sci')
| -rw-r--r-- | macros/spencer.sci | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/macros/spencer.sci b/macros/spencer.sci new file mode 100644 index 0000000..537ca8a --- /dev/null +++ b/macros/spencer.sci @@ -0,0 +1,15 @@ +function y= spencer(x) + +funcprot(0); + +rhs= argn(2); + +if(rhs <1 | rhs >1) +error("Wrong number of input arguments"); +end + +select(rhs) + case 1 then + y = callOctave("spencer",x); +end +endfunction |