clf
clc

% echo on

global ALPHA
ALPHA=5;

x0=[0.65 0.65 0.65 0.65 0.65 0.65 0.65 0.65 0.65 0.65]';
tfinal=150;

[t,x]=ode23(@medioeq,[0 tfinal],x0);

plot(x(:,3),x(:,8),'b');
title('Chaotic Attractor, \alpha=5');
xlabel('X3');
ylabel('X8');
axis([-0.41 1.25 -0.12 1.21]);

% echo off


% "Complex and Chaotic Nonlinear Dynamics. 
% Advances in Economics and Finance, 
% Mathematics and Statistics" 
% T.Vialar, Springer 2009.
% Copyright(c)