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

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

% 方程表達式
% dx/dt = sigma*(y-x)
% dy/dt = r*x - y - x*z
% dz/dt = -b*z + x*y

clc
clear
close all

sigma = 16           % Lorenz 方程參數 a
r = 45.92            %                 c            
b = 4                %                 b

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

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

z = LorenzData(y,h,k1+k2,sigma,r,b);
z = z(k1+1:end,:);

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

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