Quelle  1.3.2b   Sprache: unbekannt

#The example uses GraphViz software.
file:=HapFile("image1.3.2.png");
F:=ReadImageAsFilteredPureCubicalComplex(file,10);;
C:=ComplementOfFilteredPureCubicalComplex(F);;
B:=PersistentBettiNumbers(C,1);;
BarCodeCompactDisplay(B);

[ Dauer der Verarbeitung: 0.3 Sekunden  (vorverarbeitet)  ]