klacorrfficent 求两个时间序列的相关系数

求两个时间序列的相关系数，KL散度。可以比较时间序列之间的相关性

% 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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           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