function datiSc=scala(dati)
%
%I:=dati non scalati (variabili x campioni)
%O:=dati scalati
%

[mDati,datiSc]=centra(dati);

Cov=(datiSc*datiSc')./size(datiSc,2);

for i=1:size(dati,1)
    datiSc(i,:)=dati(i,:)./(Cov(i,i)^0.5);
end


end