|
我最近看到一个求关联位数的程序,自己修改部分后得到以下程序,最初的程序不见了
其中的tau 和 m 的值是我自己程序的值,还有后面进行拟合的时候,区间是自己决定的
%function [ln_r,ln_C]=G_P(data,N,tau,m)
% the function is used to calculate correlation dimention with G-P algorithm
% data:the time series
% N: the length of the time series
% tau: the time delay
% m:the embedded dimention m
% GP算法求关联维
data=[
];
h = 0.01; % 积分时间步长
z = data ;
x = z(1:end,1); % 时间序列(列向量)
x = normalize_1(x); % 归一化
data=x'; % 注意:此处应为一个行向量
%------------------------------------------------------
disp('---------- GP算法求关联维 ----------');
tau =2; % 时延
m = 5; % 嵌入维
logdelt = 0.2;
ln_r = [-7:logdelt:0];
delt = exp(ln_r);
for k=1:length(ln_r)
r=delt(k);
C(k)=correlation_interal(m,data,r,tau);% 输出变量为关联积分
k
if (C(k)<0.0001)
C(k)=0.0001;
end
ln_C(k)=log(C(k));%lnC(r)
end
C
subplot(211)
plot(ln_r,ln_C,'+:');grid;
xlabel('ln r'); ylabel('ln C(r)');
hold on;
subplot(212)
Y = diff(ln_C)./logdelt;
plot(Y,'+:'); grid;
xlabel('n'); ylabel('slope');
hold on;
%------------------------------------------------------
% 拟合线性区域
ln_Cr=ln_C;
ln_r=ln_r;
LinearZone = [10:25];
F = polyfit(ln_r(LinearZone),ln_Cr(LinearZone),1);
CorrelationDimension = F(1)
|
评分
-
1
查看全部评分
-
|