function scaled = svm_scale_again_newlibsvm(Data, scale_parameter)

% Usages:
%  [scaled , MinV , MaxV] = svm_scale_again_newlibsvm(Data, scale_parameter)
%  scales the rows of "Data" according to the parameters contained in
%  "scale_parameter". The outputs are the scaled data "scaled". 
%
% Examples:
%  For the osu_svm data with rows of feature vectors,
%  scaled = svm_scale_again_newlibsvm(Data, scale_parameter);
%
% By Tian Tsong Ng, July 2005

Lower = scale_parameter.Lower;
Upper = scale_parameter.Upper;
MinV = scale_parameter.MinV;
MaxV = scale_parameter.MaxV;

[R,C]= size(Data);

gap = MaxV-MinV;
I = find(gap==0);
gap(I) = 1;

scaled=(Data-ones(R,1)*MinV).*(ones(R,1)*((Upper-Lower)*ones(1,C)./gap))+Lower;