% Takens 算法求關(guān)聯(lián)維
% 使用平臺 - Matlab6.5 / Matlab7.0
% 作者：陸振波，海軍工程大學(xué)
% 歡迎同行來信交流與合作，更多文章與程序下載請?jiān)L問我的個人主頁
% 電子郵件：luzhenbo@yahoo.com.cn
% 個人主頁：http://luzhenbo.88uu.com.cn

clc
clear
close all

%---------------------------------------------------
% 產(chǎn)生 Lorenz 時(shí)間序列

sigma = 10;          % Lorenz方程參數(shù)
r = 28;               
b = 8/3;          

y = [-1;0;1];        % 起始點(diǎn) (3x1 的列向量)
h = 0.01;            % 積分時(shí)間步長

k1 = 6000;           % 前面的過渡點(diǎn)數(shù)
k2 = 2000;           % 后面的迭代點(diǎn)數(shù)

z = LorenzData(y,h,k1+k2,sigma,r,b);    % 用四階 Runge-Kutta 法產(chǎn)生 k1+k2 個點(diǎn)
X = z(k1+1:end,1);                      % 去掉前面 k1 個過渡點(diǎn)

X = normalize_1(X);  % 歸一化到均值為 0，振幅為 1

%---------------------------------------------------
% 相空間重構(gòu)

tau = 14;
m = 3;
[xn] = PhaSpaRecon(X,tau,m);

xn = xn';       % 重構(gòu)相空間點(diǎn)集，每一行為一個點(diǎn)
r = 0.04;       % r 相對于吸引子直徑的大小,(0,1)之間

%---------------------------------------------------
% 調(diào)用 mex 函數(shù)

Dim = CorrelationDimension(xn,r)