ssa_view_eig_vect_scatt.m

主成分分析和偏最小二乘SquaresPrincipal成分分析（ PCA ）和偏最小二乘（ PLS ）

function ssa_view_eig_vect_scatt(SSA,pairs_No);
% SSA_VIEW_EIG_VECT_SCATT(SSA,pairs_No) plot scatterogram of eigen vectors
% pairs. Elements of pairs_No are numbers of selected pairs 
% By default pairs are sorted in the following order:
% 1-st pair: 1 - 2 eigen vectors,
% 2-nd pair: 2 - 3 eigen vactors,
% .....
% example: ssa_view_eig_vect_scatt(SSA,[1 2 3 4 10]);
%
% last modified 10.02.05


str={};
for i=1:length(SSA.singular_numbers)-1
    str{i}=[num2str(i) ' - ' num2str(i+1)];
end
if nargin<2
	[selection,ok] = listdlg('PromptString','Select eigen vector pairs:',...
               'SelectionMode','multiple','ListString',str);
else
    ok=1;
    selection=pairs_No;
end

if ok
	N=length(selection);
	Fignumbs=floor(N/4);
	Additaxes=mod(N,4);
	tempHandleA=[];
	tempHandleF=[];
	for i=1:Fignumbs
        tempHandleF(i)=figure('Units','characters',...
            'Name',['Eigen vectors scatterogram: ' str{selection(4*(i-1)+1)} ',  ' str{selection(4*(i-1)+2)} ',  ' str{selection(4*(i-1)+3)} ',  ' str{selection(4*(i-1)+4)}],...
            'NumberTitle','off','color',[1 1 1]);
        for j=1:4
            tempHandleA=[tempHandleA subplot(2,2,j)];
            plot(SSA.U(:,selection(4*(i-1)+j)),SSA.U(:,selection(4*(i-1)+j)+1)), grid on
            xlabel(num2str(selection(4*(i-1)+j)));
            ylabel(num2str(selection(4*(i-1)+j)+1));   
        end
    end
	if Additaxes==1
        tempHandleF(end+1)=figure('Units','characters',...
            'Name',['Eigen vectors scatterogram: ' str{selection(4*Fignumbs+1)}],...
            'NumberTitle','off','color',[1 1 1]);
	end
	if Additaxes==2
        tempHandleF(end+1)=figure('Units','characters',...
            'Name',['Eigen vectors scatterogram: ' str{selection(4*Fignumbs+1)} ',  ' str{selection(4*Fignumbs+2)}],...
            'NumberTitle','off','color',[1 1 1]);
	end
	if Additaxes==3
        tempHandleF(end+1)=figure('Units','characters',...
            'Name',['Eigen vectors scatterogram: ' str{selection(4*Fignumbs+1)} ',  ' str{selection(4*Fignumbs+2)} ',  ' str{selection(4*Fignumbs+3)}],...
            'NumberTitle','off','color',[1 1 1]);
	end
    for i=1:Additaxes
        tempHandleA=[tempHandleA subplot(2,2,i)];
        plot(SSA.U(:,selection(4*Fignumbs+i)),SSA.U(:,selection(4*Fignumbs+i)+1)), grid on
        xlabel(num2str(selection(4*Fignumbs+i)));
        ylabel(num2str(selection(4*Fignumbs+i)+1));
	end
	set(tempHandleA,'fontsize',8);
end