Quelle  2.4.5   Sprache: unbekannt

#The example uses GraphViz software.
file:=HapFile("data245.txt");;
Read(file);;
A:=NullMat(350,350);;
for x in S do A[x[1]][x[2]]:=1; od;
Y:=PureCubicalComplex(A);;
F:=ThickeningFiltration(Y,100,4);
P:=PersistentBettiNumbers(F,1);;
BarCodeCompactDisplay(P);

[ Dauer der Verarbeitung: 0.14 Sekunden  (vorverarbeitet)  ]