Home > vbmeg > functions > common > log > vb_save_fmri_proj.m

vb_save_fmri_proj

PURPOSE ^

fMRI menuのproject fileを保存する。

SYNOPSIS ^

function [] = vb_save_fmri_proj(parm, file_identifier)

DESCRIPTION ^

 fMRI menuのproject fileを保存する。
 file_identifier > 0の時はデータファイルをオープンしてから、
 この関数をcallした。この関数の中でファイルをopen/closeしない。

 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 [] = vb_save_fmri_proj(parm, file_identifier)
0002 % fMRI menuのproject fileを保存する。
0003 % file_identifier > 0の時はデータファイルをオープンしてから、
0004 % この関数をcallした。この関数の中でファイルをopen/closeしない。
0005 %
0006 % Copyright (C) 2011, ATR All Rights Reserved.
0007 % License : New BSD License(see VBMEG_LICENSE.txt)
0008 
0009 % 2005-03-20 Modified by TY
0010 %global    define
0011 global vbmeg_inst; 
0012 define = vbmeg_inst.const; 
0013 
0014 if file_identifier == false    % project fileを開く。
0015   if ~isempty( findstr(parm.file.act, define.FMRI_EXTENSION) )
0016     FMRIfile =...
0017     parm.file.act(1:findstr(parm.file.act, define.FMRI_EXTENSION)-1);
0018   else
0019     FMRIfile = parm.file.act;
0020   end
0021   project_fname = [parm.dir.act  FMRIfile define.FMRI_PROJECT_EXTENSION];
0022   fd = fopen(project_fname, 'w');
0023 else
0024   fd = file_identifier;
0025 end
0026 
0027 fprintf(fd, '# << fMRI project datas >>\n');
0028 
0029 % BRAIN file (.brain.mat) のファイル名とディレクトリ名を保存する。
0030 fprintf(fd, 'dir.brain = %s\n', parm.dir.brain);
0031 fprintf(fd, 'file.brain = %s\n', parm.file.brain);
0032 
0033 % Area file (.area.mat) のファイル名とディレクトリ名を保存する。
0034 fprintf(fd, 'dir.area = %s\n', parm.dir.area);
0035 fprintf(fd, 'file.area = %s\n', parm.file.area);
0036 
0037 % fMRI file (.act.mat) のファイル名とディレクトリ名を保存する。
0038 fprintf(fd, 'dir.act = %s\n', parm.dir.act);
0039 fprintf(fd, 'file.act = %s\n', parm.file.act);
0040 
0041 % commentを保存する。
0042 fprintf(fd, 'brain_parm.fmri_comment = %s\n', parm.brain_parm.fmri_comment);
0043 
0044 % SPM listを獲得する。
0045 list=vb_get_keyset_act([parm.dir.act parm.file.act]);
0046 for i=1:length(list)
0047   fprintf(fd, 'SPM_ID%d = %s\n', i, list{i});
0048 end
0049 
0050 if ~file_identifier    fclose(fd);    end

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