📄 fmri_plot_scores.m
字号:
function fig = fmri_plot_scores(varargin)
%
% USAGE:
% fig = fmri_plot_scores
% or fig = fmri_plot_scores(b_scores,d_scores,designlv, ...
% perm_result,conditions,evt_list)
%
% Input:
% b_scores - a 2D matrix (num_evts x num_lv) stores the brain scores
% d_scores - a 2D matrix (num_evts x num_lv) stores the design scores
% conditions - a cell array contains the names of the conditions
% evt_list - an integer array contains the index of condition for
% each row of the scores.
%
if strcmp('LINK',varargin{1})
fname = varargin{2};
LINKFig = 1;
else
fname = [];
LINKFig = 0;
end;
if (nargin == 0) | ~ischar(varargin{1}) | (LINKFig == 1)
fig = [];
if (nargin == 0 | LINKFig)
[b_scores,d_scores,designlv,s,perm_result,conditions,evt_list,fname, ...
subj_name,subj_group,num_subj_lst,num_cond_lst,subj_name_lst, ...
num_grp] = load_pls_scores(fname);
if isempty(b_scores),
return;
end;
else
b_scores = varargin{1};
d_scores = varargin{2};
conditions = varargin{3};
evt_list = varargin{4};
perm_result = varargin{5};
fname = [];
end;
[tmp tit_fn] = rri_fileparts(get(gcf,'name'));
fig_hdl = init(b_scores,d_scores,designlv,s,perm_result, ...
conditions,evt_list,fname,subj_name,subj_group,num_subj_lst, ...
num_cond_lst,subj_name_lst,num_grp,tit_fn);
if (fig_hdl == -1),
close(gcf);
return;
end;
SetupSlider;
DisplayLVButtons;
PlotBrainDesignScores;
PlotDesignScores;
if (nargout >= 1)
fig = fig_hdl;
end;
return;
end;
% clear the message line,
%
h = findobj(gcf,'Tag','MessageLine');
set(h,'String','');
action = upper(varargin{1});
switch (action),
case {'RESIZE_FIGURE'},
SetObjectPositions;
PlotBrainDesignScores;
PlotDesignScores;
case {'MOVE_SLIDER'},
MoveSlider;
case {'SET_TOP_LV_BUTTON'},
lv_idx = varargin{2};
SetTopLVButton(lv_idx);
case {'TOGGLE_LEGEND'},
ToggleLegend;
case {'TOGGLE_BRAIN_DESIGN_SCORES'},
ToggleBrainDesignScores;
case {'TOGGLE_DESIGN_SCORES'},
ToggleDesignScores;
case {'TOGGLE_PERM_DESIGN_LV'},
ToggleDesignLV;
case {'UPDATE_LV_SELECTION'},
fig_hdl = varargin{2};
lv_idx = varargin{3};
figure(fig_hdl); % may be calling from another figure
SelectLV(lv_idx);
PlotBrainDesignScores;
PlotDesignScores;
PlotDesignLV;
case {'SELECT_LV'},
SelectLV;
PlotBrainDesignScores;
PlotDesignScores;
PlotDesignLV;
case {'DELETE_FIGURE'}
delete_fig;
case {'ZOOM'}
zoom_on_state = get(gcbo,'Userdata');
if (zoom_on_state == 1) % zoom on
zoom on;
set(gcbo,'Userdata',0,'Label','&Zoom off');
set(gcf,'pointer','crosshair');
else % zoom off
zoom off;
set(gcf,'buttondown','fmri_plot_scores(''fig_bt_dn'');');
set(gcbo,'Userdata',1,'Label','&Zoom on');
set(gcf,'pointer','arrow');
end
case {'FIG_BT_DN'}
fig_bt_dn;
case {'EDIT_GROUP'}
edit_group
case {'SELECT_SUBJ'}
select_subj;
otherwise
disp(sprintf('ERROR: Unknown action "%s"',action));
end;
return; % PLS_PLOT_SCORES
%---------------------------------------------------------------------------
function fig_hdl = init(b_scores,d_scores,designlv,s,perm_result,conditions, ...
evt_list,PLSresultFile,subj_name,subj_group,num_subj_lst,num_cond_lst, ...
subj_name_lst,num_grp,tit_fn)
tit = ['PLS Scores Plot [', tit_fn, ']'];
fig_hdl = -1;
save_setting_status = 'on';
fmri_plot_scores_pos = [];
try
load('pls_profile');
catch
end
if ~isempty(fmri_plot_scores_pos) & strcmp(save_setting_status,'on')
pos = fmri_plot_scores_pos;
else
w = 0.85;
h = 0.75;
x = (1-w)/2;
y = (1-h)/2;
pos = [x y w h];
end
hh = figure('Units','normal', ...
'user','PLS Scores Plot', ...
'name',tit, ...
'NumberTitle','off', ...
'Color', [0.8 0.8 0.8], ...
'DoubleBuffer','on', ...
'Menubar', 'none', ...
'DeleteFcn', 'fmri_plot_scores(''DELETE_FIGURE'');', ...
'Position',pos, ...
'Tag','PlotScoresFig');
x = 0.03;
y = 0.2;
w = 0.18;
h = 0.74;
pos = [x y w h];
h0 = uicontrol('Parent',hh, ...
'Units','normal', ...
'BackgroundColor', [0.8 0.8 0.8], ...
'Style', 'frame', ...
'Position', pos, ...
'HorizontalAlignment', 'left',...
'Tag', 'LVFrame');
x = 0.06;
y = 0.9;
w = 0.12;
h = 0.05;
pos = [x y w h];
h0 = uicontrol('Parent',hh, ...
'Units','normal', ...
'BackgroundColor', [0.8 0.8 0.8], ...
'Style', 'text', ...
'Position', pos, ...
'HorizontalAlignment', 'center',...
'FontUnits', 'normal', ...
'FontSize', 0.5, ...
'String', ' Display LVs', ...
'Tag', 'DisplayLVLabel');
x = 0.07;
y = 0.85;
w = 0.1;
pos = [x y w h];
% the font normal does not work here
lv_h = uicontrol('Parent',hh, ...
'Units','normal', ...
'BackgroundColor', [0.8 0.8 0.8], ...
'Style', 'radiobutton', ...
'Position', pos, ...
'HorizontalAlignment', 'left',...
'FontUnits', 'point', ...
'FontSize', 10, ...
'String', 'LV #1', ...
'Visible', 'off', ...
'Callback','fmri_plot_scores(''SELECT_LV'');', ...
'Tag', 'LVRadioButton');
x = x+w+.01;
w = 0.02;
pos = [x y w h];
h0 = uicontrol('Parent',hh, ... % LV Button Slider
'Style','slider', ...
'Units','normal', ...
'Min', 0, ...
'Max', 1, ...
'Visible', 'off', ...
'Position',pos, ...
'Callback','fmri_plot_scores(''MOVE_SLIDER'');', ...
'Tag','LVButtonSlider');
x = 0.07;
y = 0.08;
w = 0.1;
pos = [x y w h];
h0 = uicontrol('Parent',hh, ...
'Units','normal', ...
'Style', 'push', ...
'Position', pos, ...
'FontUnits', 'normal', ...
'FontSize', 0.5, ...
'String', 'Close', ...
'CallBack', 'close(gcf)', ...
'Tag', 'CloseButton');
x = 0.01;
y = 0;
w = .5;
h = 0.04;
pos = [x y w h];
h0 = uicontrol('Parent',hh, ... % Message Line
'Style','text', ...
'Units','normal', ...
'BackgroundColor',[0.8 0.8 0.8], ...
'ForegroundColor',[0.8 0.0 0.0], ...
'FontUnits', 'normal', ...
'FontSize', 0.6, ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'String','', ...
'Tag','MessageLine');
% ----------------------- Menu --------------------------
% file
%
rri_file_menu(hh);
% view
%
h_menu = uimenu('Parent',hh, ...
'Label','&View', ...
'Tag','ViewMenu');
h0 = uimenu('Parent',h_menu, ...
'Label','Hide &Design Scores', ...
'Userdata',1, ... % show design scores
'CallBack', 'fmri_plot_scores(''TOGGLE_DESIGN_SCORES'');', ...
'Tag','DesignMenu');
h0 = uimenu('Parent',h_menu, ...
'Label','Hide &Brain vs Design Scores', ...
'Userdata',1, ... % show brain vs design scores
'CallBack', 'fmri_plot_scores(''TOGGLE_BRAIN_DESIGN_SCORES'');', ...
'Tag','BrainDesignMenu');
h0 = uimenu('Parent',h_menu, ...
'Label','Show Design &Latent Variables', ...
'Userdata',0, ... % show permutation design lv
'CallBack', 'fmri_plot_scores(''TOGGLE_PERM_DESIGN_LV'');', ...
'Tag','DesignLVMenu');
h0 = uimenu('Parent',h_menu, ...
'Label','&Hide Legend', ...
'separator', 'on', ...
'Userdata',1, ... % show legend
'CallBack', 'fmri_plot_scores(''TOGGLE_LEGEND'');', ...
'Tag','LegendMenu');
% zoom
%
h2 = uimenu('parent',hh, ...
'userdata', 1, ...
'callback','fmri_plot_scores(''zoom'');', ...
'label','&Zoom on');
% set up the axes for plotting
%
x = 0.28;
y = 0.1;
w = 0.69;
h = 0.85;
pos = [x y w h];
handle_main_axes = axes('units','normal', ...
'box', 'on', ...
'tickdir', 'out', ...
'ticklength', [0.005 0.005], ...
'fontsize', 10, ...
'xtickmode', 'auto', ...
'xticklabelmode', 'auto', ...
'ytickmode', 'auto', ...
'yticklabelmode', 'auto', ...
'Tag','ScoreAxes', ...
'Visible','off', ...
'position',pos);
h = 0.37;
pos = [x y w h];
handle_bottom_axes = axes('units','normal', ...
'box', 'on', ...
'tickdir', 'out', ...
'ticklength', [0.005 0.005], ...
'fontsize', 10, ...
'xtickmode', 'auto', ...
'xticklabelmode', 'auto', ...
'ytickmode', 'auto', ...
'yticklabelmode', 'auto', ...
'Tag','ScoreAxesBottom', ...
'position',pos);
y = 0.58;
pos = [x y w h];
handle_top_axes = axes('units','normal', ...
'box', 'on', ...
'tickdir', 'out', ...
'ticklength', [0.005 0.005], ...
'fontsize', 10, ...
'xtickmode', 'auto', ...
'xticklabelmode', 'auto', ...
'ytickmode', 'auto', ...
'yticklabelmode', 'auto', ...
'Tag','ScoreAxesTop', ...
'position',pos);
% if ~isempty(PLSresultFile)
% set(hh,'Name',sprintf('PLS Scores Plot: %s',PLSresultFile));
% end;
lv_template = copyobj(lv_h,gcf);
set(lv_template,'Tag','LVTemplate','Visible','off');
num_lv = size(b_scores,2);
curr_lv_state = zeros(1,num_lv);
curr_lv_state(1) = 1;
setappdata(gcf,'EventList',evt_list);
setappdata(gcf,'BrainScores',b_scores);
setappdata(gcf,'DesignScores',d_scores);
setappdata(gcf,'DesignLV',designlv);
setappdata(gcf,'s',s);
setappdata(gcf,'PermutationResult',perm_result);
setappdata(gcf,'Conditions',conditions);
setappdata(gcf,'CurrLVState',curr_lv_state);
setappdata(gcf,'subj_name',subj_name);
setappdata(gcf,'num_subj_lst',num_subj_lst);
setappdata(gcf,'num_cond_lst',num_cond_lst);
setappdata(gcf,'subj_name_lst',subj_name_lst);
setappdata(gcf,'num_grp',num_grp);
% for GUI
setappdata(gcf,'LVButtonHeight',0.05);
setappdata(gcf,'LV_hlist',[lv_h]);
setappdata(gcf,'LVButtonTemplate',lv_template);
setappdata(gcf,'TopLVButton',1);
setappdata(gcf,'ScoreAxes',handle_main_axes);
setappdata(gcf,'ScoreAxes_bottom',handle_bottom_axes);
setappdata(gcf,'ScoreAxes_top',handle_top_axes);
setappdata(gcf,'PlotDesignState',1);
setappdata(gcf,'PlotBrainDesignState',1)
setappdata(gcf,'PlotDesignLVState',0);
fig_hdl = hh;
SetupLVButtonRows;
DisplayLVButtons;
return; % init
% --------------------------------------------------------------------
function SetupLVButtonRows()
lv_hdls = getappdata(gcf,'LV_hlist');
lv_template = getappdata(gcf,'LVButtonTemplate');
row_height = getappdata(gcf,'LVButtonHeight');
frame_pos = get(findobj(gcf,'Tag','LVFrame'),'Position');
first_button_pos = get(findobj(gcf,'Tag','LVRadioButton'),'Position');
top_frame_pos = frame_pos(2) + frame_pos(4);
margin = top_frame_pos - (first_button_pos(2) + first_button_pos(4));
rows = floor((frame_pos(4) - margin*1.5) / row_height);
v_pos = (top_frame_pos - margin) - [1:rows]*row_height;
nr = size(lv_hdls,1);
if (rows < nr) % too many rows
for i=rows+1:nr,
delete(lv_hdls(i));
end;
lv_hdls = lv_hdls(1:rows);
else % add more rows
for i=nr+1:rows,
new_s_hdls = copyobj(lv_template,gcf);
lv_hdls = [lv_hdls; new_s_hdls'];
end;
end;
v = 'on';
for i=1:rows,
new_s_hdls = lv_hdls(i);
pos = get(new_s_hdls(1),'Position'); pos(2) = v_pos(i);
set(new_s_hdls,'String','','Position',pos,'Visible',v,'UserData',i);
end;
% setup slider position
%
h = findobj(gcf,'Tag','LVButtonSlider');
s_pos = get(h,'Position');
s_pos(2) = v_pos(end);
s_pos(4) = v_pos(1) - v_pos(end) + row_height;
set(h,'Position',s_pos);
setappdata(gcf,'LV_hlist',lv_hdls);
setappdata(gcf,'NumLVRows',rows);
return; % SetupLVButtonRows
% --------------------------------------------------------------------
function DisplayLVButtons()
curr_lv_state = getappdata(gcf,'CurrLVState');
top_lv_button = getappdata(gcf,'TopLVButton');
lv_hdls = getappdata(gcf,'LV_hlist');
rows = getappdata(gcf,'NumLVRows');
num_lvs = length(curr_lv_state);
lv_idx = top_lv_button;
for i=1:rows,
l_hdl = lv_hdls(i);
if (lv_idx <= num_lvs),
set(lv_hdls(i),'String',sprintf('LV #%d',lv_idx), ...
'Value',curr_lv_state(lv_idx), ...
'Visible','on', ...
'Userdata',i);
lv_idx = lv_idx + 1;
else
set(lv_hdls(i),'String','','Visible','off');
end
end;
if (top_lv_button ~= 1) | (num_lvs > rows)
set(findobj(gcf,'Tag','LVButtonSlider'),'Visible','on');
else
set(findobj(gcf,'Tag','LVButtonSlider'),'Visible','off');
end;
return; % DisplayLVButtons
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -