|
#(C) Graham Ellis, 2005-2006
#####################################################################
InstallGlobalFunction(PermToMatrixGroup,
function(arg)
local
G, n, gensG, gensA, A, GhomA, M, g, row, i,j;
G:=arg[1];
if Length(arg)=2 then n:=arg[2];
else n:=Maximum(MovedPoints(G));
fi;
gensG:=GeneratorsOfGroup(G);
gensA:=[];
for g in gensG do
M:=[];
for i in [1..n] do
row :=List([1..n],x->0);
row[i^g]:=1;
Append(M,[row]);
od;
Append(gensA,[M]);
od;
A:=Group(gensA);
GhomA:=GroupHomomorphismByImagesNC(G,A,gensG,gensA);
return GhomA;
end);
#####################################################################
[ zur Elbe Produktseite wechseln0.29Quellennavigators
Analyse erneut starten
]
|
