|
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.7 Sekunden
(vorverarbeitet)
]
|
