function [Ybas,n,percR]=PCAsvd(T,percT)
    [mT,T]=centra(T);%centra i dati
    Y=T*T'./size(T,2); %crea la matrice di covarianza
    [u,s,v] = svd(Y);
    %v=v';
    V = v'*T;
    lambda=max(s);
    [n,percR]=percentuale(lambda,percT);
    
    %trova deviazione standard empirica e scala i dati secondo la relativa dev std
    for i=1:size(Y,1)        
        Tsd(i,:)=(T(i,:)./(Y(i,i)^0.5));
    end
    
    Ybas=v(:,1:n)'*Tsd;  % size(Y)=n*1512
end