function [Norm_A] = normalize_bases_as_kernels(A)
% normalize_bases_as_kernels
%
% A        the bases, with patches as column vectors
%
%

% This is the side of the window
Norm_A = A-ones([size(A,1) 1]) * mean(A);

scales = sum(Norm_A.^2);
scales = sqrt(scales);

Norm_A = Norm_A./(ones([size(A,1) 1]) * scales);

return;


