<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 =&gt; $K{$k}\n"; }

printf "\nExtension :\n";

%C=BioGraph::Clustering::ZD_extension(1, \%De, \%K, %G);
foreach $k (sort keys %C)
	{ print "$k =&gt; $C{$k}\n"; }
</pre></body></html>