diff options
Diffstat (limited to 'omegalib/examples/old_test/wrap1.oc-rt')
| -rw-r--r-- | omegalib/examples/old_test/wrap1.oc-rt | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/omegalib/examples/old_test/wrap1.oc-rt b/omegalib/examples/old_test/wrap1.oc-rt new file mode 100644 index 0000000..9e43201 --- /dev/null +++ b/omegalib/examples/old_test/wrap1.oc-rt @@ -0,0 +1,25 @@ +# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000): +# symbolic n; +# +# I := {[i,j,k] : 1 <= i,j,k <= n}; +# +# R1 := {[i,j,n] -> [i,j+1,1] : 1 <= i,j,j+1 <= n} +# union {[i,j,k] -> [i,j,k'] : 1 <= i,j,k,k' <= n && k' = k+1}; +# +# R2 := {[i,n,n] -> [i+1,1,1] : 1 <= i,i+1 <= n} +# union R1; +# +# R2; + +{[i,n,n] -> [i+1,1,1] : 1 <= i < n} union + {[i,j,k] -> [i,j,k+1] : 1 <= i <= n && 1 <= j <= n && 1 <= k < n} union + {[i,j,n] -> [i,j+1,1] : 1 <= i <= n && 1 <= j < n} + +# +# R2+ within I; + +{[i,j,k] -> [i',j',k'] : 1 <= i < i' <= n && 1 <= j <= n && 1 <= k <= n && 1 <= j' <= n && 1 <= k' <= n} union + {[i,j,k] -> [i,j',k'] : 1 <= j < j' <= n && 1 <= i <= n && 1 <= k <= n && 1 <= k' <= n} union + {[i,j,k] -> [i,j,k'] : 1 <= k < k' <= n && 1 <= i <= n && 1 <= j <= n} + +# |