441633af9c9267a14b837b170159ecd8228c7fec
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / intersect.dia.ref
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 // <-- CLI SHELL MODE -->
8 [v,ka,kb] = intersect([],[]);
9 if v <> [] then bugmes();quit;end
10 if ka <> [] then bugmes();quit;end
11 if kb <> [] then bugmes();quit;end
12 [v,ka,kb] = intersect([1 2],[3 4]);
13 if v <> [] then bugmes();quit;end
14 if ka <> [] then bugmes();quit;end
15 if kb <> [] then bugmes();quit;end
16 A = [ 1 8 4 5 2 1];
17 B = [ 9 7 4 2 1 4];
18 [v,ka,kb] = intersect(A,B);
19 if or(A(ka) <> B(kb)) then bugmes();quit;end
20 if or(A(ka) <> v) then bugmes();quit;end
21 if or(v<>intersect(A,B))  then bugmes();quit;end
22 if (or(v<>[1,2,4])) then bugmes();quit;end
23 A = 'a'+string(A);
24 B = 'b'+string(B);
25 [v,ka,kb] = intersect(A,B);
26 if or(A(ka) <> B(kb)) then bugmes();quit;end
27 if or(A(ka) <> v) then bugmes();quit;end
28 if or(v<>intersect(A,B))  then bugmes();quit;end
29 if v <> [] then bugmes();quit;end
30 A = [ "elt1" "elt3" "elt4"];
31 B = [ "elt5" "elt1" "elt3"];
32 [v, ka, kb] = intersect(A,B);
33 if or(A(ka) <> B(kb)) then bugmes();quit;end
34 if or(A(ka) <> v) then bugmes();quit;end
35 if or(v<>intersect(A,B))  then bugmes();quit;end
36 if (or(v<>["elt1","elt3"])) then bugmes();quit;end
37 A = [ "elt1" "elt3" "elt4"];
38 B = [ "elt5" "elt6" "elt2" "elt1" "elt3"];
39 [v, ka, kb] = intersect(A,B);
40 if or(A(ka) <> B(kb)) then bugmes();quit;end
41 if or(A(ka) <> v) then bugmes();quit;end
42 if or(v<>intersect(A,B))  then bugmes();quit;end
43 if (or(v<>["elt1","elt3"])) then bugmes();quit;end
44 //with integers
45 A = int16([ 1 8 4 5 2 1]);
46 B = int16([ 9 7 4 2 1 4]);
47 [v, ka, kb]=intersect(A,B);
48 if or(A(ka) <> B(kb)) then bugmes();quit;end
49 if or(A(ka) <> v) then bugmes();quit;end
50 if or(v<>intersect(A,B))  then bugmes();quit;end
51 if (or(v<>int16([1,2,4]))) then bugmes();quit;end
52 A = uint8([ 1 8 4 5 2 1]);
53 B = uint8([ 9 7 4 2 1 4]);
54 [v, ka, kb]=intersect(A,B);
55 if or(A(ka) <> B(kb)) then bugmes();quit;end
56 if or(A(ka) <> v) then bugmes();quit;end
57 if or(v<>intersect(A,B))  then bugmes();quit;end
58 if (or(v<>uint8([1,2,4]))) then bugmes();quit;end
59 //with matrices
60  A = [0,0,1,1 1;
61       0,1,1,1,1;
62       2,0,1,1,1;
63       0,2,2,2,2;
64       2,0,1,1,1;
65       0,0,1,1,3];
66 B = [1,0,1;
67      1,0,2;
68      1,2,3;
69      2,0,4;
70      1,2,5;
71      3,0,6];
72 [v,ka,kb] = intersect(A,B,'c');
73 if or(A(:,ka) <> B(:,kb)) then bugmes();quit;end
74 if or(A(:,ka) <> v) then bugmes();quit;end
75 if or(v<>intersect(A,B,'c'))  then bugmes();quit;end
76 if (or(v<>[0,1;0,1;2,1;0,2;2,1;0,3])) then bugmes();quit;end
77 A=A';B=B';
78 [v,ka,kb] = intersect(A,B,'r');
79 if or(A(ka,:) <> B(kb,:)) then bugmes();quit;end
80 if or(A(ka,:) <> v) then bugmes();quit;end
81 if or(v<>intersect(A,B,'r'))  then bugmes();quit;end
82 if (or(v<>[0,0,2,0,2,0;1,1,1,2,1,3])) then bugmes();quit;end
83 A=uint32(A);B=uint32(B);
84 [v,ka,kb] = intersect(A,B,'r');
85 if or(A(ka,:) <> B(kb,:)) then bugmes();quit;end
86 if or(A(ka,:) <> v) then bugmes();quit;end
87 if or(v<>intersect(A,B,'r'))  then bugmes();quit;end
88 if (or(v<>uint32([0,0,2,0,2,0;1,1,1,2,1,3]))) then bugmes();quit;end
89 //with Nan
90  A = [0,0,1,1 1;
91       0,1,1,1,1;
92       2,0,1,1,1;
93       0,2,2,2,2;
94       2,0,1,1,1;
95       0,0,1,1,%nan];
96 B = [1,0,1;
97      1,0,2;
98      1,2,3;
99      2,0,4;
100      1,2,5;
101      %nan,0,6];
102 [v,ka,kb] = intersect(A,B,'c');
103 if or(A(:,ka) <> B(:,kb)) then bugmes();quit;end
104 if or(A(:,ka) <> v) then bugmes();quit;end
105 if or(v<>intersect(A,B,'c'))  then bugmes();quit;end
106 if (or(v<>[0;0;2;0;2;0])) then bugmes();quit;end
107 // =============================================================================