mirror of
https://github.com/kalmarek/PropertyT.jl.git
synced 2024-12-24 02:00:30 +01:00
Delete unused USupport; Move IsSupportedOn to avoid GAP warnings
This commit is contained in:
parent
10cf01b0ac
commit
2ebf3060f8
@ -26,6 +26,17 @@ Products := function(elts, n)
|
||||
fi;
|
||||
end;
|
||||
|
||||
IsSupportedOn := function(basis, elt)
|
||||
local elt_supp, x;
|
||||
elt_supp := Support(elt);
|
||||
for x in elt_supp do
|
||||
if not x in basis then
|
||||
return false;
|
||||
fi;
|
||||
od;
|
||||
return true;
|
||||
end;
|
||||
|
||||
Laplacian := function(G, generating_set)
|
||||
local QG, emb, result, S, g, elt;
|
||||
QG := GroupRing(Rationals, G);;
|
||||
@ -73,21 +84,6 @@ Constraints := function(basis)
|
||||
return result;
|
||||
end;
|
||||
|
||||
USupport := function(x)
|
||||
return Unique(Support(x));
|
||||
end;
|
||||
|
||||
IsSupportedOn := function(basis, elt)
|
||||
local elt_supp, x;
|
||||
elt_supp := USupport(elt);
|
||||
for x in elt_supp do
|
||||
if not x in basis then
|
||||
return x;
|
||||
fi;
|
||||
od;
|
||||
return true;
|
||||
end;
|
||||
|
||||
SDPGenerateAll := function(G, S, basis, name)
|
||||
local QG, emb, delta, delta_sq, delta_vec, delta_sq_vec, product_constr;
|
||||
QG := GroupRing(Rationals, G);;
|
||||
|
Loading…
Reference in New Issue
Block a user