vb_save_basis_proj

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

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

0001 function [] = vb_save_basis_proj(parm, file_identifier)
0002 % Leadfield 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.basis, define.BASIS_EXTENSION) )
0016     BASISfile =...
0017     parm.file.basis(1:findstr(parm.file.basis,...
0018                   define.BASIS_EXTENSION)-1);
0019   else
0020     BASISfile = parm.file.basis;
0021   end
0022   project_fname = [parm.dir.basis BASISfile define.BASIS_PROJECT_EXTENSION];
0023   fd = fopen(project_fname, 'w');
0024 else
0025   fd = file_identifier;
0026 end
0027 
0028 
0029 fprintf(fd, '# << Basis project data >>\n');
0030 
0031 % MEG file (.meg or .meg.mat) のファイル名とディレクトリ名を保存する。
0032 fprintf(fd, 'dir.meg = %s\n', parm.dir.meg);
0033 fprintf(fd, 'file.meg = %s\n', parm.file.meg);
0034 
0035 % BRAIN file (.brain.mat) のファイル名とディレクトリ名を保存する。
0036 fprintf(fd, 'dir.brain = %s\n', parm.dir.brain);
0037 fprintf(fd, 'file.brain = %s\n', parm.file.brain);
0038 
0039 % BASIS file (.basis.mat) のファイル名とディレクトリ名を保存する。
0040 fprintf(fd, 'dir.basis = %s\n', parm.dir.basis);
0041 fprintf(fd, 'file.basis = %s\n', parm.file.basis);
0042 
0043 % Head file (.head.mat) のファイル名とディレクトリ名を保存する。
0044 fprintf(fd, 'dir.head = %s\n', parm.dir.head);
0045 fprintf(fd, 'file.head = %s\n', parm.file.head);
0046 
0047 % keywordとcommentを保存する。
0048 fprintf(fd, 'brain_parm.basis_keyword = %s\n',...
0049     parm.brain_parm.basis_keyword);
0050 fprintf(fd, 'brain_parm.basis_comment = %s\n',...
0051     parm.brain_parm.basis_comment);
0052 
0053 
0054 % Basis_mode  = 1  : current vextor = xx(n,:)
0055 %             = 2  : current vextor = two orthogonal vectors to V(n,:)
0056 fprintf(fd, 'analyze_parm.Basis_mode = %d\n',...
0057     parm.analyze_parm.Basis_mode);
0058 % Normal_mode = 0  : BVから持ってきた皮質法線方向
0059 %             = 1  : 隣接3角面平均法線の隣接点平均
0060 %             = 2  : 隣接3角面平均法線
0061 %             = 3  : BV法線の隣接点平均
0062 fprintf(fd, 'analyze_parm.Normal_mode = %d\n',...
0063     parm.analyze_parm.Normal_mode);
0064 
0065 fprintf(fd, 'analyze_parm.bem_mode = %d\n', ...
0066     parm.analyze_parm.bem_mode);
0067 
0068 % Brain fileのproject dataを保存する。
0069 %brain_parm   = set_parm;
0070 %brain_parm.file.brain = parm.file.brain;
0071 %brain_parm.dir.brain = parm.dir.brain;
0072 %brain_parm = vb_load_brain_proj(brain_parm);
0073 %fprintf(fd, '\n\n');
0074 %vb_save_brain_proj(brain_parm, fd);
0075 
0076 if ~file_identifier    fclose(fd);    end