37cd0aa6dda66bd76d6331bf74587cdea88e1d98
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / flipdim.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Sylvestre Ledru
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 x=[1 2 3 4; 5 6 7 8];
8 dim=1;
9 y=flipdim(x,dim);
10 assert_checkequal([5,6,7,8;1,2,3,4],y);
11
12 dim=2;
13 y=flipdim(x,dim);
14 assert_checkequal([4,3,2,1;8,7,6,5],y);
15
16 x=matrix(1:48,[3 2,4,2]);
17 dim=3;
18 ref=hypermat([3,2,4,2],[19;20;21;22;23;24;13;14;15;16;17;18;7;8;9;10;11;12;1;2;3;4;5;6;43;44;45;46;47;48;37;38;39;40;41;42;31;32;33;34;35;36;25;26;27;28;29;30]);
19 y=flipdim(x,dim);
20 assert_checkequal(y,ref);
21
22 x=[1+%i 2*%i 3 4; 5 6-%i 7 8*%pi*%i];
23 dim=1;
24 y=flipdim(x,dim);
25 ref=[ 5, 6-%i, 7,%i*25.132741;1+%i,%i*2, 3, 4];
26 assert_checkalmostequal(y,ref);