glen
/
RAQ
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

rotate element names, helps keep structures separate

This commit is contained in:
Glen Whitney 2017-10-25 02:17:01 +02:00
parent 6db132346d
commit 4d6be4a083
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gap/bytable.gi
View File

@ -39,13 +39,32 @@ end);
## And now create them from multiplication tables
#First a helper function
# First a helper function
MagmaNumber@ := 1;
MagmaLetters@ := "ABCDEFGHJKMNPSTUV";
MagmaBase@ := Length(magmaLetters@);
NextMagmaString@ := function(filts)
local str, n;
str := "l";
if filts <> (filts and IsLeftQuotientElement) then
str := "r";
fi;
n := MagmaNumber@;
MagmaNumber@ := MagmaNumber@ + 1;
while n > 0 do
Add(str, MagmaLetters[RemInt(n, MagmaBase@) + 1]);
n := QuoInt(n, MagmaBase@);
od;
return str;
end;
FiniteMagmaCreator@ := function(tbl, cnstr, filts)
local M;
M := MagmaByMultiplicationTableCreatorNC(
tbl, cnstr, filts and IsMagmaByMultiplicationTableObj);
# Is there such a thing as a non-finite table in GAP? Anyhow...
SetIsFinite(ElementsFamily(FamilyObj(M)), IsFinite(tbl));
SpecifyElmNamePrefix(M, NextMagmaString@(filts));
return M;
end;