mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-25 18:15:29 +01:00
add maxrules to SpecialAutomorphismGroup
This commit is contained in:
parent
29b6675a8a
commit
2f5401be83
@ -7,8 +7,10 @@ function SpecialAutomorphismGroup(F::FreeGroup; ordering = KnuthBendix.LenLex, k
|
|||||||
A, rels = gersten_relations(n, commutative = false)
|
A, rels = gersten_relations(n, commutative = false)
|
||||||
S = KnuthBendix.letters(A)[1:2(n^2-n)]
|
S = KnuthBendix.letters(A)[1:2(n^2-n)]
|
||||||
|
|
||||||
|
maxrules = 1000*n
|
||||||
|
|
||||||
rws = KnuthBendix.RewritingSystem(rels, ordering(A))
|
rws = KnuthBendix.RewritingSystem(rels, ordering(A))
|
||||||
KnuthBendix.knuthbendix!(rws; kwargs...)
|
@time KnuthBendix.knuthbendix!(rws; maxrules=maxrules, kwargs...)
|
||||||
return AutomorphismGroup(F, S, rws, ntuple(i -> gens(F, i), n))
|
return AutomorphismGroup(F, S, rws, ntuple(i -> gens(F, i), n))
|
||||||
end
|
end
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user