samer@4: % maxnorm - additive normalisation of vectors
samer@4: %
samer@4: % maxnorm :: [[N]] -> [[N]], real.
samer@4: function [y,m]=maxnorm(x)
samer@4: 	k=max(x);
samer@4: 	if isfinite(k), y=x-k;
samer@4: 	else y=zeros(size(x)); 
samer@4: 	end
samer@4: end