function y=netVest(x)

global A alpha gamma theta s;

if gamma == 0
    y=s*cobbdouglas(x)-theta*x;
else
    y=s*ces(x)-theta*x;
end;


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