#!/usr/bin/perl -w

use BioGraph::FileAccess;
use BioGraph::Compute;
use BioGraph::Clustering;;

%G=BioGraph::FileAccess::read_graph("../Graphes\ exemples/ex_article.gr", 1, 1);
%D=BioGraph::Compute::distance(1, "Radicchi", %G);
%De=BioGraph::Compute::distance2density(1, \%D, %G);
%K=BioGraph::Clustering::ZD_kernel(1, \%De, %G);
print "Noyaux :\n";
foreach $k (sort keys %K)
	{ print "$k => $K{$k}\n"; }

printf "\nExtension :\n";

%C=BioGraph::Clustering::ZD_extension(1, \%De, \%K, %G);
foreach $k (sort keys %C)
	{ print "$k => $C{$k}\n"; }