clf
clc

% echo on

global ALPHA
ALPHA=4.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);

y3=x(:,3);
y8=x(:,8);
l3=length(y3);
l8=length(y8);
yr3=y3(40:l3);
yr8=y8(40:l8);

plot(yr3,yr8,'b');
title('\alpha = 4.5');
xlabel('X3');
ylabel('X8');
axis([0 1.2 0.2 1.1]);

% echo off


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