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
45
46
47
48
49
50
51
|
restart
check "NumericalSchubertCalculus"
-- EXAMPLES (see TEST section for more simple examples)
restart
setRandomSeed 0
--debug
needsPackage "NumericalSchubertCalculus";
root = playCheckers({2,1},{2,1},3,6)
time resolveNode(root, {({2},random(FFF^6,FFF^6)), ({1},random(FFF^6,FFF^6))})
peek root
DEBUG'LEVEL = 1 --check that DebugLevel = 1 should do the black box solving only at the leaves
n=7; K'n=FFF^n; -- takes about 10 minutes!
root = playCheckers({2,1,0},{2,1,0},3,n)
time resolveNode(root, {({2,1,0},random(K'n,K'n)),({2,1,0},random(K'n,K'n))})
peek root
printTree root
root = playCheckers({2,1}, {2}, 3,6)
time resolveNode(root, {({2},random(FFF^6,FFF^6)), ({2},random(FFF^6,FFF^6))})
peek root
printTree root
---- there is something wrong, this problem gives an error
root = playCheckers({3,2,2},{2}, 3,6)
peek root
resolveNode(root, {})
restart
setRandomSeed 0
debug needsPackage "LRcheckergame";
-- we test if the resolveNode function
-- can just solve the problem when
-- the Schubert problem consist of two
-- complementary partitions only
root = playCheckers({3,3,1},{2},3,6)
resolveNode(root,{})
peek root
-- this problem should give empty solutions as
-- the two partition are not complementary
root = playCheckers({3,3,1}, {1,1}, 3,6)
resolveNode(root, {({2,1,0},random(FFF^6,FFF^6))})
------------------- WHAT IS THIS STUFF? CAN IT BE DELETED??? ---------------------------
|
