function xprime=goodwin(t,x)

% Ref. to A.Goergen, "Dynamiques Economiques. 
% Solutions de Problème avec Maple et Matlab", 
% Economica, 2006.
%
% The model can be written:
% dx/dt=A*x*(y-B)  
% dy/dt=C*y*(D-x)
% where the parameters are taken here such that:
% A=0.05, B=0.8: C=2, D=0.98.
%
% The system must be parametrized according 
% to the Goodwin Model (1967).

xprime=zeros(2,1);
xprime(1)=.05*x(1)*(x(2)-.8);
xprime(2)=2*x(2)*(.98-x(1));

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