yzfx.m

多元统计程序包

function varargout = yzfx(varargin)
% YZFX Application M-file for yzfx.fig
%    FIG = YZFX launch yzfx GUI.
%    YZFX('callback_name', ...) invoke the named callback.

% Last Modified by GUIDE v2.0 24-Oct-2003 17:25:01

if nargin == 0  % LAUNCH GUI

	fig = openfig(mfilename,'reuse');

	% Use system color scheme for figure:
	set(fig,'Color',get(0,'defaultUicontrolBackgroundColor'), 'Name', '因子分析');

	% Generate a structure of handles to pass to callbacks, and store it. 
	handles = guihandles(fig);
	guidata(fig, handles);
    set(handles.help_listbox, 'String', {'因子分析步骤：'....
            '第一步：按【导入数据】按钮；'....
            '第二步：按【因子分析】按钮。'sprintf('\n')....
            '具体帮助请按【帮助】菜单' 
    })
    set(handles.outputdata_listbox, 'String', '');
    set(handles.outdata_listbox, 'String', '');
    
	if nargout > 0
		varargout{1} = fig;
	end

elseif ischar(varargin{1}) % INVOKE NAMED SUBFUNCTION OR CALLBACK

	try
		if (nargout)
			[varargout{1:nargout}] = feval(varargin{:}); % FEVAL switchyard
		else
			feval(varargin{:}); % FEVAL switchyard
		end
	catch
		disp(lasterr);
	end

end


%| ABOUT CALLBACKS:
%| GUIDE automatically appends subfunction prototypes to this file, and 
%| sets objects' callback properties to call them through the FEVAL 
%| switchyard above. This comment describes that mechanism.
%|
%| Each callback subfunction declaration has the following form:
%| <SUBFUNCTION_NAME>(H, EVENTDATA, HANDLES, VARARGIN)
%|
%| The subfunction name is composed using the object's Tag and the 
%| callback type separated by '_', e.g. 'slider2_Callback',
%| 'figure1_CloseRequestFcn', 'axis1_ButtondownFcn'.
%|
%| H is the callback object's handle (obtained using GCBO).
%|
%| EVENTDATA is empty, but reserved for future use.
%|
%| HANDLES is a structure containing handles of components in GUI using
%| tags as fieldnames, e.g. handles.figure1, handles.slider2. This
%| structure is created at GUI startup using GUIHANDLES and stored in
%| the figure's application data using GUIDATA. A copy of the structure
%| is passed to each callback.  You can store additional information in
%| this structure at GUI startup, and you can change the structure
%| during callbacks.  Call guidata(h, handles) after changing your
%| copy to replace the stored original so that subsequent callbacks see
%| the updates. Type "help guihandles" and "help guidata" for more
%| information.
%|
%| VARARGIN contains any extra arguments you have passed to the
%| callback. Specify the extra arguments by editing the callback
%| property in the inspector. By default, GUIDE sets the property to:
%| <MFILENAME>('<SUBFUNCTION_NAME>', gcbo, [], guidata(gcbo))
%| Add any extra arguments after the last argument, before the final
%| closing parenthesis.





% --------------------------------------------------------------------
function varargout = importdata_pushbutton_Callback(h, eventdata, handles, varargin)
importdata_pushbutton(handles);




% --------------------------------------------------------------------
function varargout = yzfx_pushbutton_Callback(h, eventdata, handles, varargin)
yzfx_data = str2num(get(handles.outdata_listbox,'String'));
if isempty(yzfx_data)
    warndlg('进行因子分析的数据有误，可能为空，可能数据矩阵有不合法的字符或输入！', '警告！');
else  
    hf = figure;
    set(hf, 'NumberTitle', 'off', 'Name', '因子分析结果图');
    [yzR, yzpcs, yzvar, yzper_ex, yzlj_per, yzA, yzhh, yzV, yzB, yzTTT, yzFF] = yzfenxi(yzfx_data);
    SyzR = num2str(yzR);
    Syzpcs = num2str(yzpcs);
    Syzvar = num2str(yzvar);
    Syzper_ex = num2str(yzper_ex);
    Sylj_per = num2str(yzlj_per);
    SyzA = num2str(yzA);
    Syzhh = num2str(yzhh);
    SyzV = num2str(yzV);
    SyzB = num2str(yzB);
    SyzTTT = num2str(yzTTT); 
    SyzFF = num2str(yzFF);

   set(handles.outputdata_listbox, 'String',  {'相关系数矩阵：', SyzR,....
            '相关系数矩阵的特征向量矩阵：', Syzpcs,....
            '相关系数的特征值：', Syzvar,....
            '特征值占总体百分数：', Syzper_ex,....
            '特征值的累积百分数：', Sylj_per,....
            '特征值的累积百分数：', Sylj_per,....  
            '因子载荷矩阵：', SyzA,....   
            '变量的共同度：', Syzhh,.... 
            '最大方差：', SyzV,....
            '方差最大正交旋转矩阵：', SyzB,....
            '旋转矩阵：', SyzTTT,...
            '正交因子得分矩阵：', SyzFF,...
               });    
end


% --------------------------------------------------------------------
function varargout = outputdata_listbox_Callback(h, eventdata, handles, varargin)



% --------------------------------------------------------------------
function varargout = outdata_listbox_Callback(h, eventdata, handles, varargin)




% --------------------------------------------------------------------
function varargout = help_pushbutton_Callback(h, eventdata, handles, varargin)




% --------------------------------------------------------------------
function varargout = help_listbox_Callback(h, eventdata, handles, varargin)





% --------------------------------------------------------------------
function varargout = restart_pushbutton_Callback(h, eventdata, handles, varargin)
restart_pushbutton(handles);


% --------------------------------------------------------------------
function varargout = save_pushbutton_Callback(h, eventdata, handles, varargin)
save_pushbutton(handles);



% --------------------------------------------------------------------
function varargout = help_Callback(h, eventdata, handles, varargin)




% --------------------------------------------------------------------
function varargout = yzfx_help_Callback(h, eventdata, handles, varargin)
yzfx_help;



% --------------------------------------------------------------------
function varargout = importdata_help_Callback(h, eventdata, handles, varargin)
importdata_help; 



% --------------------------------------------------------------------
function varargout = restart_help_Callback(h, eventdata, handles, varargin)
restart_help;



% --------------------------------------------------------------------
function varargout = save_help_Callback(h, eventdata, handles, varargin)
save_help;



% --------------------------------------------------------------------
function varargout = readresult_pushbutton_Callback(h, eventdata, handles, varargin)
readresult_pushbutton(handles);



% --------------------------------------------------------------------
function varargout = readresult_help_Callback(h, eventdata, handles, varargin)
readresult_help;