% Ref. to A.Goergen, "Dynamiques Economiques. 
% Solutions de Problème avec Maple et Matlab", 
% Economica, 2006.
%
% In his last book, "Chaotic Economic Dynamics", 
% Goodwin suggested an application of the Rossler 
% band to economic theory. 
%

init=[1 0.5 0.1];
[t,X]=ode45(@goodwin2,[0 200],init);

clear figure
plot(X(:,1),X(:,2),'b');
title('Rossler band');
grid;

disp('Press any key to continue')
pause

clear figure
plot(t,X(:,2),'r');
title('Rossler y(t)');
xlabel('Evolution of y(t)');

disp('Press any key to continue')
pause

clear figure
plot(t,X(:,3),'r');
title('Rossler z(t)');
xlabel('Evolution of z(t)');

disp('Press any key to continue')
pause

clear figure
plot3(X(:,1),X(:,2),X(:,3),'b');
title('Rossler band, x(t),y(t),z(t)');
xlabel('3D version');
%grid;
box;

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