Quelle  1.3.2a   Sprache: unbekannt

#Be patient! This example takes some time.
#The example uses GraphViz software.
file:=HapFile("image1.3.2.png");
F:=ReadImageAsFilteredPureCubicalComplex(file,10);
P:=PersistentBettiNumbers(F,0);;
BarCodeCompactDisplay(P);

[ Dauer der Verarbeitung: 0.16 Sekunden  (vorverarbeitet)  ]