function out = pifcm(center,data,U)
%PIFCM finds the total variation to the size of the data set in
%Fuzzy C-means

%Carson KAO, May 29, 1997
mf = U.^2;		% MF matrix after exponential 2 modification
dist = distfcm(center, data);		% fill the distance matrix
obj_fcn = sum(sum((dist.^2).*mf));	% objective function
out = obj_fcn/size(data,1);
