assignlattice = name

Specifying assignlattice = x causes Maple to assign the subgroup lattice of G to the name x. If x already has an assigned value, it will typically be necessary to use quotes to prevent evaluation of x: one can do so by specifying assignelements = 'x'.

vertexcolor = color and edgecolor = color

These two options control the color for subgroups not specified by any of the following options, and the color with which the edges are colored, respectively. The default is white for the vertex color and gray for the edge color. The colors need to be specified in a way that is recognized by ColorTools[Color]. Maple also accepts the alternative spellings vertexcolour and edgecolour.

highlight = subgroup, or list of subgroups, or list of equations

The highlight option can be used to visually highlight one or a few subgroups by drawing the vertices that correspond to them in a particular color. The highlight option can be specified in multiple ways; in the following explanation, H1, H2, H3, H4 are subgroups of G and color1, color2 are colors recognized by ColorTools[Color]:

it can be a single subgroup H1,

it can be an equation H1 = color1,

it can be an equation [H1, H2, H3] = color1,

it can be a list of multiple entries of the previous three forms, such as [H1, [H2, H3] = color1, H4 = color2]

In all these cases, each subgroup Hi can be replaced by a subgroup series object consisting of subgroups of G (such as a LowerCentralSeries object).

Subgroups can be specified as group data structures for which the parent group is G, or as sets of generators.

Subgroups specified in the highlight option with an associated color will have the corresponding vertices highlighted in that color. Any subgroup that is specified in the highlight option, but has no associated color (such as H1 in the last example), will be highlighted in red. Subgroups not mentioned in the highlight option will be colored according to the vertexcolor option.

Colors of vertices can also be specified by the normal, center, or derived options described below. If multiple options specify the color for a single subgroup, then the priorities are as follows: highlight overrules center, center overrules derived, and derived overrules vertexcolor.

If you wish to supply an equation as the value of the option, then be aware that highlight = H1 = color1 will not be parsed correctly; the easiest way around that is to parenthesize the equation, as highlight = (H1 = color1).

center or center = color or center = true or center = false

Specifying this option is the same as including Center(G) = "LightBlue" or Center(G) = color in the highlight option. Specifying center = false colors the center in the same way as other subgroups. The default is center = true, if the group supports the Center operation.

normal or normal = color or normal = true or normal = false

Specifying this option is the same as including H = "LightGreen" or H = color in the highlight option, for every normal subgroup H of G. (Normal subgroups can be recognized visually as being the only ones in their conjugacy class.) Specifying normal = false colors the normal subgroups in the same way as other subgroups. The default is normal = true.

derived or derived = color or derived = true or derived = false

Specifying this option is the same as including H = "red" or H = color in the highlight option, for every group H in the derived series of G.  Specifying derived = false colors these subgroups in the same way as other subgroups. The default is derived = false.

indices or indices = true or indices = false

If the option indices = true or indices is specified, then every edge in the subgroup lattice graph, corresponding, say, to an inclusion of a subgroup H1 into a subgroup H2, is labeled with the index of H1 in H2. If indices = false is specified (the default) there are no labels on edges.

directed = true or false

If the option directed = true or directed is specified, then every edge in the subgroup lattice graph is directed from the smaller to the larger subgroup. If directed = false is specified (the default) then this is not the case.

labels = integers or labels = zuppos or labels = none or labels = ids

By default, each vertex is labeled with a single integer: the position of the corresponding subgroup in the list of subgroups obtained by calling convert(sgl, list) (see the SubgroupLattice help page for details). This behavior is explicitly specified by including the option labels = integers.

If you specify the option labels = none, the vertices will not be labeled. This option has no effect when combined with the output = graph option.

Alternatively, each vertex can be labeled with multiple integers. These integers correspond to the zuppos generating the corresponding subgroup H (the zuppos are ordered in a certain way and the integers correspond to the positions of the zuppos that generate H in the list of all zuppos). This allows for easy visual verification of the inclusion relations. This behavior is specified by including the option labels = zuppos. For more details about zuppos, see the SubgroupLattice help page.

The last alternative is that each vertex is labeled with its subgroup identity as determined by IdentifySmallGroup, with the size and number of the group separated by a slash ($\mathrm{`/`}$). For example, the cyclic group with six elements is the second group of that order; it would get label $\mathrm{6/2}$. This is obtained by using the option labels = ids.

output = graph or output = plot

By default, this command returns a graphical representation of the subgroup lattice: a plot data structure for the corresponding graph. This behavior is explicitly specified by including the option output = plot.

Alternatively, if the option output = graph is specified, then this command returns the corresponding graph data structure itself, generated using the GraphTheory package. Its structure can then be examined or the display fine-tuned. In order to display the resulting graph, call the GraphTheory[DrawGraph] command.

title = expr

