# 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); } #