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

length, norm, augmentation

This commit is contained in:
kalmar 2017-05-16 18:45:31 +02:00
parent 1c340ce008
commit fc837ff481
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/GroupAlgebras.jl
View File

@ -179,22 +179,15 @@ end
(*)(X::GroupRingElem, Y::GroupRingElem) = group_star_multiplication(X,Y)
length(X::GroupRingElem) = length(X.coeffs)
norm(X::GroupRingElem, p=2) = norm(X.coeffs, p)
augmentation(X::GroupRingElem) = sum(X.coeffs)
length(X::GroupAlgebraElement) = length(X.coefficients)
function norm(X::GroupAlgebraElement, p=2)
if p == 1
return sum(abs(X.coefficients))
elseif p == Inf
return max(abs(X.coefficients))
else
return norm(X.coefficients, p)
end
end
ɛ(X::GroupAlgebraElement) = sum(X.coefficients)
function rationalize{T<:Integer, S<:Number}(
::Type{T}, X::GroupAlgebraElement{S}; tol=eps(S))