samer@4: function x=map01(x,dim)
samer@4: % map01 - Map values into the range [0,1].
samer@4: %
samer@4: % map01 :: [Size], D:natural -> [Size].
samer@4: 
samer@4: if nargin<2, 
samer@4: 	sz=size(x);
samer@4: 	dims=find(sz>1);
samer@4: 	if isempty(dims), dim=1; else dim=dims(1); end
samer@4: end
samer@4: 	
samer@4: x=divnorm(@(z)max(z,[],dim),addnorm(@(y)min(y,[],dim),x));
samer@4: