1
0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-12-25 18:15:29 +01:00

permute π₁Σ generators to maintain coherent order with Aut(F_n)

This commit is contained in:
Marek Kaluba 2021-07-07 10:34:42 +02:00
parent 3629b07626
commit 99fd238cf2
No known key found for this signature in database
GPG Key ID: 8BF1A3855328FC15

View File

@ -155,10 +155,15 @@ function SymplecticMappingClass(
g = sautFn(w) g = sautFn(w)
d = ntuple(i->gens(Σ, i), ngens(Σ)) perm = let g = genus(Σ)
[reverse(1+1:2:2g); reverse(1:2:2g)]
end
img = evaluate!(deepcopy(d), g) d = ntuple(i->gens(Σ, i), ngens(Σ))[perm]
invim = evaluate!(d, inv(g))
img = evaluate!(deepcopy(d), g)[invperm(perm)]
invim = evaluate!(d, inv(g))[invperm(perm)]
img, invim = inverse ? (invim, img) : (img, invim) img, invim = inverse ? (invim, img) : (img, invim)