kalmar/PropertyT.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/PropertyT.jl.git synced 2024-12-24 18:10:29 +01:00
Code Issues Releases Wiki Activity

Warn in multiplication of elts of K[G], when discarding a product

Browse Source
This commit is contained in:
kalmar 2016-12-20 17:57:42 +01:00
parent 6cdc9a980b
commit cb15964bfd
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
GroupAlgebras.jl
View File

@ -71,9 +71,15 @@ function group_star_multiplication{T<:Number}(X::GroupAlgebraElement{T},
result = zeros(X.coordinates) result = zeros(X.coordinates)
for (i,x) in enumerate(X.coordinates), (j,y) in enumerate(Y.coordinates) for (i,x) in enumerate(X.coordinates), (j,y) in enumerate(Y.coordinates)
index = X.product_matrix[i,j] if x*y == 0
if index != 0 nothing
result[index]+= x*y else
index = X.product_matrix[i,j]
if index == 0
throw(DomainError("The product don't seem to belong to the span of basis!"))
else
result[index]+= x*y
end
end end
end end
return GroupAlgebraElement(result, X.product_matrix) return GroupAlgebraElement(result, X.product_matrix)