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