kalmar
/
GroupRings.jl
mirror of https://github.com/kalmarek/GroupRings.jl.git
1
0
Fork 0
Code Issues Releases Wiki Activity

groupring_mult! (inplace)

This commit is contained in:
kalmar 2017-05-17 11:37:48 +02:00
parent 679166114e
commit 2c43984e19
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/GroupRings.jl
View File

@ -215,13 +215,11 @@ end
(+)(X::GroupRingElem, Y::GroupRingElem) = add(X,Y)
(-)(X::GroupRingElem, Y::GroupRingElem) = add(X,-Y)
function algebra_multiplication{T<:Number}(X::AbstractVector{T},
Y::AbstractVector{T}, pm::Array{Int,2})
result = zeros(X)
function groupring_mult!(X,Y,pm,result)
for (j,y) in enumerate(Y)
if y != zero(T)
if y != zero(eltype(Y))
for (i, index) in enumerate(pm[:,j])
if X[i] != zero(T)
if X[i] != zero(eltype(X))
index == 0 && throw(ArgumentError("The product don't seem to belong to the span of basis!"))
result[index] += X[i]*y
end