ctf_read_meg4_old.m

含有多种ICA算法的eeglab工具箱

function [ctf] = ctf_read_meg4(folder,ctf,CHAN,TIME,TRIALS);

% ctf_read_meg4 - read meg4 format data from a CTF .ds folder
%
% [ctf] = ctf_read_meg4([folder],[ctf],[CHAN],[TIME],[TRIALS]);
%
% INPUTS
%
% folder - the directory of the .ds data set to read.  By
% default, a gui prompts for the folder.
%
% ctf - a struct with setup, sensor and data fields.  If the setup field is
% missing or empty, this function calls ctf_read_res4.
%
% CHAN - a integer array of channel numbers to read.
% eg, [30:35] reads channels 30 to 35.  Also
% If CHAN = 'eeg', read only eeg channels/sensorIndices
% If CHAN = 'meg', read only meg channels/sensorIndices
% If CHAN = 'ref', read only reference channels/sensorIndices
% If CHAN = 'other', read only the other channels/sensorIndices
% If CHAN = 'megeeg', read meg and eeg channels/sensorIndices
%
% TIME - eg. [0 5] - the desired time interval to read, in sec.
%        If TIME = 'all', all data is read (the default)
%
% TRIALS - If TRIALS = n, the nth trial will be read.
%          If TRIALS = [3,5,8], reads trials 3,5, and 8 such that
%          ctf.data{1} = data for trial 3,
%          ctf.data{2} = data for trial 5, and 
%          ctf.data{3} = data for trial 8.
%          If TRIALS = [3:7], reads trials 3 to 7
%          If TRIALS = 'all', reads all data (the default)
%
% OUTPUTS
% ctf.data                  - cell array of all the data, eg. ctf.data{x}
% ctf.sensor.names          - cell array of sensor names
% ctf.sensor.location       - array of sensor locations for plotting
% ctf.sensor.orientation    - array of sensor orientations
% ctf.header                - used for writing new meg4 file
%
%
%      <>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %
%      <                                                       > %  
%      <                      DISCLAIMER:                      > %
%      <                                                       > %
%      < THIS PROGRAM IS INTENDED FOR RESEARCH PURPOSES ONLY.  > %
%      < THIS PROGRAM IS IN NO WAY INTENDED FOR CLINICAL OR    > %
%      <                     OFFICIAL USE.                     > %
%      <                                                       > %
%      <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<> %
%


% $Revision: 1.1 $ $Date: 2004/03/18 06:38:41 $

% Licence:  GNU GPL, no express or implied warranties
% Modified: 11/2003, Darren.Weber_at_radiology.ucsf.edu
%                    - modified from NIH code simply to allocate data into
%                    one large struct (ctf)
%                    - modified channel selection section at the end so
%                    that it doesn't try to get orientation information for
%                    EEG channels
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if ~exist('folder','var'),
  if ~exist('ctf','var'),
    ctf = ctf_folder;
  else
    ctf = ctf_folder([],ctf);
  end
else
  if ~exist('ctf','var'),
    ctf = ctf_folder(folder);
  else
    ctf = ctf_folder(folder,ctf);
  end
end

if ~isfield(ctf,'setup'),
  ctf = ctf_read_res4(ctf.folder);
end


% open the data file
[folderPath,folderName,folderExt] = fileparts(ctf.folder);
ctf.meg4.file = [ctf.folder,filesep,folderName,'.meg4'];

[fid,message] = fopen(ctf.meg4.file,'rb','s');
if fid < 0, error(message); end


if ~exist('CHAN','var'),   CHAN   = 'all'; end
if ~exist('TIME','var'),   TIME   = 'all'; end
if ~exist('TRIALS','var'), TRIALS = 'all'; end

if isempty(CHAN),   CHAN   = 'all'; end
if isempty(TIME),   TIME   = 'all'; end
if isempty(TRIALS), TRIALS = 'all'; end

switch num2str(CHAN),
  case 'meg',
    CHAN = ctf.sensor.index.meg;
  case 'eeg',
    CHAN = ctf.sensor.index.eeg;
  case 'ref',
    CHAN = ctf.sensor.index.ref;
  case 'other',
    CHAN = ctf.sensor.index.other;
  case 'megeeg',
    CHAN = [ ctf.sensor.index.meg ctf.sensor.index.eeg ];
  case 'all',
    CHAN = [1:ctf.setup.number_channels];
  otherwise
    % assume the input is a range of channel numbers
end

switch num2str(TIME),
  case 'all',
    TIME = ctf.setup.time_sec;
  otherwise
    % assume the input is a range of times
end

switch num2str(TRIALS),
  case 'all',
    TRIALS = 1:ctf.setup.number_trials;
  otherwise
    % assume the input is a range of trials
end



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

ver = '$Revision: 1.1 $';
fprintf('\nCTF_READ_MEG4 [v %s]\n',ver(11:15)); tic;


% Read the header (data format identifier)
ctf.meg4.header = char(fread(fid,8,'char'))';

% check the format
if strmatch('MEG41CP',ctf.meg4.header),
  % OK, we can handle this format
else
  msg = sprintf('May not read "%s" format correctly',ctf.meg4.header);
  warning(msg);
end



% Get sensor indices
megIndex =   ctf.sensor.index.meg_sens;
refIndex =   ctf.sensor.index.meg_ref;
eegIndex =   ctf.sensor.index.eeg_sens;
otherIndex = ctf.sensor.index.other;

