update matrix insert and insertNew with :
[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 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9 //
10 //
11 // <-- JVM NOT MANDATORY -->
12 scalar = 5;
13 vect = 1:5;
14 vect2 = 6:10;
15 mat = [1,2,3,4;5,6,7,8];
16 hm = zeros(3,4,2); hm(:) = 1:24;
17 // scalar
18 clear a; a(:) = scalar;
19 assert_checkequal(a, scalar);
20 clear a; a(:,:) = scalar;
21 assert_checkequal(a, scalar);
22 clear a; a(:,:,:) = scalar;
23 assert_checkequal(a, scalar);
24 clear a; a(:,:,2) = scalar;
25 assert_checkequal(a, matrix([0;scalar], 1, 1, 2));
26 //scalar insert
27 a=scalar; a(:) = scalar;
28 assert_checkequal(a, scalar);
29 a=scalar; a(:,:) = scalar;
30 assert_checkequal(a, scalar);
31 a=scalar; a(:,:,2) = scalar;
32 assert_checkequal(a, matrix([scalar; scalar], 1, 1, 2));
33 //vector
34 a=vect; a(:) = scalar;
35 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
36 a=vect; a(:,:) = scalar;
37 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
38 a=vect; a(:,:,:) = scalar;
39 assert_checkequal(a, [scalar scalar scalar scalar scalar]);
40 a=vect; a(:,:,2) = scalar;
41 assert_checkequal(a, matrix([vect, scalar,scalar,scalar,scalar,scalar], 1, 5, 2));
42 //matrix
43 a=mat; a(:) = scalar;
44 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
45 a=mat; a(:,:) = scalar;
46 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
47 a=mat; a(:,:,:) = scalar;
48 assert_checkequal(a, matrix([scalar,scalar,scalar,scalar,scalar,scalar,scalar,scalar], 2, 4));
49 a=mat; a(:,:,2) = scalar;
50 assert_checkequal(a, matrix([mat(:)' scalar scalar scalar scalar scalar scalar scalar scalar], 2, 4, 2));
51 //hypermatrix
52 a=hm; a(:) = scalar;
53 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));
54 a=hm; a(:,:) = scalar;
55 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));
56 a=hm; a(:,:,:) = scalar;
57 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));
58 a=hm; a(:,:,2) = scalar;
59 assert_checkequal(a, matrix([(hm(:,:,1)(:))' scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar scalar], 3, 4, 2));
60 //vector new insert
61 clear a; a(:) = vect;
62 assert_checkequal(a, vect);
63 clear a; a(:,:) = vect;
64 assert_checkequal(a, vect);
65 clear a; a(:,:,:) = vect;
66 assert_checkequal(a, vect);
67 clear a; a(:,:,2) = vect;
68 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 2));
69 clear a; a(:,:,:,2) = vect;
70 assert_checkequal(a, matrix([0 0 0 0 0 vect], 1, 5, 1, 2));
71 clear a; a(:) = vect';
72 assert_checkequal(a, vect');
73 clear a; a(:,:) = vect';
74 assert_checkequal(a, vect');
75 clear a; a(:,:,:) = vect';
76 assert_checkequal(a, vect');
77 clear a; a(:,:,2) = vect';
78 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 2));
79 clear a; a(:,:,:,2) = vect';
80 assert_checkequal(a, matrix([0 0 0 0 0 vect], 5, 1, 1, 2));
81 clear a; a(:,1,:) = vect;
82 assert_checkequal(a, matrix(vect, 1, 1, 5));
83 clear a; a(:,1,:) = vect';
84 assert_checkequal(a, vect');
85 a=vect; a(:) = vect2;
86 assert_checkequal(a, vect2);
87 a=vect; a(:,:) = vect2;
88 assert_checkequal(a, vect2);
89 a=vect; a(:,:,:) = vect2;
90 assert_checkequal(a, vect2);
91 a=vect; a(:,:,2) = vect2;
92 assert_checkequal(a, matrix([vect vect2], 1, 5, 2));
93 a=vect; a(:,:,:,2) = vect2;
94 assert_checkequal(a, matrix([vect vect2], 1, 5, 1, 2));
95 a=mat; a(:,:,2) = 9:16;
96 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 2));
97 a=mat; a(:,:,:,2) = 9:16;
98 assert_checkequal(a, matrix([mat(:)', 9:16], 2, 4, 1, 2));
99 a=hm; a(:) = hm(:);
100 assert_checkequal(a, hm);
101 a=hm; a(:,:) = hm(:);
102 assert_checkequal(a, hm);
103 a=hm; a(:,:,2) = hm(:,:,1);
104 assert_checkequal(a, matrix([hm(:,:,1)(:);hm(:,:,1)(:)], 3, 4, 2));
105 a=hm; a(:,:,:,2) = hm(:);
106 assert_checkequal(a, matrix([hm(:);hm(:)], 3,4,2,2));
107 //matrix
108 clear a; a(:) = mat;
109 assert_checkequal(a, mat);
110 clear a; a(:,:) = mat;
111 assert_checkequal(a, mat);
112 clear a; a(:,:,:) = mat;
113 assert_checkequal(a, mat);
114 clear a; a(:,:,2) = mat;
115 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 2));
116 clear a; a(:,:,:,2) = mat;
117 assert_checkequal(a, matrix([zeros(mat(:));mat(:)], 2, 4, 1, 2));
118 clear a; a(:,1,:) = mat;
119 assert_checkequal(a, matrix(mat, 2, 1, 4));
120 a=mat; a(:) = mat(:);
121 assert_checkequal(a, mat);
122 a=mat; a(:,:) = mat(:);
123 assert_checkequal(a, mat);
124 a=mat; a(:,:,2) = mat(:);
125 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 2));
126 a=mat; a(:,:,:,2) = mat(:)
127 a  = 
128 (:,:,1,1)
129     1.    2.    3.    4.
130     5.    6.    7.    8.
131 (:,:,1,2)
132     1.    2.    3.    4.
133     5.    6.    7.    8.
134 assert_checkequal(a, matrix([mat(:);mat(:)], 2, 4, 1, 2));
135 //hypermatrix
136 clear a; a(:) = hm;
137 assert_checkequal(a, hm);
138 clear a; a(:,:) = hm;
139 assert_checkequal(a, hm);
140 clear a; a(:,:,:) = hm;
141 assert_checkequal(a, hm);
142 clear a; a(:,:,:, 2) = hm;
143 assert_checkequal(a, matrix([zeros(hm)(:);hm(:)], 3, 4, 2, 2));
144 clear a; a(:,1,:,:) = hm;
145 assert_checkequal(a, matrix(hm, 3, 1, 4, 2));