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
|
# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
# R := { [i, j, k, l] :
# 0 <= i <= 19 &&
# 0 <= j <= 19 &&
# 1 <= k <= 1000 &&
# -k + l >= 0 &&
# 2 k - l + 1 >= 0 &&
# -200 i + k + l >= 0 &&
# 200 i - k - l + 199 >= 0 &&
# -200 j - k + 2 l >= 0 &&
# 200 j + k -2 l + 199 >= 0
# } ;
#
#
#
# codegen R;
for(t1 = 0; t1 <= 15; t1++) {
for(t2 = max(2*t1-15,intDiv(t1-1+1,2)); t2 <= min(t1+1,15); t2++) {
for(t3 = max(intDiv(200*t1-1+2,3),intDiv(200*t2-2+2,3),intDiv(-200*t2+400*t1-199+2,3),1); t3 <= min(100*t1+99,intDiv(-200*t2+400*t1+398,3),1000); t3++) {
for(t4 = max(t3,200*t1-t3,intDiv(200*t2+t3+1,2)); t4 <= min(2*t3+1,intDiv(200*t2+t3+199,2),200*t1-t3+199); t4++) {
s1(t1,t2,t3,t4);
}
}
}
}
#
#
|
