2019-I Algebra Abstracta

Información

Álgebra abstracta No 3478. Martes y Jueves de 4:pm a 6:pm en el 51-441.

Sage

Sage

Program: Sage

g := DihedralGroup(8);

List(g);

GeneratorsOfGroup(g);

z := Center(g);

Size(g);

Size(z);

Finding Sylow subgroups

g := DihedralGroup(IsPermGroup, 12);;

lista := AllSubgroups(g);;

Print("\n El Grupo ", StructureDescription(g), " tiene ", Size(lista), " subgrupos.");

Print("\n Los tamaños de los subgrupos son: ", List( [1..Size(lista)] , i->Size(lista[i]) ));

tamanos:= List( [1..Size(lista)] , i->Size(lista[i]) );

tam := 4;; # Tamaño del p-subgrupo de Sylow

Print("\n Los subgrupos de Sylow están en: ", Positions(tamanos, 4));

Print("\n np es ", Size(Positions(tamanos, 4)));