Quelle  1.4.3   Sprache: unbekannt

D:=[[1,3,5],[1,5,6],[1,3,6],[2,3,5],[3,6,7],
 [2,3,7],[2,4,5],[4,5,6],[4,6,8],[6,7,8],[1,2,7],
 [1,7,8],[1,2,8],[2,3,8],[3,4,8],[1,3,4],[1,2,4]];;
Y:=Concatenation(D,[[1,3,5,6]]);;
Y:=RegularCWComplex(SimplicialComplex(Y));
Print(CriticalCells(Y),"\n");

[ Dauer der Verarbeitung: 0.20 Sekunden  (vorverarbeitet)  ]