Back to Gallery
  • Remix
  • Share
  • New Entry

  • Lucy

  • /

  • Complete linkage clustering

on 9 Nov 2023
  • 7
  • 40
  • 0
  • 4
  • 401
drawframe(1);
Write your drawframe function below
function drawframe(f)
rng(2023)
warning off
M = 48-f+1; % current number of clusters
d = rand(48,2); % dataset
cla
hold on, grid on
scatter(d(:,1),d(:,2),16,'k','filled')
z = linkage(d,'complete');
col = 'b-';
if f > 40
M = 3;
col = 'r-';
end
LA = cluster(z,'maxclust',M);
for j = M:-1:1
dd = d(LA == j,:); % points in cluster j
if size(dd,1) > 1 % plot segments for all pairs of points in j
NN = size(dd,1);
pairs = nchoosek(1:NN,2);
plot([dd(pairs(:,1),1),dd(pairs(:,2),1)]',...
[dd(pairs(:,1),2),dd(pairs(:,2),2)]',col);
end
end
title([num2str(M) ' clusters'])
end
Animation
Remix Tree