erp_plot_ui.m

绝对经典,老外制作的功能强大的matlab实现PLS_TOOBOX

            setting2 = setting;
            save(datamat_file, '-append', 'setting2');
         case {3}                               %  salience
            setting3 = setting;
            save(datamat_file, '-append', 'setting3');
         case {4}                               %  grp
            setting4 = setting;
            save(datamat_file, '-append', 'setting4');
         case {5}                               %  corr
            setting5 = setting;
            save(datamat_file, '-append', 'setting5');
      end
   catch
      msg = 'Cannot save setting information';
      set(findobj(h01,'Tag','MessageLine'),'String',['ERROR: ', msg]);
      return;
   end;

   erp_showplot_ui(h0);

   return;                                      % choose_font_size


%
%
%------------------------------------------------

function move_slider

   h0 = getappdata(gcbf,'main_fig');
   h01 = getappdata(gcbf,'option_fig');
   hc_wavesize = getappdata(h01,'hc_wavesize');
   view_option = getappdata(h0,'view_option');
   datamat_file = getappdata(h0,'datamat_file');
   setting = getappdata(h0,'setting');

   eta = get(hc_wavesize,'value');
   setting.eta = eta;
   setappdata(h0,'eta',eta);

   setappdata(h0,'setting',setting);
   try
      switch view_option
         case {1}                               %  subj
            setting1 = setting;
            save(datamat_file, '-append', 'setting1');
         case {2}                               %  avg
            setting2 = setting;
            save(datamat_file, '-append', 'setting2');
         case {3}                               %  salience
            setting3 = setting;
            save(datamat_file, '-append', 'setting3');
         case {4}                               %  grp
            setting4 = setting;
            save(datamat_file, '-append', 'setting4');
         case {5}                               %  corr
            setting5 = setting;
            save(datamat_file, '-append', 'setting5');
      end
   catch
      msg = 'Cannot save setting information';
      set(findobj(h01,'Tag','MessageLine'),'String',['ERROR: ', msg]);
      return;
   end;

   erp_showplot_ui(h0);

   return;					% move_slider


%
%
%------------------------------------------------

function toggle_avg

   hm_avg = getappdata(gcf,'hm_avg');
   avg_status = get(hm_avg,'userdata');

   if ~avg_status				% was not checked
      set(hm_avg, 'userdata',1, 'check','on');

      view_avg;

   else
      set(hm_avg, 'userdata',0, 'check','off');

      try
         avg_fig_name = get(getappdata(gcf,'avg_fig'),'user');
         if ~isempty(avg_fig_name) ...
		& strcmp(avg_fig_name,'Grand Average of ERP Amplitude')
            close(getappdata(gcf,'avg_fig'));
         end
      catch
      end

   end

   return;					% toggle_avg


%
%
%------------------------------------------------

function toggle_subj

   hm_subj = getappdata(gcf,'hm_subj');
   subj_status = get(hm_subj,'userdata');

   if ~subj_status				% was not checked
      set(hm_subj, 'userdata',1, 'check','on');

      view_subj;

   else
      set(hm_subj, 'userdata',0, 'check','off');

      try
         subj_fig_name = get(getappdata(gcf,'subj_fig'),'user');
         if ~isempty(subj_fig_name) ...
		& strcmp(subj_fig_name,'Group Subject of ERP Amplitude')
            close(getappdata(gcf,'subj_fig'));
         end
      catch
      end

   end

   return;					% toggle_subj


%
%
%------------------------------------------------

function toggle_corr

   result_file = getappdata(gcf,'datamat_file');
   load(result_file,'datamatcorrs_lst');

   if ~exist('datamatcorrs_lst','var')
      msg = 'This result file is created from old version and do not have required data. Please re-run behavior PLS with new version and try again.';
      msgbox(msg, 'Warning', 'modal');
      return;
   end

   hm_corr = getappdata(gcf,'hm_corr');
   corr_status = get(hm_corr,'userdata');

   if ~corr_status				% was not checked
      set(hm_corr, 'userdata',1, 'check','on');

      view_corr;

   else
      set(hm_corr, 'userdata',0, 'check','off');

      try
         corr_fig_name = get(getappdata(gcf,'corr_fig'),'user');
         if ~isempty(corr_fig_name) ...
		& strcmp(corr_fig_name,'Spatiotemporal Correlations')
            close(getappdata(gcf,'corr_fig'));
         end
      catch
      end

   end

   return;					% toggle_corr


%
%
%------------------------------------------------

function toggle_detail

   hm_detail = getappdata(gcf,'hm_detail');
   detail_status = get(hm_detail,'userdata');

   if ~detail_status				% was not checked
      set(hm_detail, 'userdata',1, 'check','on');

      view_detail;

   else
      set(hm_detail, 'userdata',0, 'check','off');

      try
         detail_fig_name = get(getappdata(gcf,'detail_fig'),'user');
         if ~isempty(detail_fig_name) & strcmp(detail_fig_name,'Detail Plot')
            close(getappdata(gcf,'detail_fig'));
         end
      catch
      end

   end

   return;					% toggle_detail


%
%
%------------------------------------------------

