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

clc
clear
close all

%---------------------------------------------------
% 產生 Lorenz 時間序列

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

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

k1 = 6000;           % 前面的過渡點數
k2 = 2000;           % 后面的迭代點數

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

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

%---------------------------------------------------
% 相空間重構

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

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

%---------------------------------------------------
% 調用 mex 函數

Dim = CorrelationDimension(xn,r)