diff options
Diffstat (limited to 'macros/unwrap2.sci')
| -rw-r--r-- | macros/unwrap2.sci | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/macros/unwrap2.sci b/macros/unwrap2.sci new file mode 100644 index 0000000..5b19283 --- /dev/null +++ b/macros/unwrap2.sci @@ -0,0 +1,20 @@ +function Y = unwrap2 (X, TOL, DIM) + +funcprot(0); +lhs = argn(1) +rhs = argn(2) +if (rhs < 1 | rhs > 3) +error("Wrong number of input arguments.") +end + +select(rhs) + + case 1 then + Y = callOctave("unwrap",X) + case 2 then + Y = callOctave("unwrap",X,TOL) + case 3 then + Y = callOctave("unwrap",X,TOL,DIM) + end + +endfunction |