rmeddis@33: function profile2mFile(longTone, shortTone, gaps, BFs, TMC, offBFs, ...
rmeddis@33:     IFMCs, mFileName)
rmeddis@33: 
rmeddis@33: St = ['function x = ' mFileName ];
rmeddis@36: fid = fopen(['..' filesep 'profiles' filesep mFileName '.m'],'w');
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@34: St = ['%created: ' UTIL_timeStamp];
rmeddis@34: fprintf(fid, '%s\n\n', St);
rmeddis@34: 
rmeddis@33: St = ['x.BFs = [' num2str(BFs) '];' ];
rmeddis@34: fprintf(fid, '%s\n\n', St);
rmeddis@33: 
rmeddis@33: St = ['x.LongTone = [' num2str(longTone',3) '];' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@33: St = ['x.ShortTone = [' num2str(shortTone',3) '];' ];
rmeddis@34: fprintf(fid, '%s\n\n', St);
rmeddis@33: 
rmeddis@33: St = ['x.Gaps = [' num2str(gaps',3) '];' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@33: TMCFreq = BFs;
rmeddis@33: St = ['x.TMCFreq = [' num2str(TMCFreq) '];' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@34: fprintf(fid, '%s\n', 'x.TMC = [');
rmeddis@33: for i = 1:size(TMC,1),
rmeddis@33:     for j = 1:size(TMC,2),
rmeddis@33:         St = [num2str(TMC(i,j),3)];
rmeddis@33:         fprintf(fid, '%s\t', St);
rmeddis@33:     end
rmeddis@33:     fprintf(fid,'%s\n',' ');
rmeddis@33: end
rmeddis@33: fprintf(fid,'%s\n','];');
rmeddis@33: 
rmeddis@33: St = ['x.TMC = x.TMC'';' ];
rmeddis@34: fprintf(fid, '%s\n\n', St);
rmeddis@33: 
rmeddis@33: St = ['x.MaskerRatio = [' num2str(offBFs',2) '];' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@33: IFMCFreq = BFs;
rmeddis@33: St = ['x.IFMCFreq = [' num2str(IFMCFreq) '];' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@34: fprintf(fid, '%s\n', 'x.IFMCs = [');
rmeddis@33: for i = 1:size(IFMCs,1),
rmeddis@33:     for j = 1:size(IFMCs,2),
rmeddis@33:         St = [num2str(IFMCs(i,j),3)];
rmeddis@33:         fprintf(fid, '%s\t', St);
rmeddis@33:     end
rmeddis@33:     fprintf(fid,'%s\n',' ');
rmeddis@33: end
rmeddis@33: fprintf(fid,'%s\n','];');
rmeddis@33: 
rmeddis@33: St = ['x.IFMCs = x.IFMCs'';' ];
rmeddis@33: fprintf(fid, '%s\n', St);
rmeddis@33: 
rmeddis@33: fclose(fid);
rmeddis@33: 
rmeddis@33: 
rmeddis@33: 
rmeddis@33: 
rmeddis@33: 
rmeddis@33: 
rmeddis@33: 
rmeddis@33: