%-------------------------------------------------------------------------
%DESCRIZIONE: calcola i valori principale che spiegano "perc"% del sistema
%
%I: lambda:=vettore dei valori principali di sistema;
%   perc:=percentuale fissata che si vuole ottenere;
%
%O: npc:=numero componenti principali che spiegano la percentuale
%        desiderata di sitema;
%   percR:=percentuale reale spiegata;
%-------------------------------------------------------------------------

function  [percR,npc]=PCApercent(lambda,perc)
    npc=1;
    s=sum(lambda);
    while(1)
        percR=sum(lambda(1:npc))/s;
        if percR>=perc
            break
        end
        npc=npc+1;
    end    
end