vb_test_gave4

 Execute vb_job_leadfield.m.

 [syntax]
 vb_test_gave4

 [output]
 Leadfield file (.basis.mat) is created. 

 [history]
 2010-12-03 Taku Yoshioka

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

0001 function vb_test_gave4
0002 % Execute vb_job_leadfield.m.
0003 %
0004 % [syntax]
0005 % vb_test_gave4
0006 %
0007 % [output]
0008 % Leadfield file (.basis.mat) is created.
0009 %
0010 % [history]
0011 % 2010-12-03 Taku Yoshioka
0012 %
0013 % Copyright (C) 2011, ATR All Rights Reserved.
0014 % License : New BSD License(see VBMEG_LICENSE.txt)
0015 
0016 %
0017 % VBMEG constants
0018 %
0019 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0020 global vbmeg_inst;
0021 const = vbmeg_inst.const;
0022 
0023 %
0024 % subjects and conditions
0025 %
0026 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0027 sbj_id = {'0001','0002','0003','0004'};
0028 cond_id = {'LR'};
0029 
0030 %
0031 % Standard parameters
0032 %
0033 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0034 basis_parm.bem_mode = const.BASIS_MEG_SPHERE;
0035 
0036 %
0037 % Optional parameters
0038 %
0039 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0040 basis_parm.Recalc = OFF;
0041 basis_parm.normal_mode = const.NORMAL_ADJACENT_MEAN;
0042 basis_parm.area_key = [];
0043 basis_parm.Vcenter = [];
0044 
0045 %
0046 % Advanced parameters
0047 %
0048 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0049 basis_parm.Basis_mode = const.CURRENT_NORMAL; 
0050 basis_parm.func_order = 35;
0051 basis_parm.sigma = [ 1.0  0.0125  1.0 ];
0052 basis_parm.radius = [ 0.87  0.92   1.0 ];
0053 
0054 %
0055 % Subject and condition loop
0056 %
0057 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0058 for i=1:length(sbj_id);
0059   proj_root = ['./subjects' filesep sbj_id{i} filesep];
0060   basis_parm.brain_file = ['brain' filesep sbj_id{i} '.brain.mat'];
0061   basis_parm.area_file = ['brain' filesep sbj_id{i} '.area.mat'];
0062   
0063   for j=1:length(cond_id)
0064     basis_parm.meg_file = ['meg' filesep sbj_id{i} '_' cond_id{j} ...
0065                         '.meg.mat'];
0066     basis_parm.basis_file = ['basis' filesep sbj_id{i} '_' cond_id{j} ...
0067                         '.basis.mat'];
0068     vb_job_leadfield(proj_root,basis_parm);
0069   end;
0070 end;
0071 
0072 return;