function [xss]=xssw(ws)

global alpha L K A r w N tau lambda beta expenditures;
w=[1;ws];
expend;
alpha_= alpha.^(-alpha).*(1-alpha).^(alpha-1);
supply = alpha_.*A.*(L.^alpha).*(K.^(1-alpha));
q=(w.^alpha).*(r.^(1-alpha))./A;
share=consshare(supply,q);
p=sum(share.*(tau.*(q*ones(1,N))))';
demand=share*beta*expenditures./q;
xss=supply-demand;