The given expression is typeset as the title above the subgroup lattice. This option is ignored if output = graph is specified.

titlefont = list

The title is printed with this font.  The font is specified as explained in plot/options.  This option is ignored if output = graph is specified.

The command DrawSubgroupLattice accepts a finite group G, calls the SubgroupLattice command in order to compute the subgroup lattice of G, and returns a plot of that subgroup lattice. Alternatively, you can pass it a subgroup lattice data structure you had computed before.

The subgroup lattice is displayed as a graph with a vertex for each subgroup of G and an edge between two subgroups H1 and H2 if H1 is a subgroup of H2 and there are no subgroups in between.  The vertices are drawn in horizontal layers corresponding to the layer structure described on the SubgroupLattice help page. Furthermore, in each layer, conjugacy classes of subgroups have their vertices spaced closer together than subgroups that are not conjugate.

$\mathrm{with}\left(\mathrm{GroupTheory}\right)\:$

$\mathrm{g1}≔\mathrm{SmallGroup}\left(48\,8\right)$

$\mathrm{g1}≔⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g1}\right)$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g1}\,'\mathrm{highlight}'=\mathrm{map}\left(\mathrm{`\{\}`}\,\mathrm{Generators}\left(\mathrm{g1}\right)\right)\right)$

$\mathrm{lcs}≔\mathrm{LowerCentralSeries}\left(\mathrm{g1}\right)$

$\mathrm{lcs}≔⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩▹\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\right]▹\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\right]\right]▹\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,\left[⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\,⟨\left(1\,2\,8\,3\right)\left(4\,12\,22\,18\right)\left(5\,11\,21\,17\right)\left(6\,14\,7\,13\right)\left(9\,16\,31\,20\right)\left(10\,15\,32\,19\right)\left(23\,36\,47\,44\right)\left(24\,35\,48\,43\right)\left(25\,34\,45\,42\right)\left(26\,33\,46\,41\right)\left(27\,40\,29\,38\right)\left(28\,39\,30\,37\right)\,\left(1\,4\,7\,21\,8\,22\,6\,5\right)\left(2\,11\,14\,18\,3\,17\,13\,12\right)\left(9\,23\,29\,45\,31\,47\,27\,25\right)\left(10\,24\,30\,46\,32\,48\,28\,26\right)\left(15\,33\,39\,43\,19\,41\,37\,35\right)\left(16\,34\,40\,44\,20\,42\,38\,36\right)\,\left(1\,6\,8\,7\right)\left(2\,13\,3\,14\right)\left(4\,5\,22\,21\right)\left(9\,27\,31\,29\right)\left(10\,28\,32\,30\right)\left(11\,12\,17\,18\right)\left(15\,37\,19\,39\right)\left(16\,38\,20\,40\right)\left(23\,25\,47\,45\right)\left(24\,26\,48\,46\right)\left(33\,35\,41\,43\right)\left(34\,36\,42\,44\right)\,\left(1\,8\right)\left(2\,3\right)\left(4\,22\right)\left(5\,21\right)\left(6\,7\right)\left(9\,31\right)\left(10\,32\right)\left(11\,17\right)\left(12\,18\right)\left(13\,14\right)\left(15\,19\right)\left(16\,20\right)\left(23\,47\right)\left(24\,48\right)\left(25\,45\right)\left(26\,46\right)\left(27\,29\right)\left(28\,30\right)\left(33\,41\right)\left(34\,42\right)\left(35\,43\right)\left(36\,44\right)\left(37\,39\right)\left(38\,40\right)\,\left(1\,9\,10\right)\left(2\,15\,16\right)\left(3\,19\,20\right)\left(4\,23\,24\right)\left(5\,25\,26\right)\left(6\,27\,28\right)\left(7\,29\,30\right)\left(8\,31\,32\right)\left(11\,33\,34\right)\left(12\,35\,36\right)\left(13\,37\,38\right)\left(14\,39\,40\right)\left(17\,41\,42\right)\left(18\,43\,44\right)\left(21\,45\,46\right)\left(22\,47\,48\right)⟩\right]\right]\right]$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g1}\,'\mathrm{highlight}'=\left[\mathrm{seq}\left(i\,i=\mathrm{lcs}\right)\right]\right)$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g1}\,'\mathrm{highlight}'=\mathrm{lcs}\right)$

$\mathrm{g2}≔\mathrm{Group}\left(\mathrm{CayleyTable}\left(\mathrm{SmallGroup}\left(24\,1\right)\right)\right)$

$\mathrm{g2}≔\mathrm{<\; a\; Cayley\; table\; group\; with\; 24\; elements\; >}$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g2}\right)$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g2}\&comma;'\mathrm{derived}'\&comma;'\mathrm{center}=\mathrm{false}'\&comma;'\mathrm{normal}=\mathrm{false}'\&comma;'\mathrm{assignlattice}=l'\&comma;'\mathrm{title}'=''Derived\; subgroup''\&comma;'\mathrm{titlefont}'=\left[''HELVETICA''\&comma;10\right]\right)$

