function [Scaled_data]=scale_data(Data)
%%	this fuction scales data to the integer range from 0 to 255
   LowerRange=min(Data');
   UpperRange=max(Data');
   span=UpperRange-LowerRange;
   Scaled_data=Data-LowerRange'*ones(1,size(Data,2));
   scale=256./span';
   scale=diag(scale);
   Scaled_data=floor(scale*Scaled_data-eps);