Add the <-- JVM NOT MANDATORY --> TAG
[scilab.git] / scilab / modules / sparse / tests / unit_tests / lsparse.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 mode(5)
11 lines(0)
12 zer=sparse([],[],[6,6]);
13 //
14 //
15 //-------------------------------------------------------------
16 //test des primitives sparse, full
17 //-------------------------------------------------------------
18 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);A=full(a);
19 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[5 6]);B=full(b);
20 if or(full(a<>0)<>(A<>0)) then pause,end
21 if or(full(b<>0)<>(B<>0)) then pause,end
22 if or(full(b>0)<>(B>0)) then pause,end
23 if or(full(b<0)<>(B<0)) then pause,end
24 if or(full(a>100)<>(A>100)) then pause,end
25 if sparse(B>0)<>(b>0) then pause,end
26 if sparse(B<0)<>(b<0) then pause,end
27 //-------------------------------------------------------------
28 //test de la primitives spget
29 //-------------------------------------------------------------
30 //-----------------------------------------------
31 // | and & tests
32 //-----------------------------------------------
33 // -- sparse sparse
34 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
35 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
36 if (a|b)<>(A|B) then pause,end
37 if (a&b)<>(A&B) then pause,end
38 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
39 if (a|b)<>(A|B) then pause,end
40 if (a&b)<>(A&B) then pause,end
41 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
42 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
43 if (a|b)<>(A|B) then pause,end
44 if (a&b)<>(A&B) then pause,end
45 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
46 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
47 if (a|b)<>(A|B) then pause,end
48 if (a&b)<>(A&B) then pause,end
49 // -- sparse full
50 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
51 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
52 if (a|B)<>(A|B) then pause,end
53 if (a&B)<>(A&B) then pause,end
54 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
55 if (a|B)<>(A|B) then pause,end
56 if (a&B)<>(A&B) then pause,end
57 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
58 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
59 if (a|B)<>(A|B) then pause,end
60 if (a&B)<>(A&B) then pause,end
61 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
62 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
63 if (a|B)<>(A|B) then pause,end
64 if (a&B)<>(A&B) then pause,end
65 // -- full sparse
66 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
67 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
68 if (A|b)<>(A|B) then pause,end
69 if (A&b)<>(A&B) then pause,end
70 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
71 if (A|b)<>(A|B) then pause,end
72 if (A&b)<>(A&B) then pause,end
73 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
74 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
75 if (A|b)<>(A|B) then pause,end
76 if (A&b)<>(A&B) then pause,end
77 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
78 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
79 if (A|b)<>(A|B) then pause,end
80 if (A&b)<>(A&B) then pause,end
81 // ----------------------------------------------------------
82 // test de la transposition
83 //-----------------------------------------------------------
84 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
85 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
86 if or(full(a')<>full(a)') then pause,end
87 if or(full(b')<>full(b)') then pause,end
88 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
89 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
90 if or(full(a')<>full(a)') then pause,end
91 if or(full(b')<>full(b)') then pause,end
92 // ----------------------------------------------------------
93 // test des concatenation
94 //-----------------------------------------------------------
95 // sparse sparse
96 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
97 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
98 if or(full([a])<>A) then pause,end
99 if or(full([a b])<>[A B]) then pause,end
100 if or(full([a;b])<>[A;B]) then pause,end
101 if or(full([a []])<>A) then pause,end
102 if or(full([a;[]])<>A) then pause,end
103 // sparse full
104 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;A=full(a);
105 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b<>0;B=full(b);
106 if or(full([a B])<>[A B]) then pause,end
107 if or(full([a;B])<>[A;B]) then pause,end
108 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
109 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
110 if or(full([a B])<>[A B]) then pause,end
111 if or(full([a;B])<>[A;B]) then pause,end
112 // full sparse
113 if or(full([A b])<>[A B]) then pause,end
114 if or(full([A;b])<>[A;B]) then pause,end
115 b=sparse([1 6;1 2;5 5],[-1;-1;-1],[6 6]);b=b>0;B=full(b);
116 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a>100;A=full(a);
117 if or(full([A b])<>[A B]) then pause,end
118 if or(full([B;b])<>[A;B]) then pause,end
119 // ----------------------------------------------------------
120 // test des extractions
121 //-----------------------------------------------------------
122 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;af=full(a);
123 if or(full(a(1,3))<>af(1,3)) then pause,end
124 if or(full(a(1,4))<>af(1,4)) then pause,end
125 if or(full(a(1,:))<>af(1,:)) then pause,end
126 v=sparse([2 1;3 1;4 1;6 1],[10;11;12;13],[6,1]);v=v<>0;vf=full(v);
127 if or(full(v(:))<>vf(:)) then pause,end
128 if or(full(v(3:4))<>vf(3:4)) then pause,end
129 if or(full(v([1 5]))<>vf([1 5])) then pause,end
130 if or(full(v([4 3]))<>vf([4 3])) then pause,end
131 if or(full(v([4 4]))<>vf([4 4])) then pause,end
132 if or(full(v([1 1]))<>vf([1 1])) then pause,end
133 v=v';vf=vf';
134 if or(full(v(:))<>vf(:)) then pause,end
135 if or(full(v(3:4))<>vf(3:4)) then pause,end
136 if or(full(v([1 5]))<>vf([1 5])) then pause,end
137 if or(full(v([4 3]))<>vf([4 3])) then pause,end
138 if or(full(v([4 4]))<>vf([4 4])) then pause,end
139 if or(full(v([1 1]))<>vf([1 1])) then pause,end
140 // full line insertion
141 //----------------------
142 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;af=full(a);
143 vt=sparse([1 2;1 3;1 4;1 6],[10;11;12;13],[1,6]);vt=vt<>0;
144 a1=a;a1(1,:)=vt;A=full(a);Vt=full(vt);A(1,:)=Vt;
145 if or(full(a1)<>A) then pause,end
146 a1=a;a1(3,:)=vt;A=full(a);Vt=full(vt);A(3,:)=Vt;
147 if or(full(a1)<>A) then pause,end
148 a1=a;a1(1,:)=vt;A=full(a);Vt=full(vt);A(1,:)=Vt;
149 if or(full(a1)<>A) then pause,end
150 a1=a;a1(3,:)=vt;A=full(a);Vt=full(vt);A(3,:)=Vt;
151 if or(full(a1)<>A) then pause,end
152 a1=a;a1(7,:)=vt;A=full(a);Vt=full(vt);A(7,:)=Vt;
153 if or(full(a1)<>A) then pause,end
154 a1=a;a1(8,:)=vt;A=full(a);Vt=full(vt);A(8,:)=Vt;
155 if or(full(a1)<>A) then pause,end
156 b=sparse([1 1;1 3;1 6;2 1;2 2;2 4],10:15,[2,6])<>0;
157 a1=a;a1([1 3],:)=b;A=full(a);B=full(b);A([1 3],:)=B;
158 if or(full(a1)<>A) then pause,end
159 a1=a;a1([3 1],:)=b;A=full(a);B=full(b);A([3 1],:)=B;
160 if or(full(a1)<>A) then pause,end
161 b=sparse([1 1;1 3;1 6;2 1;2 2;2 4;3 3;3 5],10:17,[3,6])<>0;
162 a1=a;a1([1 3 1],:)=b;A=full(a);B=full(b);A([1 3 1],:)=B;
163 if or(full(a1)<>A) then pause,end
164 //  insert zero vector
165 vt=sparse([],[],[1,6])<>0;
166 a1=a;a1(1,:)=vt;A=full(a);Vt=full(vt);A(1,:)=Vt;
167 if or(full(a1)<>A) then pause,end
168 a1=a;a1(3,:)=vt;A=full(a);Vt=full(vt);A(3,:)=Vt;
169 if or(full(a1)<>A) then pause,end
170 a1=a;a1(1,:)=vt;A=full(a);Vt=full(vt);A(1,:)=Vt;
171 if or(full(a1)<>A) then pause,end
172 a1=a;a1(3,:)=vt;A=full(a);Vt=full(vt);A(3,:)=Vt;
173 if or(full(a1)<>A) then pause,end
174 a1=a;a1(7,:)=vt;A=full(a);Vt=full(vt);A(7,:)=Vt;
175 if or(full(a1)<>A) then pause,end
176 a1=a;a1(8,:)=vt;A=full(a);Vt=full(vt);A(8,:)=Vt;
177 if or(full(a1)<>A) then pause,end
178 b=sparse([1 1;1 3;1 6;2 1;2 2;2 4],10:15,[2,6]);b=b<>0;
179 a1=a;a1([1 3],:)=b;A=full(a);B=full(b);A([1 3],:)=B;
180 if or(full(a1)<>A) then pause,end
181 a1=a;a1([3 1],:)=b;A=full(a);B=full(b);A([3 1],:)=B;
182 if or(full(a1)<>A) then pause,end
183 b=sparse([1 1;1 3;1 6;2 1;2 2;2 4;3 3;3 5],10:17,[3,6]);b=b<>0;
184 a1=a;a1([1 3 1],:)=b;A=full(a);B=full(b);A([1 3 1],:)=B;
185 if or(full(a1)<>A) then pause,end
186 // full column insertion
187 //----------------------
188 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;
189 v=sparse([2 1;3 1;4 1;6 1],[10;11;12;13],[6,1]);v=v<>0;
190 a1=a;a1(:,1)=v;A=full(a);V=full(v);A(:,1)=V;
191 if or(full(a1)<>A) then pause,end
192 a1=a;a1(:,2)=v;A=full(a);V=full(v);A(:,2)=V;
193 if or(full(a1)<>A) then pause,end
194 a1=a;a1(:,1)=v;A=full(a);V=full(v);A(:,1)=V;
195 if or(full(a1)<>A) then pause,end
196 a1=a;a1(:,2)=v;A=full(a);V=full(v);A(:,2)=V;
197 if or(full(a1)<>A) then pause,end
198 a1=a;a1(:,3)=v;A=full(a);V=full(v);A(:,3)=V;
199 if or(full(a1)<>A) then pause,end
200 //
201 a1=a;a1(:,7)=v;A=full(a);V=full(v);A(:,7)=V;
202 if or(full(a1)<>A) then pause,end
203 a1=a;a1(:,8)=v;A=full(a);V=full(v);A(:,8)=V;
204 if or(full(a1)<>A) then pause,end
205 b=sparse([1 2;2 1;3 1;3 2;4 1;6 2],10:15,[6,2]);b=b<>0;
206 a1=a;a1(:,[1 3])=b;A=full(a);B=full(b);A(:,[1 3])=B;
207 if or(full(a1)<>A) then pause,end
208 a1=a;a1(:,[3 1])=b;A=full(a);B=full(b);A(:,[3 1])=B;
209 if or(full(a1)<>A) then pause,end
210 b=sparse([1 2;2 1;2 3;3 1;3 2;4 1;5 3;6 2],10:17,[6,3]);b=b<>0;
211 a1=a;a1(:,[1 3 1])=b;A=full(a);B=full(b);A(:,[1 3 1])=B;
212 if or(full(a1)<>A) then pause,end
213 // row column insertion
214 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;
215 b=sparse([1 2;1 3;3 3],-(1:3),[3,3]);b=b<>0;
216 a1=a;a1(1,1)=sparse(%t);A=full(a);A(1,1)=%t;
217 if or(full(a1)<>A) then pause,end
218 a1=a;a1(1,6)=sparse(%t);A=full(a);A(1,6)=%t;
219 if or(full(a1)<>A) then pause,end
220 a1=a;a1(1,8)=sparse(%t);A=full(a);A(1,8)=%t;
221 if or(full(a1)<>A) then pause,end
222 a1=a;a1(1:3,1:3)=b;A=full(a);A(1:3,1:3)=full(b);
223 if or(full(a1)<>A) then pause,end
224 a1=a;a1(1:3,6:8)=b;A=full(a);A(1:3,6:8)=full(b);
225 if or(full(a1)<>A) then pause,end
226 a1=a;a1(6:8,1:3)=b;A=full(a);A(6:8,1:3)=full(b);
227 if or(full(a1)<>A) then pause,end
228 a1=a;a1([3 2 1],1:3)=b;A=full(a);A([3 2 1],1:3)=full(b);
229 if or(full(a1)<>A) then pause,end
230 a1=a;a1([1 2 1],1:3)=b;A=full(a);A([1 2 1],1:3)=full(b);
231 if or(full(a1)<>A) then pause,end
232 a1=a;a1([3 2 1],[3 2 1])=b;A=full(a);A([3 2 1],[3 2 1])=full(b);
233 if or(full(a1)<>A) then pause,end
234 a1=a;a1([1 2 1],[3 2 1])=b;A=full(a);A([1 2 1],[3 2 1])=full(b);
235 if or(full(a1)<>A) then pause,end
236 a1=a;a1([1 2 1],[1 2 1])=b;A=full(a);A([1 2 1],[1 2 1])=full(b);
237 if or(full(a1)<>A) then pause,end
238 //sparse full
239 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;
240 vt=[%t %f %t %t %t %t];
241 // full line insertion
242 //----------------------
243 a1=a;a1(1,:)=vt;A=full(a);A(1,:)=vt;
244 if or(full(a1)<>A) then pause,end
245 a1=a;a1(3,:)=vt;A=full(a);A(3,:)=vt;
246 if or(full(a1)<>A) then pause,end
247 a1=a;a1(1,:)=vt;A=full(a);A(1,:)=vt;
248 if or(full(a1)<>A) then pause,end
249 a1=a;a1(3,:)=vt;A=full(a);A(3,:)=vt;
250 if or(full(a1)<>A) then pause,end
251 a1=a;a1(7,:)=vt;A=full(a);A(7,:)=vt;
252 if or(full(a1)<>A) then pause,end
253 a1=a;a1(8,:)=vt;A=full(a);A(8,:)=vt;
254 if or(full(a1)<>A) then pause,end
255 b=[%t %f %t %t %t %t;%f %f %t %t %f %t];
256 a1=a;a1([1 3],:)=b;A=full(a);A([1 3],:)=b;
257 if or(full(a1)<>A) then pause,end
258 a1=a;a1([3 1],:)=b;A=full(a);A([3 1],:)=b;
259 if or(full(a1)<>A) then pause,end
260 b=[%t %f %t %t %t %t;%f %f %t %t %f %t;%t %f %t %f %t %t];
261 a1=a;a1([1 3 1],:)=b;A=full(a);A([1 3 1],:)=b;
262 if or(full(a1)<>A) then pause,end
263 // full column insertion
264 //----------------------
265 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;
266 v=[%t %f %t %t %t %t]';
267 a1=a;a1(:,1)=v;A=full(a);A(:,1)=v;
268 if or(full(a1)<>A) then pause,end
269 a1=a;a1(:,2)=v;A=full(a);A(:,2)=v;
270 if or(full(a1)<>A) then pause,end
271 a1=a;a1(:,1)=v;A=full(a);A(:,1)=v;
272 if or(full(a1)<>A) then pause,end
273 a1=a;a1(:,2)=v;A=full(a);A(:,2)=v;
274 if or(full(a1)<>A) then pause,end
275 a1=a;a1(:,3)=v;A=full(a);A(:,3)=v;
276 if or(full(a1)<>A) then pause,end
277 //
278 a1=a;a1(:,7)=v;A=full(a);A(:,7)=v;
279 if or(full(a1)<>A) then pause,end
280 a1=a;a1(:,8)=v;A=full(a);A(:,8)=v;
281 if or(full(a1)<>A) then pause,end
282 b=[%t %f %t %t %t %t;%f %f %t %t %f %t]';
283 a1=a;a1(:,[1 3])=b;A=full(a);A(:,[1 3])=b;
284 if or(full(a1)<>A) then pause,end
285 a1=a;a1(:,[3 1])=b;A=full(a);A(:,[3 1])=b;
286 if or(full(a1)<>A) then pause,end
287 b=[%t %f %t %t %t %t;%f %f %t %t %f %t;%f %t %t %t %t %f]';
288 a1=a;a1(:,[1 3 1])=b;A=full(a);A(:,[1 3 1])=b;
289 if or(full(a1)<>A) then pause,end
290 // row column insertion
291 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6]);a=a<>0;
292 b=[%t %t %f;%f %t %f;%t %t %t];
293 a1=a;a1(1,1)=%t;A=full(a);A(1,1)=%t;
294 if or(full(a1)<>A) then pause,end
295 a1=a;a1(1,6)=%t;A=full(a);A(1,6)=%t;
296 if or(full(a1)<>A) then pause,end
297 a1=a;a1(1,8)=%t;A=full(a);A(1,8)=%t;
298 if or(full(a1)<>A) then pause,end
299 a1=a;a1(1:3,1:3)=b;A=full(a);A(1:3,1:3)=b;
300 if or(full(a1)<>A) then pause,end
301 a1=a;a1(1:3,6:8)=b;A=full(a);A(1:3,6:8)=b;
302 if or(full(a1)<>A) then pause,end
303 a1=a;a1(6:8,1:3)=b;A=full(a);A(6:8,1:3)=b;
304 if or(full(a1)<>A) then pause,end
305 a1=a;a1([3 2 1],1:3)=b;A=full(a);A([3 2 1],1:3)=b;
306 if or(full(a1)<>A) then pause,end
307 a1=a;a1([1 2 1],1:3)=b;A=full(a);A([1 2 1],1:3)=b;
308 if or(full(a1)<>A) then pause,end
309 a1=a;a1([3 2 1],[3 2 1])=b;A=full(a);A([3 2 1],[3 2 1])=b;
310 if or(full(a1)<>A) then pause,end
311 a1=a;a1([1 2 1],[3 2 1])=b;A=full(a);A([1 2 1],[3 2 1])=b;
312 if or(full(a1)<>A) then pause,end
313 a1=a;a1([1 2 1],[1 2 1])=b;A=full(a);A([1 2 1],[1 2 1])=b;
314 if or(full(a1)<>A) then pause,end
315 // vector insertion
316 v=sparse([1 1;3 1;6 1],[10 11 12],[6 1]);v=v<>0;
317 v1=v;v1(1)=%f;V=full(v);V(1)=%f;
318 if or(full(v1)<>V) then pause,end
319 v1=v;v1(2)=%t;V=full(v);V(2)=%t;
320 if or(full(v1)<>V) then pause,end
321 v1=v;v1(8)=%f;V=full(v);V(8)=%f;
322 if or(full(v1)<>V) then pause,end
323 v1=v;v1([1 2 8])=[%t;%t;%f];V=full(v);V([1 2 8])=[%t;%t;%f];
324 if or(full(v1)<>V) then pause,end
325 v1=v;v1(:)=[];
326 if or(full(v1)<>[]) then pause,end
327 v1=v;v1(1)=sparse(%f);V=full(v);V(1)=%f;
328 if or(full(v1)<>V) then pause,end
329 v1=v;v1(2)=sparse(%f);V=full(v);V(2)=%f;
330 if or(full(v1)<>V) then pause,end
331 v1=v;v1(8)=sparse(%f);V=full(v);V(8)=%f;
332 if or(full(v1)<>V) then pause,end
333 v1=v;v1([1 2 8])=sparse([%f;%t;%f]);V=full(v);V([1 2 8])=[%f;%t;%f];
334 if or(full(v1)<>V) then pause,end
335 v1=v;v1([1 2 1])=sparse([%f;%f;%f]);V=full(v);V([1 2 1])=[%f;%f;%f];
336 if or(full(v1)<>V) then pause,end
337 v1=v;v1(:)=[];
338 if or(full(v1)<>[]) then pause,end
339 v1=v;v1(:)=(sparse([2 1],44,[6 1])<>0);V=full(v);V(:)=[%f;%t;%f;%f;%f;%f];
340 if or(full(v1)<>V) then pause,end
341 v=v';
342 v1=v;v1(1)=%f;V=full(v);V(1)=%f;
343 if or(full(v1)<>V) then pause,end
344 v1=v;v1(2)=%f;V=full(v);V(2)=%f;
345 if or(full(v1)<>V) then pause,end
346 v1=v;v1(8)=%f;V=full(v);V(8)=%f;
347 if or(full(v1)<>V) then pause,end
348 v1=v;v1([1 2 8])=[%t %f %f];V=full(v);V([1 2 8])=[%t %f %f];
349 if or(full(v1)<>V) then pause,end
350 v1=v;v1(1)=sparse(%f);V=full(v);V(1)=%f;
351 if or(full(v1)<>V) then pause,end
352 v1=v;v1(2)=sparse(%f);V=full(v);V(2)=%f;
353 if or(full(v1)<>V) then pause,end
354 v1=v;v1(8)=sparse(%f);V=full(v);V(8)=%f;
355 if or(full(v1)<>V) then pause,end
356 v1=v;v1([1 2 8])=sparse([%f %t %f]);V=full(v);V([1 2 8])=[%f %t %f];
357 if or(full(v1)<>V) then pause,end
358 v1=v;v1([1 2 1])=sparse([%f %f %f]);V=full(v);V([1 2 1])=[%f %f %f];
359 if or(full(v1)<>V) then pause,end
360 v1=v;v1(:)=(sparse([1 2],44,[1,6]))<>0;V=full(v);V(:)=[%f %t %f %f %f %f];
361 if or(full(v1)<>V) then pause,end
362 v1=v;v1(1)=[];V=full(v);V(1)=[];
363 if or(full(v1)<>V) then pause,end
364 //test des comparaisons
365 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6])<>0;
366 b=sparse([1 6;1 2;6 5],[10;-1;-1],[6 6])<>0;;
367 if full(a==a)<>full(a)==full(a) then pause,end
368 if full(a<>a)<>(full(a)<>full(a)) then pause,end
369 if full(a==full(a))<>full(a)==full(a) then pause,end
370 if full(a<>full(a))<>(full(a)<>full(a)) then pause,end
371 if full(full(a)==a)<>full(a)==full(a) then pause,end
372 if full(full(a)<>a)<>(full(a)<>full(a)) then pause,end
373 a=sparse([1 1;3 1;6 1],[10 11 12],[6 1])<>0;
374 if full(a==a)<>full(a)==full(a) then pause,end
375 if full(a<>a)<>(full(a)<>full(a)) then pause,end
376 if full(a==full(a))<>full(a)==full(a) then pause,end
377 if full(a<>full(a))<>(full(a)<>full(a)) then pause,end
378 if full(full(a)==a)<>full(a)==full(a) then pause,end
379 if full(full(a)<>a)<>(full(a)<>full(a)) then pause,end
380 a=a';
381 if full(a==a)<>full(a)==full(a) then pause,end
382 if full(a<>a)<>(full(a)<>full(a)) then pause,end
383 if full(a==full(a))<>full(a)==full(a) then pause,end
384 if full(a<>full(a))<>(full(a)<>full(a)) then pause,end
385 if full(full(a)==a)<>full(a)==full(a) then pause,end
386 if full(full(a)<>a)<>(full(a)<>full(a)) then pause,end
387 a=sparse([1 6;1 5;1 3;2 4;2 1;4 4;4 3;5 1;6 6],1:9,[6 6])<>0;
388 b=sparse([1 6;1 2;5 5],[10;-1;-1],[5 6])<>0;
389 if a==b<>%f then pause,end
390 if a<>b<>%t then pause,end
391