diff options
| author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
|---|---|---|
| committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
| commit | db464f35f5a10b58d9ed1085e0b462689adee583 (patch) | |
| tree | de5cdbc71a54765d9fec33414630ae2c8904c9b8 /tests/unit_tests/test_CDG/cs.sci | |
| download | scilab2c-db464f35f5a10b58d9ed1085e0b462689adee583.tar.gz scilab2c-db464f35f5a10b58d9ed1085e0b462689adee583.tar.bz2 scilab2c-db464f35f5a10b58d9ed1085e0b462689adee583.zip | |
Original Version
Diffstat (limited to 'tests/unit_tests/test_CDG/cs.sci')
| -rw-r--r-- | tests/unit_tests/test_CDG/cs.sci | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/unit_tests/test_CDG/cs.sci b/tests/unit_tests/test_CDG/cs.sci new file mode 100644 index 00000000..496b23a9 --- /dev/null +++ b/tests/unit_tests/test_CDG/cs.sci @@ -0,0 +1,25 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Vincent LEJEUNE +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +function ret=cs(A,m1,m2) + [m,n]=size(A); + rettmp=zeros(m,n); + ret=zeros(m,n); + for i=1:m + id=pmodulo(i-m1-1,m)+1; + rettmp(i,:)=A(id,:); + end + for j=1:n + jd=pmodulo(j-m2-1,n)+1; + ret(:,j)=rettmp(:,jd); + end +endfunction
\ No newline at end of file |