www.gusucode.com > GAVPai_Book_MathworksCntrlFileEx_May2019 > GAVPai_Book_MathworksCntrlFileEx_May2019/compute_Pmeasure.m

    
% compute Population measure (Vitaliy Feoktistov, 2006)

function  p_m= compute_Pmeasure(popln)
[~, components]= size(popln);
centre_popln = mean(popln);
popln_augmented = [centre_popln; popln];
pdist_fn = pdist(popln_augmented, 'euclidean');
pdist_fn_squareform = squareform(pdist_fn);
p_m = max(pdist_fn_squareform(1, 2:components));
end