Pinned Loading

1. zs-pgrp zs-pgrp Public

   Supplementary files for arXiv:1701.03799

   GAP

2. Blocks of characters Blocks of characters

   1

   ## Usage:

   2

   ##

   3

   #for G in AllCharacterTableNames(IsDuplicateTable, false) do

   4

   	#tbl := CharacterTable(G);

   5

   	#for p in AllPrimeDivisors(tbl) do

3. Radical subgroups and residual subgr... Radical subgroups and residual subgroups

   1

   ArgMax := function(list, func)

   2

   	local max, arg;

   3

   	max := Maximum(List(list, func));

   4

   	for arg in list do

   5

   		if func(arg) = max then

4. Frobenius groups Frobenius groups

   1

   ## a Frobenius compelemnt of G

   2

   FrobeniusComplement := function(G)

   3

   	local K, H;

   4

   	K := FittingSubgroup(G);

   5

   	if Size(K) = 1 or Size(K) = Size(G) then return fail; fi;

5. Partitions of abelian p-groups Partitions of abelian p-groups

   1

   LoadPackage("Hecke", false);

   2

   3

   # Return a finite abelian p-group

   4

   # C_{p^{lambda_1}} x C_{p^{lambda_2}} x ...

   5

   # for a partition lambda = (lambda_1, lambda_2, ...) and a prime p

6. Cayley diagrams Cayley diagrams

   1

   # https://sagecell.sagemath.org

   2

   3

   # Cayley diagram: x -> y if y = xs for a generator s

   4

   def Cay(G, S, directed = True):

   5

       C = DiGraph([G, lambda x, y: x^-1*y in S])