⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 plsgui.m

📁 绝对经典,老外制作的功能强大的matlab实现PLS_TOOBOX
💻 M
📖 第 1 页 / 共 3 页
字号:
	'Visible', 'on', ...
   	'Tag','PETSessionProfileButton');

   Hc_pushBfMRIsession = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','bfm_session_profile_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Session Profile for Block fMRI data', ...
	'Visible', 'off', ...
   	'Tag','BfMRISessionProfileButton');
   
   Hc_pushfMRIsession = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','fmri_session_profile_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Session Profile for E.R. fMRI data', ...
	'Visible', 'off', ...
   	'Tag','SessionProfileButton');
   
   Hc_pushERPsession = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','erp_session_profile_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Session Profile for ERP data', ...
	'Visible', 'off', ...
   	'Tag','ERPSessionProfileButton');

   Hc_pushSTRUCTsession = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','struct_session_profile_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Session Profile for STRUCT data', ...
	'Visible', 'off', ...
   	'Tag','STRUCTSessionProfileButton');

   button_pos(2) = button_pos(2) - button_gap;

   Hc_pushPETanalysis = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','pet_analysis_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Run PLS Analysis on PET data', ...
	'Visible', 'on', ...
   	'Tag','PETAnalysisButton');

   Hc_pushBfMRIanalysis = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','bfm_analysis_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Run PLS Analysis on Block fMRI data', ...
	'Visible', 'off', ...
   	'Tag','BfMRIAnalysisButton');
   
   Hc_pushfMRIanalysis = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','fmri_analysis_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Run PLS Analysis on E.R. fMRI data', ...
	'Visible', 'off', ...
   	'Tag','PLSAnalysisButton');
   
   Hc_pushERPanalysis = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','erp_analysis_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Run PLS Analysis on ERP data', ...
	'Visible', 'off', ...
   	'Tag','ERPAnalysisButton');

   Hc_pushSTRUCTanalysis = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','struct_analysis_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Run PLS Analysis on STRUCT data', ...
	'Visible', 'off', ...
   	'Tag','STRUCTAnalysisButton');

   button_pos(2) = button_pos(2) - button_gap;

   Hc_pushPETresult = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','pet_result_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Show PLS Result for PET data', ...
	'Visible', 'on', ...
   	'Tag','PETResultButton');

   Hc_pushBfMRIresult = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','bfm_result_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Show PLS Result for Block fMRI data', ...
	'Visible', 'off', ...
   	'Tag','BfMRIResultButton');
   
   Hc_pushfMRIresult = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','fmri_result_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Show PLS Result for E.R. fMRI data', ...
	'Visible', 'off', ...
   	'Tag','PLSResultButton');
   
   Hc_pushERPresult = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','erp_result_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Show PLS Result for ERP data', ...
	'Visible', 'off', ...
   	'Tag','ERPResultButton');

   Hc_pushSTRUCTresult = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','struct_result_ui;', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','Show PLS Result for STRUCT data', ...
	'Visible', 'off', ...
   	'Tag','STRUCTResultButton');

   button_pos(2) = button_pos(2) - button_gap;

   Hc_pushPETdone = uicontrol('Parent',h0, ...
   	'Units','normal', ...
   	'BackgroundColor',[0.7 0.7 0.7], ...
   	'Callback','close(gcf);', ...
   	'FontUnits','normal', ...
   	'FontSize',0.3, ...
   	'FontWeight','bold', ...
   	'Position',button_pos, ...
   	'String','CLOSE', ...
	'Visible', 'on', ...
   	'Tag','PETDoneButton');

   h1 = uimenu('Parent',h0, ...
           'Label', '&Tools');

   h_save_setting = uimenu('Parent', h1, ...
           'Label', 'Save GUI &Positions', ...
           'check', save_setting_status, ...
           'CallBack', 'plsgui(''toggle_save_setting'');');

   h_save_display = uimenu('Parent', h1, ...
           'Label', 'Save &Display Setting for PET/MRI', ...
           'check', save_display_status, ...
           'CallBack', 'plsgui(''toggle_save_display'');');

   h_change_pwd = uimenu('Parent', h1, ...
           'Label', '&Change Current Working Directory', ...
           'Separator', 'on', ...
	   'visible', 'off', ...
           'CallBack', 'plsgui(''change_pwd'');');

   Hm_topHelp = uimenu('Parent',h0, ...
           'Label', '&Help', ...
           'Tag', 'Help');

   Hm_how = uimenu('Parent',Hm_topHelp, ...
           'Label', '&How to use this window?', ...
	   'Callback','web([''file:///'', which(''UserGuide.htm'')]);', ...
	   'visible', 'on', ...
           'Tag', 'How');

   Hm_new = uimenu('Parent',Hm_topHelp, ...
           'Label', '&What''s new', ...
	   'Callback','rri_helpfile_ui(''whatsnew.txt'',''What''''s new'');', ...
           'Tag', 'New');

   Hm_about = uimenu('Parent',Hm_topHelp, ...
           'Label', '&About this program', ...
           'Tag', 'About', ...
           'CallBack', 'plsgui_version');

   setappdata(h0, 'save_setting_status', save_setting_status);
   setappdata(h0, 'save_display_status', save_display_status);
   setappdata(h0, 'h_save_setting', h_save_setting);
   setappdata(h0, 'h_save_display', h_save_display);
   fig = h0;

   if ~isempty(pls)
      switch(pls)
         case {1}
            plsgui('ChoosePET');
         case {2}
            plsgui('ChoosefMRI');
         case {3}
            plsgui('ChooseERP');
         case {4}
            plsgui('ChooseBfMRI');
         case {5}
            plsgui('ChooseSTRUCT');
      end
   end
   
   return;						% init


%------------------------------------------------------------------------------------
function ChoosePET()

   Hc_textPET=findobj(gcf,'Tag','PETLabel');
   Hc_textBfMRI=findobj(gcf,'Tag','BfMRILabel');
   Hc_textfMRI=findobj(gcf,'Tag','fMRILabel');
   Hc_textERP=findobj(gcf,'Tag','ERPLabel');
   Hc_textSTRUCT=findobj(gcf,'Tag','STRUCTLabel');
   Hc_pushPETsession=findobj(gcf,'Tag','PETSessionProfileButton');
   Hc_pushBfMRIsession=findobj(gcf,'Tag','BfMRISessionProfileButton');
   Hc_pushfMRIsession=findobj(gcf,'Tag','SessionProfileButton');
   Hc_pushERPsession=findobj(gcf,'Tag','ERPSessionProfileButton');
   Hc_pushSTRUCTsession=findobj(gcf,'Tag','STRUCTSessionProfileButton');
   Hc_pushPETanalysis=findobj(gcf,'Tag','PETAnalysisButton');
   Hc_pushBfMRIanalysis=findobj(gcf,'Tag','BfMRIAnalysisButton');
   Hc_pushfMRIanalysis=findobj(gcf,'Tag','PLSAnalysisButton');
   Hc_pushERPanalysis=findobj(gcf,'Tag','ERPAnalysisButton');
   Hc_pushSTRUCTanalysis=findobj(gcf,'Tag','STRUCTAnalysisButton');
   Hc_pushPETresult=findobj(gcf,'Tag','PETResultButton');
   Hc_pushBfMRIresult=findobj(gcf,'Tag','BfMRIResultButton');
   Hc_pushfMRIresult=findobj(gcf,'Tag','PLSResultButton');
   Hc_pushERPresult=findobj(gcf,'Tag','ERPResultButton');
   Hc_pushSTRUCTresult=findobj(gcf,'Tag','STRUCTResultButton');
   h_pet = findobj(gcf,'tag','PETButton');
   h_bfmri = findobj(gcf,'tag','BfMRIButton');
   h_fmri = findobj(gcf,'tag','fMRIButton');
   h_erp = findobj(gcf,'tag','ERPButton');
   h_struct = findobj(gcf,'tag','STRUCTButton');

   set(gcf,'Name','PLS for PET data');
   set(Hc_textPET,'Visible','on');
   set(Hc_textBfMRI,'Visible','off');
   set(Hc_textfMRI,'Visible','off');
   set(Hc_textERP,'Visible','off');
   set(Hc_textSTRUCT,'Visible','off');
   set(Hc_pushPETsession,'Visible','on');
   set(Hc_pushBfMRIsession,'Visible','off');
   set(Hc_pushfMRIsession,'Visible','off');
   set(Hc_pushERPsession,'Visible','off');
   set(Hc_pushSTRUCTsession,'Visible','off');
   set(Hc_pushPETanalysis,'Visible','on');
   set(Hc_pushBfMRIanalysis,'Visible','off');
   set(Hc_pushfMRIanalysis,'Visible','off');
   set(Hc_pushERPanalysis,'Visible','off');
   set(Hc_pushSTRUCTanalysis,'Visible','off');
   set(Hc_pushPETresult,'Visible','on');
   set(Hc_pushBfMRIresult,'Visible','off');
   set(Hc_pushfMRIresult,'Visible','off');
   set(Hc_pushERPresult,'Visible','off');
   set(Hc_pushSTRUCTresult,'Visible','off');

   set(h_pet,'back',[0 0 0],'fore',[1 1 1]);
   set(h_bfmri,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_fmri,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_erp,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_struct,'back',[0.7 0.7 0.7],'fore',[0 0 0]);

   return;


%------------------------------------------------------------------------------------
function ChooseBfMRI()

   Hc_textPET=findobj(gcf,'Tag','PETLabel');
   Hc_textBfMRI=findobj(gcf,'Tag','BfMRILabel');
   Hc_textfMRI=findobj(gcf,'Tag','fMRILabel');
   Hc_textERP=findobj(gcf,'Tag','ERPLabel');
   Hc_textSTRUCT=findobj(gcf,'Tag','STRUCTLabel');
   Hc_pushPETsession=findobj(gcf,'Tag','PETSessionProfileButton');
   Hc_pushBfMRIsession=findobj(gcf,'Tag','BfMRISessionProfileButton');
   Hc_pushfMRIsession=findobj(gcf,'Tag','SessionProfileButton');
   Hc_pushERPsession=findobj(gcf,'Tag','ERPSessionProfileButton');
   Hc_pushSTRUCTsession=findobj(gcf,'Tag','STRUCTSessionProfileButton');
   Hc_pushPETanalysis=findobj(gcf,'Tag','PETAnalysisButton');
   Hc_pushBfMRIanalysis=findobj(gcf,'Tag','BfMRIAnalysisButton');
   Hc_pushfMRIanalysis=findobj(gcf,'Tag','PLSAnalysisButton');
   Hc_pushERPanalysis=findobj(gcf,'Tag','ERPAnalysisButton');
   Hc_pushSTRUCTanalysis=findobj(gcf,'Tag','STRUCTAnalysisButton');
   Hc_pushPETresult=findobj(gcf,'Tag','PETResultButton');
   Hc_pushBfMRIresult=findobj(gcf,'Tag','BfMRIResultButton');
   Hc_pushfMRIresult=findobj(gcf,'Tag','PLSResultButton');
   Hc_pushERPresult=findobj(gcf,'Tag','ERPResultButton');
   Hc_pushSTRUCTresult=findobj(gcf,'Tag','STRUCTResultButton');
   h_pet = findobj(gcf,'tag','PETButton');
   h_bfmri = findobj(gcf,'tag','BfMRIButton');
   h_fmri = findobj(gcf,'tag','fMRIButton');
   h_erp = findobj(gcf,'tag','ERPButton');
   h_struct = findobj(gcf,'tag','STRUCTButton');

   set(gcf,'Name','PLS for Block fMRI data');
   set(Hc_textPET,'Visible','off');
   set(Hc_textBfMRI,'Visible','on');
   set(Hc_textfMRI,'Visible','off');
   set(Hc_textERP,'Visible','off');
   set(Hc_textSTRUCT,'Visible','off');
   set(Hc_pushPETsession,'Visible','off');
   set(Hc_pushBfMRIsession,'Visible','on');
   set(Hc_pushfMRIsession,'Visible','off');
   set(Hc_pushERPsession,'Visible','off');
   set(Hc_pushSTRUCTsession,'Visible','off');
   set(Hc_pushPETanalysis,'Visible','off');
   set(Hc_pushBfMRIanalysis,'Visible','on');
   set(Hc_pushfMRIanalysis,'Visible','off');
   set(Hc_pushERPanalysis,'Visible','off');
   set(Hc_pushSTRUCTanalysis,'Visible','off');
   set(Hc_pushPETresult,'Visible','off');
   set(Hc_pushBfMRIresult,'Visible','on');
   set(Hc_pushfMRIresult,'Visible','off');
   set(Hc_pushERPresult,'Visible','off');
   set(Hc_pushSTRUCTresult,'Visible','off');

   set(h_pet,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_bfmri,'back',[0 0 0],'fore',[1 1 1]);
   set(h_fmri,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_erp,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_struct,'back',[0.7 0.7 0.7],'fore',[0 0 0]);

   return;


%------------------------------------------------------------------------------------
function ChoosefMRI()

   Hc_textPET=findobj(gcf,'Tag','PETLabel');
   Hc_textBfMRI=findobj(gcf,'Tag','BfMRILabel');
   Hc_textfMRI=findobj(gcf,'Tag','fMRILabel');
   Hc_textERP=findobj(gcf,'Tag','ERPLabel');
   Hc_textSTRUCT=findobj(gcf,'Tag','STRUCTLabel');
   Hc_pushPETsession=findobj(gcf,'Tag','PETSessionProfileButton');
   Hc_pushBfMRIsession=findobj(gcf,'Tag','BfMRISessionProfileButton');
   Hc_pushfMRIsession=findobj(gcf,'Tag','SessionProfileButton');
   Hc_pushERPsession=findobj(gcf,'Tag','ERPSessionProfileButton');
   Hc_pushSTRUCTsession=findobj(gcf,'Tag','STRUCTSessionProfileButton');
   Hc_pushPETanalysis=findobj(gcf,'Tag','PETAnalysisButton');
   Hc_pushBfMRIanalysis=findobj(gcf,'Tag','BfMRIAnalysisButton');
   Hc_pushfMRIanalysis=findobj(gcf,'Tag','PLSAnalysisButton');
   Hc_pushERPanalysis=findobj(gcf,'Tag','ERPAnalysisButton');
   Hc_pushSTRUCTanalysis=findobj(gcf,'Tag','STRUCTAnalysisButton');
   Hc_pushPETresult=findobj(gcf,'Tag','PETResultButton');
   Hc_pushBfMRIresult=findobj(gcf,'Tag','BfMRIResultButton');
   Hc_pushfMRIresult=findobj(gcf,'Tag','PLSResultButton');
   Hc_pushERPresult=findobj(gcf,'Tag','ERPResultButton');
   Hc_pushSTRUCTresult=findobj(gcf,'Tag','STRUCTResultButton');
   h_pet = findobj(gcf,'tag','PETButton');
   h_bfmri = findobj(gcf,'tag','BfMRIButton');
   h_fmri = findobj(gcf,'tag','fMRIButton');
   h_erp = findobj(gcf,'tag','ERPButton');
   h_struct = findobj(gcf,'tag','STRUCTButton');

   set(gcf,'Name','PLS for E.R. fMRI data');
   set(Hc_textPET,'Visible','off');
   set(Hc_textBfMRI,'Visible','off');
   set(Hc_textfMRI,'Visible','on');
   set(Hc_textERP,'Visible','off');
   set(Hc_textSTRUCT,'Visible','off');
   set(Hc_pushPETsession,'Visible','off');
   set(Hc_pushBfMRIsession,'Visible','off');
   set(Hc_pushfMRIsession,'Visible','on');
   set(Hc_pushERPsession,'Visible','off');
   set(Hc_pushSTRUCTsession,'Visible','off');
   set(Hc_pushPETanalysis,'Visible','off');
   set(Hc_pushBfMRIanalysis,'Visible','off');
   set(Hc_pushfMRIanalysis,'Visible','on');
   set(Hc_pushERPanalysis,'Visible','off');
   set(Hc_pushSTRUCTanalysis,'Visible','off');
   set(Hc_pushPETresult,'Visible','off');
   set(Hc_pushBfMRIresult,'Visible','off');
   set(Hc_pushfMRIresult,'Visible','on');
   set(Hc_pushERPresult,'Visible','off');
   set(Hc_pushSTRUCTresult,'Visible','off');

   set(h_pet,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_bfmri,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_fmri,'back',[0 0 0],'fore',[1 1 1]);
   set(h_erp,'back',[0.7 0.7 0.7],'fore',[0 0 0]);
   set(h_struct,'back',[0.7 0.7 0.7],'fore',[0 0 0]);

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -