www.pudn.com > MILCAwindows.zip > MIClustering.m

function MIClustering(x,kneig,algo)

% hierarchical clustering using the grouping property of mutual information
% output: dendrogram 
% x....input data mxn   m...channelnummer  n...sampling points  m<N
    x=x';
    [Nd,N]=size(x);
end

zwsp=x';
save zwspMIC.txt zwsp -ASCII

% execute C Programm
[a b]=unix(['MIClustering.exe zwspMIC.txt ',num2str(Nd),' ',num2str(N),' ',num2str(kneig),' ',num2str(algo)]);
%[a b]=system(['MIClustering.exe zwspMIC.txt ',num2str(Nd),' ',num2str(N),' ',num2str(kneig),' ',num2str(algo)]);
clutr=str2num(b);

% Plot Output
figure;
dendrogram(clutr(:,[1,2,5]));
ylabel('mutual information');
title('Hierarchical clustering using the grouping property of mutual information');