function xdot=medioeq(t,x)

global ALPHA

a=[-10 0 0 0 0 0 0 0 0 10*ALPHA*(1-x(10)) 
    10 -10 0 0 0 0 0 0 0 0
     0 10 -10 0 0 0 0 0 0 0
     0 0 10 -10 0 0 0 0 0 0
     0 0 0 10 -10 0 0 0 0 0
     0 0 0 0 10 -10 0 0 0 0
     0 0 0 0 0 10 -10 0 0 0
     0 0 0 0 0 0 10 -10 0 0 
     0 0 0 0 0 0 0 10 -10 0
     0 0 0 0 0 0 0 0 10 -10];

xdot=a*x;

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