############################################################################################# ############################################################################################# #AUSGABE DER DATEN EINER GRUPPE ############################################################################################# ############################################################################################# Print("#################################################\n"); Print("Untergruppe der Modulgruppe \n"); Print("Index: ",Indexgruppe,"\n"); Print("Erzeuger: ",Erzeuger,"\n"); Print("Erzeuger als Matrizen: \n"); for i in [1..Length(Erzeuger)] do Print(Matrixdarstellung(Erzeuger[i])); od; Print("Anzahl Spitzen: ",AnzahlSpitzen,"\n"); Print("Breite der Spitzen: ",Spitzenbreiten,"\n"); #Bestimmung des moeglichen Levels N:=Lcm(Spitzenbreiten); factors:=FactorsInt(N); lang:=Length(factors); ee:=0; mm:=1; for i in [1..lang] do if factors[i]=2 then ee:=ee+1; fi; if factors[i]>2 then mm:=mm*factors[i]; fi; od; Print("Level: ",N," = 2 ^",ee," * ",mm,"\n"); Print("Kongruenzuntergruppe? ",cs,"\n");