Quelle  9.4.txt

gap> A:=AbelianPcpGroup([0]);; #infinite cyclic group                    
gap> K:=EilenbergMacLaneSimplicialFreeAbelianGroup(A,4,11);
Simplicial free abelian group of length 11

gap> for n in [0..13] do
> Print("Degree ",n," integral homology of K is ",Homology(K,n),"\n");
> od;
Degree 0 integral homology of K is [ 0 ]
Degree 1 integral homology of K is [  ]
Degree 2 integral homology of K is [  ]
Degree 3 integral homology of K is [  ]
Degree 4 integral homology of K is [ 0 ]
Degree 5 integral homology of K is [  ]
Degree 6 integral homology of K is [ 2 ]
Degree 7 integral homology of K is [  ]
Degree 8 integral homology of K is [ 3, 0 ]
Degree 9 integral homology of K is [  ]
Degree 10 integral homology of K is [ 2, 2 ]
Degree 11 integral homology of K is [  ]
Degree 12 integral homology of K is [ 5, 12, 0 ]
Degree 13 integral homology of K is [ 2 ]