summaryrefslogtreecommitdiff
path: root/omegalib/examples/old_test/olda.oc-rt
diff options
context:
space:
mode:
Diffstat (limited to 'omegalib/examples/old_test/olda.oc-rt')
-rw-r--r--omegalib/examples/old_test/olda.oc-rt52
1 files changed, 0 insertions, 52 deletions
diff --git a/omegalib/examples/old_test/olda.oc-rt b/omegalib/examples/old_test/olda.oc-rt
deleted file mode 100644
index 52e3406..0000000
--- a/omegalib/examples/old_test/olda.oc-rt
+++ /dev/null
@@ -1,52 +0,0 @@
->>> T10:={[mp,mq,mi] -> [mi,mq,mp,0]};
->>> T20:={[mp,mq,mi] -> [mi,mp,mq,1]};
->>>
->>> Symbolic np,morb;
->>> IS10 := {[mp,mq,mi]: 1 <= mp <= np && 1 <= mq <= mp && 1 <= mi <= morb};
->>> IS20 := IS10;
->>>
->>> codegen T10:IS10,T20:IS20;
-if (np >= 1) {
- for(t1 = 1; t1 <= morb; t1++) {
- for(t2 = 1; t2 <= np; t2++) {
- for(t3 = 1; t3 <= t2-1; t3++) {
- s2(t2,t3,t1);
- }
- s1(t2,t2,t1);
- s2(t2,t2,t1);
- for(t3 = t2+1; t3 <= np; t3++) {
- s1(t3,t2,t1);
- }
- }
- }
-}
-
->>> codegen 2 T10:IS10,T20:IS20;
-if (np >= 1) {
- for(t1 = 1; t1 <= morb; t1++) {
- s1(1,1,t1);
- s2(1,1,t1);
- for(t3 = 2; t3 <= np; t3++) {
- s1(t3,1,t1);
- }
- for(t2 = 2; t2 <= np-1; t2++) {
- for(t3 = 1; t3 <= t2-1; t3++) {
- s2(t2,t3,t1);
- }
- s1(t2,t2,t1);
- s2(t2,t2,t1);
- for(t3 = t2+1; t3 <= np; t3++) {
- s1(t3,t2,t1);
- }
- }
- for(t3 = 1; t3 <= np-1; t3++) {
- s2(np,t3,t1);
- }
- if (np >= 2) {
- s1(np,np,t1);
- s2(np,np,t1);
- }
- }
-}
-
-