kalmar/GroupsWithPropertyT
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use version of products from PropertyT

Browse Source
This commit is contained in:
kalmar 2017-04-10 21:43:15 +02:00
parent b3bc17cba2
commit 88d2e2549b
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
SL.jl
View File

@ -44,25 +44,8 @@ function SL_generatingset(n::Int, p::Int)
return unique(S), one(G) return unique(S), one(G)
end end
function products{T}(U::AbstractVector{T}, V::AbstractVector{T})
result = Vector{T}()
for u in U
for v in V
push!(result, u*v)
end
end
return unique(result)
end
function ΔandSDPconstraints(Id, S, radius) function ΔandSDPconstraints(Id, S, radius)
sizes = Vector{Int}() B, sizes = PropertyT.generate_balls(Id, S, radius=2*radius)
S = vcat([Id], S)
B = S
push!(sizes,length(B))
for i in 2:2*radius
B = products(S, B);
push!(sizes, length(B))
end
println("Generated balls of sizes $sizes") println("Generated balls of sizes $sizes")
basis = B[1:sizes[radius]] basis = B[1:sizes[radius]]