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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
# symbolic n,m;
#
# I1 := {[1,1:n,1:m,0]};
#
# I2 := {[2,1:n,0,0]};
#
# I3 := {[3,1:m,1,1:n]};
#
# I4 := {[3,1:m,2,1:n]};
#
# I5 := {[4,1:m,0,0]};
#
# codegen I1;
if (m >= 1) {
for(t2 = 1; t2 <= n; t2++) {
for(t3 = 1; t3 <= m; t3++) {
s1(1,t2,t3,0);
}
}
}
#
# codegen I1,I1,I2,I2,I3,I3,I4,I4,I5,I5;
if (m >= 1) {
for(t2 = 1; t2 <= n; t2++) {
for(t3 = 1; t3 <= m; t3++) {
s1(1,t2,t3,0);
s2(1,t2,t3,0);
}
}
}
for(t2 = 1; t2 <= n; t2++) {
s3(2,t2,0,0);
s4(2,t2,0,0);
}
if (n >= 1) {
for(t2 = 1; t2 <= m; t2++) {
for(t4 = 1; t4 <= n; t4++) {
s5(3,t2,1,t4);
s6(3,t2,1,t4);
}
for(t4 = 1; t4 <= n; t4++) {
s7(3,t2,2,t4);
s8(3,t2,2,t4);
}
}
}
for(t2 = 1; t2 <= m; t2++) {
s9(4,t2,0,0);
s10(4,t2,0,0);
}
#
|
