mfbox_pos_denoiseg.m

toolbox for spm 5 for data, model free analysis

function varargout=mfbox_pos_denoiseg(varargin)
% MFBOX_POS_DENOISEG M-file for mfbox_pos_denoiseg.fig
%
% See also: GUIDE, GUIDATA, GUIHANDLES
%
% Copyright by Peter Gruber and Fabian J. Theis
% Signal Processing & Information Theory group
% Institute of Biophysics, University of Regensburg, Germany
% Homepage: http://research.fabian.theis.name
%           http://www-aglang.uni-regensburg.de
%
% This file is free software, subject to the 
% GNU GENERAL PUBLIC LICENSE, see gpl.txt

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',mfilename, ...
    'gui_Singleton',gui_Singleton, ...
    'gui_OpeningFcn',@mfbox_pos_denoiseg_OpeningFcn, ...
    'gui_OutputFcn',@mfbox_pos_denoiseg_OutputFcn, ...
    'gui_LayoutFcn',[] , ...
    'gui_Callback',[]);
if (nargin&&(ischar(varargin{1})))
    gui_State.gui_Callback = str2func(varargin{1});
end

if (nargout)
    [varargout{1:nargout}] = gui_mainfcn(gui_State,varargin{:});
else
    gui_mainfcn(gui_State,varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before mfbox_pos_denoiseg is made visible.
function mfbox_pos_denoiseg_OpeningFcn(hObject,eventdata,handles,varargin)
% varargin{1} contains data A
% varargin{2} contains data W
% varargin{3} contains data S
% varargin{4} (optional) contains data X
% varargin{5} (optional) contains the parameters

handles.output = hObject;

handles.A = varargin{1};
handles.W = varargin{2};
handles.S = varargin{3};
s = size(handles.S.dat);
handles.dim = s(1:(end-1));
handles.n = size(handles.S.map,2);
handles.timesteps = size(handles.A,1);

handles.methods = {handles.temp_rad,handles.spat_rad,handles.tempspat_rad};
handles.act = {{handles.tempdelaydim,handles.tempmethod}, ...
    {handles.spatdelaydim,handles.spatcluster,handles.spatstep}};

if (nargin>6), handles.X = varargin{4}; end
if (nargin>7), handles.params = varargin{5};
else handles.params = [];
end

set(handles.tempdelaydim,'String',mat2str(handles.params.tempdelaydim));
dmethods = {'ica','pca'};
set(handles.tempmethod,'String',dmethods);
for i=1:length(dmethods)
    if (strcmp(dmethods{i},handles.params.tempmethod))
        set(handles.tempmethod,'Value',i);
    end
end
set(handles.spatdelaydim,'String',mat2str(handles.params.spatdelaydim));
set(handles.spatcluster,'String',mat2str(handles.params.spatclusters));
set(handles.spatstep,'String',mat2str(handles.params.spatstepsize));
for i=1:length(handles.methods)
    set(handles.methods{i},'Value',i==(handles.params.method*[1;2]));
end
v = {'off','on'};
for i=1:length(handles.params.method)
    for j=1:length(handles.act{i})
        set(handles.act{i}{j},'Enable',v{1+handles.params.method(i)});
    end
end

guidata(hObject,handles);

uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout=mfbox_pos_denoiseg_OutputFcn(hObject,eventdata,handles)
% varargout{1} contains the (edited) params

if (isstruct(handles))
    varargout{1} = handles.params;
    close(handles.figure1);
else
    varargout{1} = [];
end


% --- Executes on button press in run.
function run_Callback(hObject,eventdata,handles)

handles.params.delaydim = str2double(get(handles.tempdelaydim,'String'));
contents = get(handles.tempmethod,'String');
handles.params.tempmethod = contents{get(handles.tempmethod,'Value')};
handles.params.spatdelaydim = str2double(get(handles.spatdelaydim,'String'));
handles.params.spatclusters = str2double(get(handles.spatcluster,'String'));
handles.params.spatstepsize = str2double(get(handles.spatstep,'String'));

guidata(hObject,handles);

uiresume(gcf);


function tempdelaydim_Callback(hObject,eventdata,handles)

set(hObject,'String',mat2str(floor(str2double(get(hObject,'String')))));


% --- Executes during object creation, after setting all properties.
function tempdelaydim_CreateFcn(hObject,eventdata,handles)

if (ispc&&(isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))))
    set(hObject,'BackgroundColor','white');
end


function spatstep_Callback(hObject,eventdata,handles)

set(hObject,'String',mat2str(floor(str2double(get(hObject,'String')))));

guidata(hObject,handles);


function spatcluster_Callback(hObject,eventdata,handles)

set(hObject,'String',mat2str(floor(str2double(get(hObject,'String')))));

guidata(hObject,handles);


% --- Executes on selection change in tempmethod.
function tempmethod_Callback(hObject,eventdata,handles)


% --- Executes during object creation, after setting all properties.
function tempmethod_CreateFcn(hObject,eventdata,handles)

if (ispc&&(isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in temp_rad.
function temp_rad_Callback(hObject,eventdata,handles)

for i=1:length(handles.methods), set(handles.methods{i},'Value',i==1); end
m = [1,0];
v = {'off','on'};
for i=1:length(m)
    for j=1:length(handles.act{i})
        set(handles.act{i}{j},'Enable',v{1+m(i)});
    end
end

guidata(hObject, handles);


% --- Executes on button press in spat_rad.
function spat_rad_Callback(hObject,eventdata,handles)

for i=1:length(handles.methods), set(handles.methods{i},'Value',i==2); end
m = [0,1];
v = {'off','on'};
for i=1:length(m)
    for j=1:length(handles.act{i})
        set(handles.act{i}{j},'Enable',v{1+m(i)});
    end
end

guidata(hObject,handles);


% --- Executes on button press in tempspat_rad.
function tempspat_rad_Callback(hObject,eventdata,handles)

for i=1:length(handles.methods), set(handles.methods{i},'Value',i==3); end
m = [1,1];
v = {'off','on'};
for i=1:length(m)
    for j=1:length(handles.act{i})
        set(handles.act{i}{j},'Enable',v{1+m(i)});
    end
end

guidata(hObject,handles);


function spatdelaydim_Callback(hObject,eventdata,handles)

set(hObject,'String',mat2str(floor(str2double(get(hObject,'String')))));

guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function spatdelaydim_CreateFcn(hObject,eventdata,handles)

if (ispc&&(isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))))
    set(hObject,'BackgroundColor','white');
end


% --- Executes during object creation, after setting all properties.
function spatcluster_CreateFcn(hObject,eventdata,handles)

if (ispc&&(isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))))
    set(hObject,'BackgroundColor','white');
end


% --- Executes during object creation, after setting all properties.
function spatstep_CreateFcn(hObject,eventdata,handles)

if (ispc&&(isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor'))))
    set(hObject,'BackgroundColor','white');
end