0e431bb17f6fc05958d11b32bcfda0d3e9e658d3
[scilab.git] / scilab / modules / ast / tests / unit_tests / colon_insert.dia.ref
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12 //
13 //
14 // <-- CLI SHELL MODE -->
15 scalar = 5;
16 vect = 1:5;
17 vect2 = 6:10;
18 mat = [1,2,3,4;5,6,7,8];
19 hm = zeros(3,4,2); hm(:) = 1:24;
20 // scalar
21 clear a; a(:) = scalar;
22 assert_checkequal(a, scalar);
23 clear a; a(:,:) = scalar;
24 assert_checkequal(a, scalar);
25 clear a; a(:,:,:) = scalar;
26 assert_checkequal(a, scalar);
27 clear a; a(:,:,2) = scalar;
28 assert_checkequal(a, matrix([0;scalar], 1, 1, 2));
29 //scalar insert
30 a=scalar; a(:) = scalar;
31 assert_checkequal(a, scalar);
32 a=scalar; a(:,:) = scalar;
33 assert_checkequal(a, scalar);
34 a=scalar; a(:,:,2) = scalar;
35 assert_checkequal(a, matrix([scalar; scalar], 1, 1, 2));
36 //vector
37 a=vect; a(:) = scalar;
38 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
39 a=vect; a(:,:) = scalar;
40 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
41 a=vect; a(:,:,:) = scalar;
42 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
43 a=vect; a(:,:,2) = scalar;
44 assert_checkequal(a, matrix([vect, scalar,scalar,scalar,scalar,scalar], 1, 5, 2));
45 //matrix
46 a=mat; a(:) = scalar;
47 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
48 a=mat; a(:,:) = scalar;
49 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
50 a=mat; a(:,:,:) = scalar;
51 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
52 a=mat; a(:,:,2) = scalar;
53 assert_checkequal(a, matrix([mat(:)' scalar scalar scalar scalar scalar scalar scalar scalar], 2, 4, 2));
54 //hypermatrix
55 a=hm; a(:) = scalar;
56 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
57 a=hm; a(:,:) = scalar;
58 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
59 a=hm; a(:,:,:) = scalar;
60 assert_checkequal(a, matrix([scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
61 a=hm; a(:,:,2) = scalar;
62 assert_checkequal(a, matrix([(hm(:,:,1)(:))' scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
63 //vector new insert
64 clear a; a(:) = vect;
65 assert_checkequal(a, vect);
66 clear a; a(:,:) = vect;
67 assert_checkequal(a, vect);
68 clear a; a(:,:,:) = vect;
69 assert_checkequal(a, vect);
70 clear a; a(:,:,2) = vect;
71 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 2));
72 clear a; a(:,:,:,2) = vect;
73 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 1, 2));
74 clear a; a(:) = vect';
75 assert_checkequal(a, vect');
76 clear a; a(:,:) = vect';
77 assert_checkequal(a, vect');
78 clear a; a(:,:,:) = vect';
79 assert_checkequal(a, vect');
80 clear a; a(:,:,2) = vect';
81 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 2));
82 clear a; a(:,:,:,2) = vect';
83 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 1, 2));
84 clear a; a(:,1,:) = vect;
85 assert_checkequal(a, matrix(vect, 1, 1, 5));
86 clear a; a(:,1,:) = vect';
87 assert_checkequal(a, vect');
88 a=vect; a(:) = vect2;
89 assert_checkequal(a, vect2);
90 a=vect; a(:,:) = vect2;
91 assert_checkequal(a, vect2);
92 a=vect; a(:,:,:) = vect2;
93 assert_checkequal(a, vect2);
94 a=vect; a(:,:,2) = vect2;
95 assert_checkequal(a, matrix([vect vect2], 1, 5, 2));
96 a=vect; a(:,:,:,2) = vect2;
97 assert_checkequal(a, matrix([vect vect2], 1, 5, 1, 2));
98 a=mat; a(:,:,2) = 9:16;
99 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 2));
100 a=mat; a(:,:,:,2) = 9:16;
101 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 1, 2));
102 a=hm; a(:) = hm(:);
103 assert_checkequal(a, hm);
104 a=hm; a(:,:) = hm(:);
105 assert_checkequal(a, hm);
106 a=hm; a(:,:,2) = hm(:,:,1);
107 assert_checkequal(a, matrix([hm(:,:,1)(:);hm(:,:,1)(:)], 3, 4, 2));
108 a=hm; a(:,:,:,2) = hm(:);
109 assert_checkequal(a, matrix([hm(:);hm(:)], 3,4,2,2));
110 //matrix
111 clear a; a(:) = mat;
112 assert_checkequal(a, mat);
113 clear a; a(:,:) = mat;
114 assert_checkequal(a, mat);
115 clear a; a(:,:,:) = mat;
116 assert_checkequal(a, mat);
117 clear a; a(:,:,2) = mat;
118 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 2));
119 clear a; a(:,:,:,2) = mat;
120 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 1, 2));
121 clear a; a(:,1,:) = mat;
122 assert_checkequal(a, matrix(mat, 2, 1, 4));
123 a=mat; a(:) = mat(:);
124 assert_checkequal(a, mat);
125 a=mat; a(:,:) = mat(:);
126 assert_checkequal(a, mat);
127 a=mat; a(:,:,2) = mat(:);
128 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 2));
129 a=mat; a(:,:,:,2) = mat(:)
130  a  = 
131 (:,:,1,1)
132    1.   2.   3.   4.
133    5.   6.   7.   8.
134 (:,:,1,2)
135    1.   2.   3.   4.
136    5.   6.   7.   8.
137 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 1, 2));
138 //hypermatrix
139 clear a; a(:) = hm;
140 assert_checkequal(a, hm);
141 clear a; a(:,:) = hm;
142 assert_checkequal(a, hm);
143 clear a; a(:,:,:) = hm;
144 assert_checkequal(a, hm);
145 clear a; a(:,:,:, 2) = hm;
146 assert_checkequal(a, matrix([zeros(hm)(:);hm(:)], 3, 4, 2, 2));
147 clear a; a(:,1,:,:) = hm;
148 assert_checkequal(a, matrix(hm, 3, 1, 4, 2));