|
2simplices:=
[[1,2,5], [2,5,8], [2,3,8], [3,8,9], [1,3,9], [1,4,9],
[4,5,8], [4,6,8], [6,8,9], [6,7,9], [4,7,9], [4,5,7],
[1,4,6], [1,2,6], [2,6,7], [2,3,7], [3,5,7], [1,3,5]];;
K:=SimplicialComplex(2simplices);;
C:=ChainComplex(K);;
Print(BettiNumber(C,1),"\n");
Print(BettiNumber(C,2),"\n");;
D:=TensorWithIntegersModP(C,2);;
Print(BettiNumber(D,1),"\n");;
Print(BettiNumber(D,2),"\n");;
[ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
]
|
