lwM
1.67 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
maple_mode(1);
w := [ [ 1, 1, 1, 7, x4 , 12, x3 , 17, x2 , 22, x1 ],
[ 2, 2, 1, 8, x4 , 13, x3 , 18, x2 , 23, x1 ],
[ 3, 3, 1, 9, x4 , 14, x3 , 19, x2 , 24, x1 ],
[ 4, 4, 1, 10, x4 , 15, x3 , 20, x2 , 25, x1 ],
[ 5, 5, 1, 26, 1, 1, 0, 1, 0, 1, 0 ],
[ 6, 2, x5 , 6, 1, 12, x3 , 17, x2 , 22, x1 ],
[ 7, 3, x5 , 7, 1, 13, x3 , 18, x2 , 23, x1 ],
[ 8, 4, x5 , 8, 1, 14, x3 , 19, x2 , 24, x1 ],
[ 9, 5, x5 , 9, 1, 15, x3 , 20, x2 , 25, x1 ],
[10, 10, 1, 26, 1, 1, 0, 1, 0, 1, 0 ],
[11, 2, x5 , 7, x4 , 11, 1, 17, x2 , 22, x1 ],
[12, 3, x5 , 8, x4 , 12, 1, 18, x2 , 23, x1 ],
[13, 4, x5 , 9, x4 , 13, 1, 19, x2 , 24, x1 ],
[14, 5, x5 , 10, x4 , 14, 1, 20, x2 , 25, x1 ],
[15, 15, 1, 26, 1, 1, 0, 1, 0, 1, 0 ],
[16, 2, x5 , 7, x4 , 12, x3 , 16, 1, 22, x1 ],
[17, 3, x5 , 8, x4 , 13, x3 , 17, 1, 23, x1 ],
[18, 4, x5 , 9, x4 , 14, x3 , 18, 1, 24, x1 ],
[19, 5, x5 , 10, x4 , 15, x3 , 19, 1, 25, x1 ],
[20, 20, 1, 26, 1, 1, 0, 1, 0, 1, 0 ],
[21, 2, x5 , 7, x4 , 12, x3 , 17, x2 , 21, 1],
[22, 3, x5 , 8, x4 , 13, x3 , 18, x2 , 22, 1],
[23, 4, x5 , 9, x4 , 14, x3 , 19, x2 , 23, 1],
[24, 5, x5 , 10, x4 , 15, x3 , 20, x2 , 24, 1],
[25, 25, 1, 26, 1, 1, 0, 1, 0, 1, 0 ],
[26, 1, x5 , 6, x4 , 11, x3 , 16, x2 , 21, x1 ] ];
m := makemat(0,26, 26);
fill :=
proc() local k, j;
begin
for k from 1 to 26 do
for j from 1 to 5 do
// print(k,j);
m[k,w[k, 2*j]] =< w[k, 2*j+1]
end_for
end_for
end_proc;
fill();
m;
det(m);