LoadPackage("HAP");


A:=[[0,11,10,14,22],
    [11,0,3,13,21],
    [10,3,0,12,20],
    [14,13,12,0,16],
    [22,21,20,16,0]];;
G:=SymmetricMatrixToGraph(A,10);;

p:=PiZero(G);;

Classify([1..5],p[2]);

DisplayDendrogramMat(A,100,1);

D:=DendrogramMat(A,20,1);;
B:=DendrogramToPersistenceMat(D);;
BarCodeDisplay(B);