2发生器的订单类- 小组

算法1

定理7.在GAP的算法中。

P.：=◯;; n ..：=◯;;命令：=P. n ;;＃输入p和n的值，g的顺序是p N
G：=AllSmallgroups（大小，订单）;;
D.：=numbersmallgroups（命令）;;
对于[1..d]做;
F：=g [k] ;; m：=尺寸（最小基因簇（f））;; ww：=[] ;;
如果尼泊洛斯族罗斯（F）= 2和M = 2那么;
添加（ww，[1,1]）;
print（k，“）g =”，structifuredescription（f），“\| g \| =”，size（f），“p =”，p，“n =”，n，“n.class
“，NilpotencyClassofGroup（F））;
GG.：=MinimalGeneratingset（F）;;
E.：=身份（f）;;
一种：=GG [1] ;; b：=GG [2] ;;
一世：=日志（命令（a），p）;; j：=日志（命令（b），p）;; w：=最大（i，j）;;
如果i + j = n那么;
M1：=1;M2：=P. N / P. W-1;添加（ww，[p，m1 * p 2-1]）;
如果w> = 2那么;
添加（ww，[p 2，m2 * p 2]）;
fi;
别的;
M1：=P; M2：=P. （n-w）-p;添加（ww，[p，m1 * p 2-1]）;
如果w> = 2那么;
添加（ww，[p 2，m2 * p 2]）;
fi;
fi;
yw.：=P. （n-1）*（p-1）;;
对于[0 ..（w-3）]做;
添加（ww，[p （w-l），yw /（p 1）]）;
od;
打印（”∖不。Gen。=“，m，”，o（a）=“，P. 我，“，o（b）=”，P. j，“，w =”，w，“∖n oc =“，ww，”∖N∖n“）;
fi; od;时间;