Quelle  2.4.7   Sprache: unbekannt

#This example takes quite some time and memory!
#The example uses GraphViz software.
file:=HapFile("data247.txt");
Read(file);
F:=ThickeningFiltration(T,20);
P1:=PersistentBettiNumbersAlt(F,1);;
BarCodeCompactDisplay(P1);
P2:=PersistentBettiNumbersAlt(F,2);;
BarCodeCompactDisplay(P2);
Y:=FiltrationTerm(F,12);
Print(Bettinumbers(Y,0),"\n");
Print(Bettinumbers(Y,1),"\n");
Print(Bettinumbers(Y,2),"\n");
W:=ContractedComplex(Y);;
G:=FundamentalGroup(W);
Print(G,"\n");
Print(RelatorsOfFpGroup(G),"\n");

[ Dauer der Verarbeitung: 0.21 Sekunden  (vorverarbeitet)  ]