%?x和y必須長度相同
%?r=∑XY/sqrt（∑X.^2*∑Y.^2）
function?[r]=corr_fficent（xy）
XY=0;X=0;Y=0;
for?i=1:length（x）
????XY=XY+x（i）.*y（i）;??????????%∑XY
????X=X+x（i）.^2;???????????????%∑X.^2
????Y=Y+y（i）.^2;???????????????%∑Y.^2
end
r=XY/sqrt（X*Y）;
end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2015-12-29?20:48??kl&corrfficent\
?????文件?????????259??2015-12-29?20:39??kl&corrfficent\corr_fficent.m
?????文件?????????352??2015-12-29?20:47??kl&corrfficent\kl.m