load arabie_rips.dat

prox = arabie_rips;

n=30;

best_vaf = 0.0;

store_vaf = zeros(100,1);

for i = 1:100
    [find,vaf] = ultrafnd(prox,randperm(n));
    store_vaf(i) = vaf;
    if (vaf > best_vaf)
        best_vaf = vaf;
        best_find = find;
    end
    
    
end

store_vaf'

sorted_vafs = sort(store_vaf')

figure(1)
    
    z = linkage(squareform(best_find),'complete')
    
    
    dendrogram(z)
    