function toggle_eigen

   hm_eigen = getappdata(gcf,'hm_eigen');
   eigen_status = get(hm_eigen,'userdata');

   if ~eigen_status				% was not checked
      set(hm_eigen, 'userdata',1, 'check','on');

      view_eigen;

   else
      set(hm_eigen, 'userdata',0, 'check','off');

      try
         eigen_fig_name = get(getappdata(gcf,'eigen_fig'),'user');
         if ~isempty(eigen_fig_name) ...
		& strcmp(eigen_fig_name,'PLS Singular Value Plot')
            close(getappdata(gcf,'eigen_fig'));
         end
      catch
      end

   end

   return;					% toggle_eigen


%
%
%------------------------------------------------

function toggle_score

   hm_score = getappdata(gcf,'hm_score');
   score_status = get(hm_score,'userdata');

   if ~score_status				% was not checked
      set(hm_score, 'userdata',1, 'check','on');

      view_score;

   else
      set(hm_score, 'userdata',0, 'check','off');

      try
         score_fig_name = get(getappdata(gcf,'score_fig'),'user');
         if ~isempty(score_fig_name) ...
		& strcmp(score_fig_name,'PLS Scores Plot')
            close(getappdata(gcf,'score_fig'));
         end
      catch
      end

   end

   return;					% toggle_score


%
%
%------------------------------------------------

function toggle_canonical

   hm_canonical = getappdata(gcf,'hm_canonical');
   canonical_status = get(hm_canonical,'userdata');

   if ~canonical_status				% was not checked
      set(hm_canonical, 'userdata',1, 'check','on');

      view_canonical;
   else
      set(hm_canonical, 'userdata',0, 'check','off');

      try
         canonical_fig_name = get(getappdata(gcf,'canonical_fig'),'user');
         if ~isempty(canonical_fig_name) ...
		& strcmp(canonical_fig_name,'Temporal scores plot')
            close(getappdata(gcf,'canonical_fig'));
         end
      catch
      end
   end

   return;					% toggle_canonical


%
%
%------------------------------------------------

function toggle_canonicalcorr

   hm_canonicalcorr = getappdata(gcf,'hm_canonicalcorr');
   canonicalcorr_status = get(hm_canonicalcorr,'userdata');

   if ~canonicalcorr_status				% was not checked
      set(hm_canonicalcorr, 'userdata',1, 'check','on');

      view_canonicalcorr;
   else
      set(hm_canonicalcorr, 'userdata',0, 'check','off');

      try
         canonicalcorr_fig_name = get(getappdata(gcf,'canonicalcorr_fig'),'user');
         if ~isempty(canonicalcorr_fig_name) ...
		& strcmp(canonicalcorr_fig_name,'Temporal correlations plot')
            close(getappdata(gcf,'canonicalcorr_fig'));
         end
      catch
      end
   end

   return;					% toggle_canonicalcorr


%
%
%------------------------------------------------

function toggle_contrast

   hm_contrast = getappdata(gcf,'hm_contrast');
   contrast_status = get(hm_contrast,'userdata');

   if ~contrast_status				% was not checked
      set(hm_contrast, 'userdata',1, 'check','on');

      view_contrast;
   else
      set(hm_contrast, 'userdata',0, 'check','off');

      try
         contrast_fig_name = get(getappdata(gcf,'contrast_fig'),'tag');
         if ~isempty(contrast_fig_name) ...
		& strcmp(contrast_fig_name,'InputContrast')
            close(getappdata(gcf,'contrast_fig'));
         end
      catch
      end
   end

   return;					% toggle_contrast


%
%
%------------------------------------------------

function toggle_brain

   hm_brain = getappdata(gcf,'hm_brain');
   brain_status = get(hm_brain,'userdata');

   if ~brain_status				% was not checked
      set(hm_brain, 'userdata',1, 'check','on');

      view_brain;

   else
      set(hm_brain, 'userdata',0, 'check','off');

      try
         brain_fig_name = get(getappdata(gcf,'brain_fig'),'user');
         if ~isempty(brain_fig_name) ...
		& strcmp(brain_fig_name,'Scalp scores plot for behavior analysis')
            close(getappdata(gcf,'brain_fig'));
         end
      catch
      end

   end

   return;					% toggle_brain


%
%
%------------------------------------------------

function toggle_chan_name

   hm_chan_name = getappdata(gcf,'hm_chan_name');
   view_option = getappdata(gcf,'view_option');
   datamat_file = getappdata(gcf,'datamat_file');
   setting = getappdata(gcf,'setting');
   chan_name_status = get(hm_chan_name,'userdata');

   if ~chan_name_status				% was not checked
      set(hm_chan_name, 'userdata',1, 'check','on');
      erp_plot_ui('display_chan_name','on');
   else
      set(hm_chan_name, 'userdata',0, 'check','off');
      erp_plot_ui('display_chan_name','off');
   end

   chan_name_status = get(hm_chan_name,'userdata');
   setting.chan_name_status = chan_name_status;

   setappdata(gcf,'setting',setting);
   try
      switch view_option
         case {1}                               %  subj
            setting1 = setting;
            save(datamat_file, '-append', 'setting1');
         case {2}                               %  avg
            setting2 = setting;
            save(datamat_file, '-append', 'setting2');
         case {3}                               %  salience
            setting3 = setting;
            save(datamat_file, '-append', 'setting3');
         case {4}                               %  grp
            setting4 = setting;
            save(datamat_file, '-append', 'setting4');
         case {5}                               %  corr
            setting5 = setting;
            save(datamat_file, '-append', 'setting5');
      end
   catch
      msg = 'Cannot save setting information';
      msgbox(msg,'ERROR','modal');
      return;
   end;