clf
clc

% echo on

global ALPHA
ALPHA=4;

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('Attractor, \alpha=4');
xlabel('X3');
ylabel('X8');

% echo off


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