% Function normalizes matrix over [0,1] 規格化矩陣
function [Dn] = norma(D);
%！！！！！！！！！！！！
% 把矩陣D里的數按相應行的最大最小值轉化到[0,1]區間去
%！！！！！！！！！！！！
% Dn  -> normalized vector over [0,1]  規格化帶菌者
[np,ni] = size(D);
if ni == 1,
   Dn = (D - min(D))./(max(D)-min(D));  
else,
   vmaxD = max(D); 
   vminD = min(D);
   for i=1:ni,
      Dn(:,i) = (D(:,i) - vminD(i))./(vmaxD(i)-vminD(i));
   end;
end;
% End Function NORMA