52e5274877b1c37f37791ee7fd6e0322a52cc755
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / flipdim.dia.ref
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 dim=2;
12 y=flipdim(x,dim);
13 assert_checkequal([4,3,2,1;8,7,6,5],y);
14 x=matrix(1:48,[3 2,4,2]);
15 dim=3;
16 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]);
17 y=flipdim(x,dim);
18 assert_checkequal(y,ref);
19 x=[1+%i 2*%i 3 4; 5 6-%i 7 8*%pi*%i];
20 dim=1;
21 y=flipdim(x,dim);
22 ref=[ 5, 6-%i, 7,%i*25.132741;1+%i,%i*2, 3, 4];
23 assert_checkalmostequal(y,ref);