util1_jan/big.m

   1 function s=big(a)
   2 % s=big(a)
   3 % max absolute value of any array, arbitrary number of dimensions
   4 s=big2(abs(a));
   5
   6 function s=big2(a)
   7 if isvector(a),
   8         s=full(max(a));
   9 else
  10         b=max(a,[],ndims(a));
  11         s=big2(b);
  12 end
  13