diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_Lev.sci')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_Lev.sci | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_Lev.sci b/2.3-1/tests/unit_tests/double/test_Lev.sci new file mode 100644 index 00000000..d3d01936 --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_Lev.sci @@ -0,0 +1,31 @@ +function test_Lev() + + a = [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(a)) ; + + [aa aaa] = lev(a); + disp(aa); + disp(aaa) + + [a1 aa1 aaa1] = lev (a); + disp(a1); + disp(aa1); + disp(aaa1); + +// complex + b =%i * [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(b)) ; + + [bb bbb] = lev(b); + disp(bb); + disp(bbb) + + [b1 bb1 bbb1] = lev (b); + disp(b1); + disp(bb1); + disp(bbb1); + + +endfunction |