Home > functions > job > job_plot_currentmap_dir > job_plot_cmap_update_filterradius.m

job_plot_cmap_update_filterradius

PURPOSE ^

Processing required when updating filter radius

SYNOPSIS ^

function job_plot_cmap_update_filterradius(inst_id)

DESCRIPTION ^

 Processing required when updating filter radius
 
 [syntax]
 job_plot_cmap_update_filterradius(inst_id)

 --- History
 ????-??-?? Taku Yoshioka
 2008-09-01 Taku Yoshioka
 2010-12-09 taku-y
 [internal change] job_plot_cmap_gauss_filter was replaced by
                   vb_spatial_gauss_filter. 
 2012-02-17 taku-y
 [minor] brainfile -> brain_file

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function job_plot_cmap_update_filterradius(inst_id)
0002 % Processing required when updating filter radius
0003 %
0004 % [syntax]
0005 % job_plot_cmap_update_filterradius(inst_id)
0006 %
0007 % --- History
0008 % ????-??-?? Taku Yoshioka
0009 % 2008-09-01 Taku Yoshioka
0010 % 2010-12-09 taku-y
0011 % [internal change] job_plot_cmap_gauss_filter was replaced by
0012 %                   vb_spatial_gauss_filter.
0013 % 2012-02-17 taku-y
0014 % [minor] brainfile -> brain_file
0015 %
0016 % Copyright (C) 2011, ATR All Rights Reserved.
0017 % License : New BSD License(see VBMEG_LICENSE.txt)
0018 
0019 global vbmeg_inst; 
0020 if isempty(vbmeg_inst.plotcmap{inst_id}.V), return; end
0021 
0022 %
0023 % Global variables
0024 %
0025 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0026 h_fig      = vbmeg_inst.plotcmap{inst_id}.h_fig;
0027 ed5        = vbmeg_inst.plotcmap{inst_id}.ed5; 
0028 brain_file = vbmeg_inst.plotcmap{inst_id}.brain_file;
0029 
0030 % Filter radius check
0031 Rfilt = 1e-3*str2num(get(ed5,'String'));
0032 if Rfilt<0, Rfilt=0; end;
0033 vbmeg_inst.plotcmap{inst_id}.Rfilt = Rfilt;
0034 
0035 % Update GUI component
0036 set(ed5,'String',num2str(Rfilt*1e3));
0037 
0038 %
0039 % Filter calculation
0040 %
0041 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0042 set(h_fig,'Pointer','watch');
0043 drawnow;
0044 ix_all = 1:length(vbmeg_inst.plotcmap{inst_id}.nextDD);
0045 
0046 % Rfilt=10000. In practice, this gives uniform value inside of the
0047 % radius.
0048 W = vb_spatial_gauss_filter(brain_file,10000,Rfilt,ix_all,0);
0049 
0050 vbmeg_inst.plotcmap{inst_id}.W = W;
0051 set(h_fig,'Pointer','arrow');
0052 
0053 return;

Generated on Tue 27-Aug-2013 11:46:04 by m2html © 2005