File: 2.4.7

package info (click to toggle)
gap-hap 1.66%2Bds-1
  • links: PTS
  • area: main
  • in suites: trixie
  • size: 55,348 kB
  • sloc: xml: 15,368; sh: 216; javascript: 155; makefile: 126; ansic: 57; perl: 36
file content (17 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#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");