% 產生 Duffing 混沌序列　
% 使用平臺 - Matlab6.5
% 作者：陸振波，海軍工程大學
% 歡迎同行來信交流與合作，更多文章與程序下載請訪問我的個人主頁
% 電子郵件：luzhenbo@sina.com
% 個人主頁：luzhenbo.88uu.com.cn

% Duffing 吸引子三維相空間圖，這里用四階 Runge-Kutta 法得到微方程的離散序列
% 時間步長 h = 0.01, 而不是1

% 方程表達式
% dx/dt = y
% dy/dt = -delta*y - a*x*(1+x^2) + f*cos(z)
% dz/dt = omega

clc
clear
close all

delta = 0.05;
a = 0.5;
f = 7.5;
omega = 1;

y = [-1,0,1];          % 起始點 (1 x 3 的行向量)
h = 0.025;             % 積分時間步長

k1 = 8000;            % 前面的迭代點數
k2 = 4000;             % 后面的迭代點數

z = DuffingData(y,h,k1+k2,delta,a,f,omega);
z = z(k1+1:end,:);

X = z(:,1);
Y = z(:,2);
Z = z(:,3);

plot3(Z,Y,X);
xlabel('z');ylabel('y');zlabel('x');
title('Duffing attractor');