A modified "elements" of group Package:<a href='http://www.mapleprimes.com/files/1512_elements.txt'>elems</a>
This proc "elems" can not only generate the elements of a permutation group but also show you every element's factors.

for example:

> with(group):
> pg:=elems({5,x=[[2,3,1]],y=[[2,3]],z=[[2,4]]}):
> pg[[[2,3,4]]];
> mulperms([[2,3]],[[2,4]]);
> pg[[[1,4],[2,3]]];
> foldl(mulperms, [[2,3]], [[2,4]], [[2,3]], [[2,3,1]], [[2,4]]);

                                 "yz"
                             [[2, 3, 4]]
                               "yzyxz"
                           [[1, 4], [2, 3]]


Please Wait...