Read("../CubeTiling.g");
n:=4;
FileName:=Concatenation("ListTilingDim", String(n));
LER:=ReadAsFunction(FileName)();
VE:=SymmetryGroup(n);
OrdStab:=function(Desc)
local U, Stab;
U:=Set(List(Desc, x->Position(VE.VertexSet, x)));
Stab:=Stabilizer(VE.SymmetryGroup, U, OnSets);
return Order(Stab);
end;
#
FileOutput:=Concatenation("ListCT", String(n), ".html");
output:=OutputTextFile(FileOutput, true);;
#
AppendTo(output, "\n");
AppendTo(output, "\n");
AppendTo(output, "\n");
AppendTo(output, "Structure of the ", n, "-dimensional cube tilings\n");
AppendTo(output, " \n");
AppendTo(output, " \n");
AppendTo(output, "\n");
AppendTo(output, "\n");
AppendTo(output, "\n");
AppendTo(output, "Structure of the ", n, "-dimensional cube tilings\n");
AppendTo(output, "\n");
for i in [1..Length(LER)]
do
eCliq:=LER[i];
AppendTo(output, "- ");
AppendTo(output, "Orbit ", i, " has a stabilizer of order ", OrdStab(eCliq), " and second moment ", ComputeMoment(eCliq, 4, 2));
AppendTo(output, "
\n");
od;
AppendTo(output, "
\n");
AppendTo(output, "\n");
AppendTo(output, "\n");
CloseStream(output);