function  s = S( fl,a,productivity,p,umw)
%sharung rule for the agent

s=fl+PROD(a, productivity,umw)*p;

end

