www.pudn.com > K_average.rar > CaculateCenter.asv, change:2005-10-11,size:262b

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