BahnStabilisator := function( G, x ) local erzs, bahn, tran, stab, i, j, g, y, w; erzs := GeneratorsOfGroup(G); bahn := [ x ]; tran := [ One(G) ]; stab := [ ]; i := 1; while i <= Length( bahn ) do y := bahn[i]; for g in erzs do w := y ^ g; if not w in bahn then Add( bahn, w ); Add( tran, tran[i] * g ); else j := Position( bahn, w ); Add( stab, tran[i] * g * tran[j]^-1 ); fi; od; i := i + 1; od; return rec( bahn := bahn, stab := Subgroup( G, stab ), tran := tran ); end;