da_pcsv.m

来自「wang xiao ping 版遗传算法」· M 代码 · 共 15 行

function da_pcsv(ol_pca_coefs,ol_meanx,ol_stdx)
%
% saves the loadings
%

[df_name df_path]=uiputfile('*.mat','Saving principal component loadings');

if df_name ~=0
	[D L]=size(df_path);
	df_path=num2str(df_path(:,1:L-1));
	eval(['cd ' df_path]);
	eval(['save ' df_name ' ol_pca_coefs ol_meanx ol_stdx']);
end