diff options
author | dhuth <derickhuth@gmail.com> | 2014-10-06 11:56:47 -0600 |
---|---|---|
committer | dhuth <derickhuth@gmail.com> | 2014-10-06 11:56:47 -0600 |
commit | e4b20015a4ee35f1279af4caa983478fa2ff0d4a (patch) | |
tree | f47cbff8b2bba458b54a739e91a87b303f7665f1 /omega/examples/basics | |
parent | 600fa18324c21a162c50c40ae5f00c899a41dd24 (diff) | |
download | chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.tar.gz chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.tar.bz2 chill-e4b20015a4ee35f1279af4caa983478fa2ff0d4a.zip |
Added omega to source
Diffstat (limited to 'omega/examples/basics')
-rw-r--r-- | omega/examples/basics | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/omega/examples/basics b/omega/examples/basics new file mode 100644 index 0000000..9f0728d --- /dev/null +++ b/omega/examples/basics @@ -0,0 +1,30 @@ +# +# Some examples from the documentation for the Omega Calculator +# This is the input for figures 2 and 3. +# + +R := { [i] -> [i'] : 1 <= i,i' <= 10 && i' = i+1 }; +R; +inverse R; +domain R; +range R; +R compose R; +R+; # closure of R = R union (R compose R) union (R compose R ... +complement R; +S := {[i] : 5 <= i <= 25}; +S; +R(S); # apply R to S +R \ S; # restrict domain of R to S +R / S; # restrict range of R to S +(R\S) union (R/S); +(R\S) intersection (R/S); +(R/S) - (R\S); +S*S; # cross product +D := S - {[9:16:2]} - {[17:19]}; +D; +T := { [i] : 1 <= i <= 11 & exists (a : i = 2a) }; +T; +Hull T; +Hull D; +codegen D; +codegen {[i,j] : 1 <= i+j,j <= 10}; |