Home > vbmeg > functions > device > vb_msrmnt_set_spherical_data.m

vb_msrmnt_set_spherical_data

PURPOSE ^

set spherical data (Vcenter, Vradius) to a .meg.mat file or .eeg.mat file

SYNOPSIS ^

function vb_msrmnt_set_spherical_data( msrmnt_file, sph_data )

DESCRIPTION ^

 set spherical data (Vcenter, Vradius) to a .meg.mat file or .eeg.mat file
 [usage]
   vb_msrmnt_set_spherical_data( msrmnt_file, sph_data )
 [input]
   msrmnt_file : <required> <<file>> target file (.meg.mat or .eeg.mat)
      sph_data : <required> <<struct>> data of spherical model
                 following fields are required.
                  .Vcenter : (x,y,z) center coordinate of the spherical model
                  .Vradius : [m] radius of the spherical model
 [output]
   none
 [note]
   updated fields are .Vcenter and .Vradius of MEGinfo or EEGinfo
 [history]
   2011-05-30 (Sako) initial version

 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:

SUBFUNCTIONS ^

SOURCE CODE ^

0001 function vb_msrmnt_set_spherical_data( msrmnt_file, sph_data )
0002 % set spherical data (Vcenter, Vradius) to a .meg.mat file or .eeg.mat file
0003 % [usage]
0004 %   vb_msrmnt_set_spherical_data( msrmnt_file, sph_data )
0005 % [input]
0006 %   msrmnt_file : <required> <<file>> target file (.meg.mat or .eeg.mat)
0007 %      sph_data : <required> <<struct>> data of spherical model
0008 %                 following fields are required.
0009 %                  .Vcenter : (x,y,z) center coordinate of the spherical model
0010 %                  .Vradius : [m] radius of the spherical model
0011 % [output]
0012 %   none
0013 % [note]
0014 %   updated fields are .Vcenter and .Vradius of MEGinfo or EEGinfo
0015 % [history]
0016 %   2011-05-30 (Sako) initial version
0017 %
0018 % Copyright (C) 2011, ATR All Rights Reserved.
0019 % License : New BSD License(see VBMEG_LICENSE.txt)
0020 
0021 % --- CHECK ARGUMENTS --- %
0022 if ~exist('msrmnt_file', 'var'), msrmnt_file = ''; end
0023 if ~exist('sph_data', 'var'), sph_data = []; end
0024 [msrmnt_file, sph_data] = inner_check_arguments(msrmnt_file, sph_data);
0025 
0026 % --- MAIN PROCEDURE --------------------------------------------------------- %
0027 %
0028 [measurement] = vb_load_device(msrmnt_file);
0029 Measurement = upper(measurement);
0030 
0031 msrmnt = load(msrmnt_file);
0032 
0033 switch Measurement
0034   case 'MEG'
0035     if isfield(sph_data, 'Vcenter')
0036       msrmnt.MEGinfo.Vcenter = sph_data.Vcenter;
0037     end
0038   
0039     if isfield(sph_data, 'Vradius')
0040       msrmnt.MEGinfo.Vradius = sph_data.Vradius;
0041     end
0042 
0043   case 'EEG'
0044     if isfield(sph_data, 'Vcenter')
0045       msrmnt.EEGinfo.Vcenter = sph_data.Vcenter;
0046     end
0047   
0048     if isfield(sph_data, 'Vradius')
0049       msrmnt.EEGinfo.Vradius = sph_data.Vradius;
0050     end
0051 
0052   otherwise
0053     warning('%s is unknown measurement\n', Measurement);
0054     return;
0055 end
0056 
0057 vb_save_struct(msrmnt_file, msrmnt);
0058 return;
0059 %
0060 % --- END OF MAIN PROCEDURE -------------------------------------------------- %
0061 
0062 % --- INNER FUNCTIONS -------------------------------------------------------- %
0063 %
0064 % --- inner_check_arguments()
0065 %
0066 function [msrmnt_file, sph_data] = inner_check_arguments(msrmnt_file, sph_data)
0067 func_ = mfilename;
0068 
0069 if isempty(msrmnt_file)
0070   error('(%s) msrmnt_file is a required parameter', func_);
0071 end
0072 if exist(msrmnt_file, 'file') ~= 2
0073   error('(%s) cannot be found msrmnt_file : %s', func_, msrmnt_file);
0074 end
0075 
0076 if isempty(sph_data)
0077   error('(%s) sph_data is a required parameter', func_);
0078 end
0079 return;
0080 %
0081 % --- end of inner_check_arguments()
0082 %
0083 % --- END OF INNER FUNCTIONS ------------------------------------------------- %
0084 
0085 % --- END OF FILE --- %
0086 
0087

Generated on Mon 22-May-2023 06:53:56 by m2html © 2005