Quelle  1.3.1   Sprache: unbekannt

#This example uses GraphViz software
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);;
Print(Classify([1..5],p[2]),"\n");
DisplayDendrogramMat(A,10,2);

[ Dauer der Verarbeitung: 0.19 Sekunden  (vorverarbeitet)  ]