$l$

$\left[\begin{array}{c}\mathrm{subgroup\; lattice}\\ 8\mathrm{conjugacy\; classes}\\ 10\mathrm{subgroups}\end{array}\right]$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g2}\&comma;'\mathrm{labels}=\mathrm{zuppos}'\&comma;'\mathrm{indices}'\right)$

$\mathrm{DrawSubgroupLattice}\left(\mathrm{g2}\&comma;'\mathrm{labels}=\mathrm{ids}'\right)$

$\mathrm{g3}≔\mathrm{SmallGroup}\left(60\&comma;9\right)$

$\mathrm{g3}≔⟨\left(1\&comma;2\&comma;3\right)\left(4\&comma;8\&comma;12\right)\left(5\&comma;9\&comma;13\right)\left(6\&comma;11\&comma;22\right)\left(7\&comma;24\&comma;14\right)\left(10\&comma;15\&comma;23\right)\left(16\&comma;25\&comma;31\right)\left(17\&comma;27\&comma;39\right)\left(18\&comma;41\&comma;32\right)\left(19\&comma;28\&comma;34\right)\left(20\&comma;30\&comma;44\right)\left(21\&comma;46\&comma;35\right)\left(26\&comma;33\&comma;40\right)\left(29\&comma;36\&comma;45\right)\left(37\&comma;48\&comma;55\right)\left(38\&comma;57\&comma;51\right)\left(42\&comma;50\&comma;58\right)\left(43\&comma;60\&comma;53\right)\left(47\&comma;52\&comma;56\right)\left(49\&comma;54\&comma;59\right)\&comma;\left(1\&comma;4\&comma;16\&comma;19\&comma;5\right)\left(2\&comma;8\&comma;25\&comma;28\&comma;9\right)\left(3\&comma;12\&comma;31\&comma;34\&comma;13\right)\left(6\&comma;17\&comma;37\&comma;42\&comma;20\right)\left(7\&comma;18\&comma;38\&comma;43\&comma;21\right)\left(10\&comma;26\&comma;47\&comma;49\&comma;29\right)\left(11\&comma;27\&comma;48\&comma;50\&comma;30\right)\left(14\&comma;32\&comma;51\&comma;53\&comma;35\right)\left(15\&comma;33\&comma;52\&comma;54\&comma;36\right)\left(22\&comma;39\&comma;55\&comma;58\&comma;44\right)\left(23\&comma;40\&comma;56\&comma;59\&comma;45\right)\left(24\&comma;41\&comma;57\&comma;60\&comma;46\right)\&comma;\left(1\&comma;6\right)\left(2\&comma;10\right)\left(3\&comma;14\right)\left(4\&comma;17\right)\left(5\&comma;20\right)\left(7\&comma;23\right)\left(8\&comma;26\right)\left(9\&comma;29\right)\left(11\&comma;24\right)\left(12\&comma;32\right)\left(13\&comma;35\right)\left(15\&comma;22\right)\left(16\&comma;37\right)\left(18\&comma;40\right)\left(19\&comma;42\right)\left(21\&comma;45\right)\left(25\&comma;47\right)\left(27\&comma;41\right)\left(28\&comma;49\right)\left(30\&comma;46\right)\left(31\&comma;51\right)\left(33\&comma;39\right)\left(34\&comma;53\right)\left(36\&comma;44\right)\left(38\&comma;56\right)\left(43\&comma;59\right)\left(48\&comma;57\right)\left(50\&comma;60\right)\left(52\&comma;55\right)\left(54\&comma;58\right)\&comma;\left(1\&comma;7\right)\left(2\&comma;11\right)\left(3\&comma;15\right)\left(4\&comma;18\right)\left(5\&comma;21\right)\left(6\&comma;23\right)\left(8\&comma;27\right)\left(9\&comma;30\right)\left(10\&comma;24\right)\left(12\&comma;33\right)\left(13\&comma;36\right)\left(14\&comma;22\right)\left(16\&comma;38\right)\left(17\&comma;40\right)\left(19\&comma;43\right)\left(20\&comma;45\right)\left(25\&comma;48\right)\left(26\&comma;41\right)\left(28\&comma;50\right)\left(29\&comma;46\right)\left(31\&comma;52\right)\left(32\&comma;39\right)\left(34\&comma;54\right)\left(35\&comma;44\right)\left(37\&comma;56\right)\left(42\&comma;59\right)\left(47\&comma;57\right)\left(49\&comma;60\right)\left(51\&comma;55\right)\left(53\&comma;58\right)⟩$