Quelle  2.5.3   Sprache: unbekannt

file:=HapFile("data253.txt");
Read(file);
G:=SymmetricMatrixToFilteredGraph(D,30);;
K:=FilteredRegularCWComplex(CliqueComplex(G,2));;
Y:=FiltrationTerm(K,21);; #n=21 found from barcodes
Display(HomotopyGraph(Y));

[ Dauer der Verarbeitung: 0.8 Sekunden  (vorverarbeitet)  ]