clf
clc

% echo on

global ALPHA
ALPHA=4.85;

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('\alpha = 4.85');
xlabel('X3');
ylabel('X8');
axis([-0.4 1.2 0 1.2]);

%echo off


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