vb_msrmnt_get_sampling_frequency

 return sampling frequency from measurement file
 [usage]
   sampling_frequency = vb_msrmnt_get_sampling_frequency(measurement_file)
 [input]
   measurement_file : <required> measurement file path
                    :  e.g. EEG-MAT (.eeg.mat), MEG-MAT (.meg.mat)
 [output]
   sampling_frequency : sampling frequency
 [note]
   acceptable 'Measurement' are :
   'MEG', 'EEG'
 [history]
   2007-08-02 (Sako) initial version
   2011-06-01 (Sako) converted return values of vb_load_device to upper case

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

0001 function sampling_frequency = vb_msrmnt_get_sampling_frequency(measurement_file)
0002 % return sampling frequency from measurement file
0003 % [usage]
0004 %   sampling_frequency = vb_msrmnt_get_sampling_frequency(measurement_file)
0005 % [input]
0006 %   measurement_file : <required> measurement file path
0007 %                    :  e.g. EEG-MAT (.eeg.mat), MEG-MAT (.meg.mat)
0008 % [output]
0009 %   sampling_frequency : sampling frequency
0010 % [note]
0011 %   acceptable 'Measurement' are :
0012 %   'MEG', 'EEG'
0013 % [history]
0014 %   2007-08-02 (Sako) initial version
0015 %   2011-06-01 (Sako) converted return values of vb_load_device to upper case
0016 %
0017 % Copyright (C) 2011, ATR All Rights Reserved.
0018 % License : New BSD License(see VBMEG_LICENSE.txt)
0019 
0020 % --- CHECK ARGUMENTS --- %
0021 if ~exist('measurement_file', 'var') measurement_file = []; end;
0022 measurement_file = inner_check_arguments(measurement_file);
0023 
0024 % --- MAIN PROCEDURE --------------------------------------------------------- %
0025 %
0026 func_ = mfilename;
0027 sampling_frequency = [];
0028 
0029 [measurement] = vb_load_device(measurement_file);
0030 Measurement = upper(measurement);
0031 
0032 switch Measurement
0033   case  'MEG'
0034     sampling_frequency = vb_megfile_get_sampling_frequency(measurement_file);
0035   case  'EEG'
0036     sampling_frequency = vb_eegfile_get_sampling_frequency(measurement_file);
0037   otherwise
0038     error('(%s)unexpected Measurement type : %s', func_, Measurement);
0039 end
0040 %
0041 % --- END OF MAIN PROCEDURE -------------------------------------------------- %
0042 
0043 
0044 % --- INNER FUNCTIONS -------------------------------------------------------- %
0045 %
0046 % --- inner_check_arguments()
0047 %
0048 function measurement_file = inner_check_arguments(measurement_file)
0049 func_ = mfilename;
0050 if isempty(measurement_file)
0051   error('(%s)measurement_file is a required parameter', func_);
0052 end
0053 
0054 if exist(measurement_file, 'file') ~= 2
0055   error('(%s)cannot find measurement file : %s', func_, measurement_file);
0056 end
0057 return;
0058 %
0059 % --- end of inner_check_arguments()
0060 
0061 % --- END OF FILE --- %