www.pudn.com > K_average.rar > CaculateCenter.m, change:2005-10-13,size:245b

function NewCenter=CaculateCenter(KindData,KindNum,DataRow) 
TotalKindNum=length(KindNum); 
NewCenter=zeros(DataRow,TotalKindNum); 
for i=1:TotalKindNum 
    Temp=KindData(:,1:KindNum(i),i); 
    NewCenter(:,i)=sum(Temp')'/KindNum(i); 
end