kalmar/Groups.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/Groups.jl.git synced 2024-08-08 15:58:53 +02:00
Code Issues Releases Wiki Activity

multiple dispatch style solutions for * and inv for rings

Browse Source
This commit is contained in:
kalmar 2017-07-21 13:30:35 +02:00
parent ca23485b5e
commit 83f9ed61b8
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/DirectProducts.jl
View File

@ -161,23 +161,25 @@ end
# #
############################################################################### ###############################################################################
function direct_mult(g::DirectProductGroupElem, h::DirectProductGroupElem)
G = parent(g)
# G == parent(h) || throw("Can't multiply elements from different groups: $G, $parent(h)")
if isa(first(G.factors), Ring)
return G(.+(g.elts,h.elts))
else
return G(.*(g.elts,h.elts))
end
end
doc""" doc"""
*(g::DirectProductGroupElem, h::DirectProductGroupElem) *(g::DirectProductGroupElem, h::DirectProductGroupElem)
> Return the direct-product group operation of elements, i.e. component-wise > Return the direct-product group operation of elements, i.e. component-wise
> operation as defined by `operations` field of the parent object. > operation as defined by `operations` field of the parent object.
""" """
(*)(g::DirectProductGroupElem, h::DirectProductGroupElem) = direct_mult(g,h) # TODO: dirty hack around `+/*` operations
function *{T<:GroupElem}(g::DirectProductGroupElem{T}, h::DirectProductGroupElem{T}, check::Bool=true)
if check
parent(g) == parent(h) || throw("Can not multiply elements of different groups!")
end
return DirectProductGroupElem([a*b for (a,b) in zip(g.elts,h.elts)])
end
function *{T<:RingElem}(g::DirectProductGroupElem{T}, h::DirectProductGroupElem{T}, check::Bool=true)
if check
parent(g) == parent(h) || throw("Can not multiply elements of different groups!")
end
return DirectProductGroupElem([a+b for (a,b) in zip(g.elts,h.elts)])
end
############################################################################### ###############################################################################
# #
@ -188,16 +190,14 @@ doc"""
doc""" doc"""
inv(g::DirectProductGroupElem) inv(g::DirectProductGroupElem)
> Return the inverse of the given element in the direct product group. > Return the inverse of the given element in the direct product group.
""" """
# TODO: dirty hack around `+` operation # TODO: dirty hack around `+/*` operation
function inv(g::DirectProductGroupElem) function inv{T<:GroupElem}(g::DirectProductGroupElem{T})
G = parent(g) return DirectProductGroupElem([inv(a) for a in g.elts])
if isa(first(G.factors), Ring) end
return DirectProductGroupElem([-a for a in g.elts])
else function inv{T<:RingElem}(g::DirectProductGroupElem{T})
return DirectProductGroupElem([inv(a) for a in g.elts]) return DirectProductGroupElem([-a for a in g.elts])
end
end end
############################################################################### ###############################################################################