Skip to content

Commit

Permalink
Fixed renaming issue (#190)
Browse files Browse the repository at this point in the history
  • Loading branch information
@SoongNoonien
SoongNoonien authored Sep 24, 2024
1 parent 7c5d868 commit fd04473
Show file tree
Hide file tree
Showing 15 changed files with 134 additions and 134 deletions.
2 changes: 1 addition & 1 deletion data/Tables/2A2/PGU3.2.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -148,7 +148,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
ss5=nesum(ss5a, l, 1, q)
tt1=eesubs(tt, [l], [k])
ss6=nesum(tt1, k, 1, q)
ss7=eesubs(tt, [k,l], S.([(q+1)*1//3,2*(q+1)*1//3]))
ss7=eesubs(tt, [k,l], R.([(q+1)*1//3,2*(q+1)*1//3]))
1//6*ss5-1//6*ss6-1//3*ss7
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down
16 changes: 8 additions & 8 deletions data/Tables/2F4/2F4.1.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2507,10 +2507,10 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s11=nesum(tt1, a, 1, 2*q0^2)
tt1=eesubs(tt, [b], [-(2*q0+1)*a])
s12=nesum(tt1, a, 1, 2*q0^2)
s13=eesubs(tt, [a,b], S.([b,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [a,b], S.([-b,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [a,b], S.([b,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [a,b], S.([-b,2*(2*q0^2+1)*1//3]))
s13=eesubs(tt, [a,b], R.([b,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [a,b], R.([-b,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [a,b], R.([b,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [a,b], R.([-b,2*(2*q0^2+1)*1//3]))
1//48*s2-1//48*s3-1//48*s4-1//48*s5-1//48*s6-1//48*s7-1//48*s8-1//48*s9-1//48*s10-1//48*s11-1//48*s12+1//12*s13+1//12*s14+1//12*s15+1//12*s16
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -2707,10 +2707,10 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s11=nesum(tt1, k, 1, 2*q0^2)
tt1=eesubs(tt, [l], [-(2*q0+1)*k])
s12=nesum(tt1, k, 1, 2*q0^2)
s13=eesubs(tt, [k,l], S.([l,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [k,l], S.([-l,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [k,l], S.([l,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [k,l], S.([-l,2*(2*q0^2+1)*1//3]))
s13=eesubs(tt, [k,l], R.([l,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [k,l], R.([-l,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [k,l], R.([l,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [k,l], R.([-l,2*(2*q0^2+1)*1//3]))
1//48*s2-1//48*s3-1//48*s4-1//48*s5-1//48*s6-1//48*s7-1//48*s8-1//48*s9-1//48*s10-1//48*s11-1//48*s12+1//12*s13+1//12*s14+1//12*s15+1//12*s16
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down
16 changes: 8 additions & 8 deletions data/Tables/2F4/2F4.2.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2507,10 +2507,10 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s11=nesum(tt1, a, 1, 2*q0^2)
tt1=eesubs(tt, [b], [-(2*q0+1)*a])
s12=nesum(tt1, a, 1, 2*q0^2)
s13=eesubs(tt, [a,b], S.([b,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [a,b], S.([-b,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [a,b], S.([b,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [a,b], S.([-b,2*(2*q0^2+1)*1//3]))
s13=eesubs(tt, [a,b], R.([b,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [a,b], R.([-b,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [a,b], R.([b,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [a,b], R.([-b,2*(2*q0^2+1)*1//3]))
1//48*s2-1//48*s3-1//48*s4-1//48*s5-1//48*s6-1//48*s7-1//48*s8-1//48*s9-1//48*s10-1//48*s11-1//48*s12+1//12*s13+1//12*s14+1//12*s15+1//12*s16
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -2707,10 +2707,10 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s11=nesum(tt1, k, 1, 2*q0^2)
tt1=eesubs(tt, [l], [-(2*q0+1)*k])
s12=nesum(tt1, k, 1, 2*q0^2)
s13=eesubs(tt, [k,l], S.([l,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [k,l], S.([-l,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [k,l], S.([l,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [k,l], S.([-l,2*(2*q0^2+1)*1//3]))
s13=eesubs(tt, [k,l], R.([l,(2*q0^2+1)*1//3]))
s14=eesubs(tt, [k,l], R.([-l,(2*q0^2+1)*1//3]))
s15=eesubs(tt, [k,l], R.([l,2*(2*q0^2+1)*1//3]))
s16=eesubs(tt, [k,l], R.([-l,2*(2*q0^2+1)*1//3]))
1//48*s2-1//48*s3-1//48*s4-1//48*s5-1//48*s6-1//48*s7-1//48*s8-1//48*s9-1//48*s10-1//48*s11-1//48*s12+1//12*s13+1//12*s14+1//12*s15+1//12*s16
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down
20 changes: 10 additions & 10 deletions data/Tables/3D4/3D4.0.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1032,7 +1032,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, b, 0, q-2)
tt1=eesubs(tt, [b], [0])
s3=nesum(tt1, a, 0, q^3-2)
tt1=eesubs(tt, [a,b], S.([(q-1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q-1)*a,0]))
s4=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a], [0])
s5=nesum(tt1, b, 1, q-2)
Expand Down Expand Up @@ -1093,15 +1093,15 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, b, 0, q^2+q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^2-q)
s2=nesum(s1, b, 0, q^2-q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1111,15 +1111,15 @@ end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^3)
s2=nesum(s1, b, 1, q)
tt1=eesubs(tt, [a,b], S.([(q^2-q+1)*a,2*a]))
tt1=eesubs(tt, [a,b], R.([(q^2-q+1)*a,2*a]))
s3=nesum(tt1, a, 0, q)
tt1=eesubs(tt, [a,b], S.([2*a,a]))
tt1=eesubs(tt, [a,b], R.([2*a,a]))
s4=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [b], [a])
s5=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [a,b], S.([(q+1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q+1)*a,0]))
s6=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([(q^3+1),0]))
tt1=eesubs(tt, [a,b], R.([(q^3+1),0]))
1//12*s2-1//4*s3-1//12*s4-1//12*s5+1//6*s6+1//4*tt1
end
]
Expand Down Expand Up @@ -1186,7 +1186,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q-2)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^3-2)
tt1=eesubs(tt, [k,l], S.([(q-1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q-1)*k,0]))
s4=nesum(tt1, k, 0, q^2+q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q-2)
Expand Down Expand Up @@ -1252,7 +1252,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q^2-q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^2-q)
tt1=eesubs(tt, [k,l], S.([0,0]))
tt1=eesubs(tt, [k,l], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1264,7 +1264,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 1, q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 1, q^3)
tt1=eesubs(tt, [k,l], S.([(q+1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q+1)*k,0]))
s4=nesum(tt1, k, 1, q^2-q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q)
Expand Down
36 changes: 18 additions & 18 deletions data/Tables/3D4/3D4.11.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1310,16 +1310,16 @@ end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^3-2)
s2=nesum(s1, b, 1, q-2)
tt1=eesubs(tt, [a,b], S.([(q^2+q+1)*a,2*a]))
tt1=eesubs(tt, [a,b], R.([(q^2+q+1)*a,2*a]))
s3=nesum(tt1, a, 0, q-2)
tt1=eesubs(tt, [a,b], S.([2*a,a]))
tt1=eesubs(tt, [a,b], R.([2*a,a]))
s4=nesum(tt1, a, 0, q^3-2)
tt1=eesubs(tt, [b], [a])
s5=nesum(tt1, a, 0, q^3-2)
tt1=eesubs(tt, [a,b], S.([(q-1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q-1)*a,0]))
s6=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a,b], S.([(q^3-1)*1//2,0]))
tt2=eesubs(tt, [a,b], S.([(q^3-1),0]))
tt1=eesubs(tt, [a,b], R.([(q^3-1)*1//2,0]))
tt2=eesubs(tt, [a,b], R.([(q^3-1),0]))
1//12*s2-1//4*s3-1//12*s4-1//12*s5+1//6*s6+1//4*tt1+1//4*tt2
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -1383,15 +1383,15 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, b, 0, q^2+q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^2-q)
s2=nesum(s1, b, 0, q^2-q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1401,16 +1401,16 @@ end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^3)
s2=nesum(s1, b, 1, q)
tt1=eesubs(tt, [a,b], S.([(q^2-q+1)*a,2*a]))
tt1=eesubs(tt, [a,b], R.([(q^2-q+1)*a,2*a]))
s3=nesum(tt1, a, 0, q)
tt1=eesubs(tt, [a,b], S.([2*a,a]))
tt1=eesubs(tt, [a,b], R.([2*a,a]))
s4=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [b], [a])
s5=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [a,b], S.([(q+1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q+1)*a,0]))
s6=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([(q^3+1)*1//2,0]))
tt2=eesubs(tt, [a,b], S.([(q^3+1),0]))
tt1=eesubs(tt, [a,b], R.([(q^3+1)*1//2,0]))
tt2=eesubs(tt, [a,b], R.([(q^3+1),0]))
1//12*s2-1//4*s3-1//12*s4-1//12*s5+1//6*s6+1//4*tt1+1//4*tt2
end
]
Expand Down Expand Up @@ -1493,11 +1493,11 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q-2)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^3-2)
tt1=eesubs(tt, [k,l], S.([(q-1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q-1)*k,0]))
s4=nesum(tt1, k, 0, q^2+q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q-2)
tt1=eesubs(tt, [k,l], S.([(q^3-1)*1//2,0]))
tt1=eesubs(tt, [k,l], R.([(q^3-1)*1//2,0]))
1//12*s2-1//4*s3+1//6*s4-1//4*s5+1//4*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -1561,15 +1561,15 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q^2+q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^2+q)
tt1=eesubs(tt, [k,l], S.([0,0]))
tt1=eesubs(tt, [k,l], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, k, 0, q^2-q)
s2=nesum(s1, l, 0, q^2-q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^2-q)
tt1=eesubs(tt, [k,l], S.([0,0]))
tt1=eesubs(tt, [k,l], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1581,11 +1581,11 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 1, q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 1, q^3)
tt1=eesubs(tt, [k,l], S.([(q+1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q+1)*k,0]))
s4=nesum(tt1, k, 1, q^2-q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q)
tt1=eesubs(tt, [k,l], S.([(q^3+1)*1//2,0]))
tt1=eesubs(tt, [k,l], R.([(q^3+1)*1//2,0]))
1//12*s2-1//6*s3+1//6*s4-1//6*s5+1//4*tt1
end
]
Expand Down
36 changes: 18 additions & 18 deletions data/Tables/3D4/3D4.13.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1310,16 +1310,16 @@ end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^3-2)
s2=nesum(s1, b, 1, q-2)
tt1=eesubs(tt, [a,b], S.([(q^2+q+1)*a,2*a]))
tt1=eesubs(tt, [a,b], R.([(q^2+q+1)*a,2*a]))
s3=nesum(tt1, a, 0, q-2)
tt1=eesubs(tt, [a,b], S.([2*a,a]))
tt1=eesubs(tt, [a,b], R.([2*a,a]))
s4=nesum(tt1, a, 0, q^3-2)
tt1=eesubs(tt, [b], [a])
s5=nesum(tt1, a, 0, q^3-2)
tt1=eesubs(tt, [a,b], S.([(q-1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q-1)*a,0]))
s6=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a,b], S.([(q^3-1)*1//2,0]))
tt2=eesubs(tt, [a,b], S.([(q^3-1),0]))
tt1=eesubs(tt, [a,b], R.([(q^3-1)*1//2,0]))
tt2=eesubs(tt, [a,b], R.([(q^3-1),0]))
1//12*s2-1//4*s3-1//12*s4-1//12*s5+1//6*s6+1//4*tt1+1//4*tt2
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -1383,15 +1383,15 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, b, 0, q^2+q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2+q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^2-q)
s2=nesum(s1, b, 0, q^2-q)
tt1=eesubs(tt, [b], [a])
s3=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([0,0]))
tt1=eesubs(tt, [a,b], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1401,16 +1401,16 @@ end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, a, 0, q^3)
s2=nesum(s1, b, 1, q)
tt1=eesubs(tt, [a,b], S.([(q^2-q+1)*a,2*a]))
tt1=eesubs(tt, [a,b], R.([(q^2-q+1)*a,2*a]))
s3=nesum(tt1, a, 0, q)
tt1=eesubs(tt, [a,b], S.([2*a,a]))
tt1=eesubs(tt, [a,b], R.([2*a,a]))
s4=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [b], [a])
s5=nesum(tt1, a, 0, q^3)
tt1=eesubs(tt, [a,b], S.([(q+1)*a,0]))
tt1=eesubs(tt, [a,b], R.([(q+1)*a,0]))
s6=nesum(tt1, a, 0, q^2-q)
tt1=eesubs(tt, [a,b], S.([(q^3+1)*1//2,0]))
tt2=eesubs(tt, [a,b], S.([(q^3+1),0]))
tt1=eesubs(tt, [a,b], R.([(q^3+1)*1//2,0]))
tt2=eesubs(tt, [a,b], R.([(q^3+1),0]))
1//12*s2-1//4*s3-1//12*s4-1//12*s5+1//6*s6+1//4*tt1+1//4*tt2
end
]
Expand Down Expand Up @@ -1493,11 +1493,11 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q-2)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^3-2)
tt1=eesubs(tt, [k,l], S.([(q-1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q-1)*k,0]))
s4=nesum(tt1, k, 0, q^2+q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q-2)
tt1=eesubs(tt, [k,l], S.([(q^3-1)*1//2,0]))
tt1=eesubs(tt, [k,l], R.([(q^3-1)*1//2,0]))
1//12*s2-1//4*s3+1//6*s4-1//4*s5+1//4*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -1561,15 +1561,15 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 0, q^2+q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^2+q)
tt1=eesubs(tt, [k,l], S.([0,0]))
tt1=eesubs(tt, [k,l], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
s1=nesum(tt, k, 0, q^2-q)
s2=nesum(s1, l, 0, q^2-q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 0, q^2-q)
tt1=eesubs(tt, [k,l], S.([0,0]))
tt1=eesubs(tt, [k,l], R.([0,0]))
1//24*s2-1//6*s3+1//8*tt1
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand All @@ -1581,11 +1581,11 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s2=nesum(s1, l, 1, q)
tt1=eesubs(tt, [l], [0])
s3=nesum(tt1, k, 1, q^3)
tt1=eesubs(tt, [k,l], S.([(q+1)*k,0]))
tt1=eesubs(tt, [k,l], R.([(q+1)*k,0]))
s4=nesum(tt1, k, 1, q^2-q)
tt1=eesubs(tt, [k], [0])
s5=nesum(tt1, l, 1, q)
tt1=eesubs(tt, [k,l], S.([(q^3+1)*1//2,0]))
tt1=eesubs(tt, [k,l], R.([(q^3+1)*1//2,0]))
1//12*s2-1//6*s3+1//6*s4-1//6*s5+1//4*tt1
end
]
Expand Down
2 changes: 1 addition & 1 deletion data/Tables/A2/PGL3.1.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -145,7 +145,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
ss5=nesum(ss5a, b, 1, q-2)
tt1=eesubs(tt, [b], [a])
ss6=nesum(tt1, a, 1, q-2)
ss7=eesubs(tt, [a,b], S.([(q-1)*1//3,2*(q-1)*1//3]))
ss7=eesubs(tt, [a,b], R.([(q-1)*1//3,2*(q-1)*1//3]))
1//6*ss5-1//6*ss6-1//3*ss7
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down
6 changes: 3 additions & 3 deletions data/Tables/G2/G2.01.jl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -917,7 +917,7 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s4=nesum(tt1, i, 1, q-2)
tt1=eesubs(tt, [i], [-j])
s5=nesum(tt1, j, 1, q-2)
s7=eesubs(tt, [j,i], S.([i,(q-1)*1//3]))
s7=eesubs(tt, [j,i], R.([i,(q-1)*1//3]))
1//12*s2-1//12*s3-1//6*s4-1//12*s5+1//3*s7
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down Expand Up @@ -1057,8 +1057,8 @@ function (tt::Union{GenericCyclo, GenericCycloFrac})
s4=nesum(tt1, k, 1, q-2)
tt1=eesubs(tt, [k], [-l])
s5=nesum(tt1, l, 1, q-2)
s7=eesubs(tt, [k,l], S.([(q-1)*1//3,2*(q-1)*1//3]))
s8=eesubs(tt, [k,l], S.([2*(q-1)*1//3,(q-1)*1//3]))
s7=eesubs(tt, [k,l], R.([(q-1)*1//3,2*(q-1)*1//3]))
s8=eesubs(tt, [k,l], R.([2*(q-1)*1//3,(q-1)*1//3]))
1//12*s2-1//12*s3-1//6*s4-1//12*s5+1//6*s7+1//6*s8
end,
function (tt::Union{GenericCyclo, GenericCycloFrac})
Expand Down
Loading

0 comments on commit fd04473

Please sign in to comment.