diff options
Diffstat (limited to 'omega/examples/old_test/lefur00.oc-rt')
-rw-r--r-- | omega/examples/old_test/lefur00.oc-rt | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/omega/examples/old_test/lefur00.oc-rt b/omega/examples/old_test/lefur00.oc-rt new file mode 100644 index 0000000..3b3736f --- /dev/null +++ b/omega/examples/old_test/lefur00.oc-rt @@ -0,0 +1,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); + } + } + } +} + +# +# |