1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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 ]
|