% Setup gains and offsets
channel_gain = zeros(1,ctf.setup.number_channels);
channel_gain(megIndex)   = [ctf.sensor.info(megIndex).proper_gain] .* [ctf.sensor.info(megIndex).q_gain];
channel_gain(refIndex)   = [ctf.sensor.info(refIndex).proper_gain] .* [ctf.sensor.info(refIndex).q_gain];
channel_gain(eegIndex)   = [ctf.sensor.info(eegIndex).q_gain];
channel_gain(otherIndex) = [ctf.sensor.info(otherIndex).q_gain];



trial_size  = 4 * ctf.setup.number_channels * ctf.setup.number_samples;

small_trial = 4 * (min(CHAN)-1) * ctf.setup.number_samples;

large_trial = 4 * (ctf.setup.number_channels - max(CHAN)) * ctf.setup.number_samples; 

% check the duration

duration = TIME(end) - TIME(1);

if duration > ctf.setup.duration_trial,
  fprintf('...TIME input too large for trial\n')
  duration = ctf.setup.duration_trial;
  fprintf('...setting TIME= %g seconds (ctf.setup.duration_trial)',ctf.setup.duration_trial);
end

samples = round((duration) * ctf.setup.sample_rate) + 1;
intime  = round((TIME(1) - ctf.setup.time_sec(1)) * ctf.setup.sample_rate) + 1;

% s_rt = 1/(ctf.setup.time_sec(2) - ctf.setup.time_sec(1));
% samples = round((duration)*s_rt)+1;
% intime = round((TIME(1)-ctf.setup.time_sec(1))*s_rt)+1;



% Read trial data

ctf.setup.number_trials = length(TRIALS);
ctf.setup.number_channels = length(CHAN);

ctf.data = cell(ctf.setup.number_trials,1);

tr = 0;
for trial = TRIALS,
  
  tr = tr + 1;
  
  ctf.data{tr} = zeros(ctf.setup.number_channels,samples);
  if tr > 1,
    backspaces = '\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b';
    fprintf([backspaces,'...reading %4d of %4d trials\n'],tr,ctf.setup.number_trials);
  else
    fprintf('...reading %4d of %4d trials\n',tr,ctf.setup.number_trials);
  end
  
  % Define data file bytes to read
  if trial == TRIALS(1);
    % 1st trial
    bytes = [ (trial-1) * trial_size ] + small_trial + [ 4 * (intime-1) ];
    fseek(fid,bytes,0);
  else
    bytes = [ (trial - TRIALS(tr-1) -1) * trial_size ] + small_trial + large_trial;
    fseek(fid,bytes,0);
  end
  
  %Read data, channels in columns, data samples in rows
  %fseek(fid,ftell(fid) + 4,-1);
  
  ctf.data{tr} = fread(fid,[samples ctf.setup.number_channels],[num2str(samples),'*int32=>int32'],4*(ctf.setup.number_samples-samples));
  
  % [DLW] Why is this CHAN - min(CHAN)+1?  The next line only uses CHAN.
  ctf.data{tr} = ctf.data{tr}(:,CHAN - min(CHAN)+1);
  
  ctf.data{tr} = double(ctf.data{tr}) * diag(1./channel_gain(CHAN));
  
end



% assign sensor locations and orientations for selected channels, this
% section will simplify the data allocated by ctf_read_res4

fprintf('...sorting %d sensors\n',ctf.setup.number_channels);

ctf.sensor.location = zeros(3,ctf.setup.number_channels);
ctf.sensor.orientation = zeros(3,ctf.setup.number_channels);

ctf.sensor.label = [];

for channel = CHAN,
  
  % not sure this next line makes sense [DLW]
  j=channel-min(CHAN)+1;
  
  % All channels have a label
  if length(ctf.sensor.info(channel).label) <= 5,
    ctf.sensor.label{1,j} = ctf.sensor.info(channel).label;
  else
    ctf.sensor.label{1,j} = ctf.sensor.info(channel).label(1:5);
  end
  
  % All channels have a location
  
  % EEG channels do not have any orientation
  
  switch ctf.sensor.info(channel).index,
    
    case {ctf.sensor.type.meg_sens, ctf.sensor.type.meg_ref},
      
      % MEG channels are radial gradiometers, so they have an inner (1) and
      % an outer (2) location
      if ~isempty(ctf.sensor.info(channel).location),
        ctf.sensor.location(:,j) = ctf.sensor.info(channel).location(:,1);
      end
      
      if ~isempty(ctf.sensor.info(channel).orientation),
        ctf.sensor.orientation(:,j) = ctf.sensor.info(channel).orientation(:,1);
      end
      
    case ctf.sensor.type.eeg_sens,
      
      if ~isempty(ctf.sensor.info(channel).location),
        ctf.sensor.location(:,j) = ctf.sensor.info(channel).location(:,1);
      end
      
  end
end







%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% NEED TO CHECK ctf.setup parameters here, to adjust for any changes
% required by the CHAN, TIME, TRIALS inputs
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if ctf.setup.number_channels ~= size(ctf.data,2),
  %error('setup.number_channels ~= size(ctf.data,2)');
end


fclose(fid);

t = toc; fprintf('...done (%6.2f sec)\n\n',t);

return