%------------------------------------------------------------------------------------
%DESCRIZIONE: trova i sensori che rappresentano meglio la proiezione dei sensori 
%             lungo le componenti principali secondo l'errore quadratico medio minimo
%------------------------------------------------------------------------------------
%I: T:=matrice contenente le temperature dei sensori interni 
%   Ybar:=proiezione delle temperature lungo le componenti principali prescelte
%
%O: IndS:=vettore di lunghezza 'n'=numero componenti principali con l'indice dei sensori
%         in T che piu' si avvicinano a quelli proiettati lungo le componenti principali
%   eqmP:=vettore con i corrispondenti errori quadratici medi tra Ybas(i) e T(IndS(i))   
%         
%------------------------------------------------------------------------------------
%------------------------------------------------------------------------------------
function [IndS,eqmP]=trovaMinEQ(T,Ybas)
    
    %inizializza i valori degli indici e degli errori quadratici medi
    IndS=ones(1,size(Ybas,1));
    eqmP=1e10*ones(1,size(Ybas,1));
    
    for j=1:size(Ybas,1)
        for i=1:size(T,1)
            %setta il valore attuale di errore quadratico medio
            eqmA=((sum((T(i,:)-Ybas(j,:)).^2))^0.5)/size(T,2);
            if eqmA<eqmP(j)
                %aggiorna errore e indice se minore del precedente memorizzato                
                IndS(j)=i;
                eqmP(j)=eqmA;
            end
        end
    end
end