Quelle  2.7.3   Sprache: unbekannt

file:=HapFile("25spheres.txt");;
Read(file);
K:=PureCubicalComplexToCubicalComplex(M);;
Print(Size(K),"\n");
L:=DVFReducedCubicalComplex(K);;
D:=ChainComplex(L);;
Print(List([0..3],D!.dimension),"\n");

[ Dauer der Verarbeitung: 0.5 Sekunden  (vorverarbeitet)  ]