kalmar/GroupsWithPropertyT
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add external constructors for SAut i SL

Browse Source
This commit is contained in:
kalmarek 2018-09-16 17:53:10 +02:00
parent 8ee8eebd9e
commit b45adc2e00
2 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
groups/autfreegroup.jl
View File

@ -1,9 +1,10 @@
struct SpecialAutomorphismGroup{N} <: SymmetrizedGroup struct SpecialAutomorphismGroup{N} <: SymmetrizedGroup
group::AutGroup group::AutGroup
end
function SpecialAutomorphismGroup(args::Dict) function SpecialAutomorphismGroup(args::Dict)
return new{args["SAut"]}(AutGroup(FreeGroup(N), special=true)) N = args["SAut"]
end return SpecialAutomorphismGroup{N}(AutGroup(FreeGroup(N), special=true))
end end
name(G::SpecialAutomorphismGroup{N}) where N = "SAutF$(N)" name(G::SpecialAutomorphismGroup{N}) where N = "SAutF$(N)"

4
groups/speciallinear.jl
View File

@ -2,6 +2,7 @@ struct SpecialLinearGroup{N} <: SymmetrizedGroup
group::AbstractAlgebra.Group group::AbstractAlgebra.Group
p::Int p::Int
X::Bool X::Bool
end
function SpecialLinearGroup(args::Dict) function SpecialLinearGroup(args::Dict)
N = args["SL"] N = args["SL"]
@ -14,8 +15,7 @@ struct SpecialLinearGroup{N} <: SymmetrizedGroup
R = Nemo.NmodRing(UInt(p)) R = Nemo.NmodRing(UInt(p))
G = MatrixSpace(R, N, N) G = MatrixSpace(R, N, N)
end end
return new{N}(G, p, X) return SpecialLinearGroup{N}(G, p, X)
end
end end
function name(G::SpecialLinearGroup{N}) where N function name(G::SpecialLinearGroup{N}) where N