diff options
| author | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
|---|---|---|
| committer | Siddhesh Wani | 2015-05-25 14:46:31 +0530 |
| commit | 6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26 (patch) | |
| tree | 1b7bd89fdcfd01715713d8a15db471dc75a96bbf /2.3-1/tests/unit_tests/test_CDG/cs.sci | |
| download | Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.gz Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.tar.bz2 Scilab2C-6a320264c2de3d6dd8cc1d1327b3c30df4c8cb26.zip | |
Original Version
Diffstat (limited to '2.3-1/tests/unit_tests/test_CDG/cs.sci')
| -rw-r--r-- | 2.3-1/tests/unit_tests/test_CDG/cs.sci | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/test_CDG/cs.sci b/2.3-1/tests/unit_tests/test_CDG/cs.sci new file mode 100644 index 00000000..496b23a9 --- /dev/null +++ b/2.3-1/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 |