function out=ahphier(all,varargin)
%AHPHIER   One-step hierarchical assembly of AHP weighting vector 
%    AHPHIER(ALL,A_1,A_2,...,A_N) combines the normalized vectors
%    A_1,A_2,...,A_N of lower level weights using the vector ALL.  
%    ALL is a vector of length N giving the relative weights of
%    A_1 to A_N. 

n=length(all);
if nargin ~= n+1
  disp 'You seem to have the wrong number of vectors.';
  disp 'Exiting.';
  return;
end

out=[];
for i=1:n
  temp=all(i).*varargin{i};
  out=[out,temp];
end

out=out/sum(out);