mirror of
https://github.com/kalmarek/GroupRings.jl.git
synced 2024-09-05 14:46:44 +02:00
star-involution using setindex!
This commit is contained in:
parent
5913206954
commit
b73aebe33a
@ -277,6 +277,25 @@ end
|
||||
|
||||
(*)(X::GroupRingElem, Y::GroupRingElem) = groupring_mult(X,Y)
|
||||
|
||||
###############################################################################
|
||||
#
|
||||
# *-involution
|
||||
#
|
||||
###############################################################################
|
||||
|
||||
function star(X::GroupRingElem)
|
||||
isdefined(X, :parent) || throw("Define parent object for $X first")
|
||||
RG = parent(X)
|
||||
result = RG()
|
||||
for (i,c) in enumerate(X.coeffs)
|
||||
if c != zero(eltype(X.coeffs))
|
||||
g = inv(RG.basis[i])
|
||||
result[g] = c
|
||||
end
|
||||
end
|
||||
return result
|
||||
end
|
||||
|
||||
###############################################################################
|
||||
#
|
||||
# Misc
|
||||
|
Loading…
Reference in New Issue
Block a user