function w = f2w(F)
global AAin m n
w = [];
for i = 1:n
  A = AAin{i};
  w(i,1) = max(abs(A*F));
end
return