spssini.m

A MATLAB tool for analysis of Transient Otoacoustic Emission signals

function spfname = spssini(dtapath, f_width)

% spssini initializes an ASCII text-file 
%       spfname = spssini(dtapath, f_width)
%
%

%cl = clock;
%spfname = ['i' sprintf('%2g',cl(2:3)) '.txt'];
%fnind = abs(spfname==32);
%spfname = [dtapath setstr(spfname+(abs('0')-32)*fnind)];

fn = 1; addnum = 1;
while addnum;
  fname = ['ilo_' int2str(fn) '.txt'];
  if exist([dtapath fname]); 
    fn = fn+1;
  else
    currp = cd;
    eval(['cd ' dtapath(1:length(dtapath)-1)]);
    %[fname, dtapath] = uiputfile(fname, 'Save Datafile As (Existing files will be overwritten)');
    [fname, dtapath] = uiputfile(fname, 'Save Datafile As (Append if Exists)');
    eval(['cd ' currp])
    addnum = 0; 
  end  
end


if all([fname dtapath]);
  %if exist([dtapath fname]); delete([dtapath fname]); end
  
  spfid = fopen([dtapath fname],'at');             
  fprintf(spfid,['\n' date '\t' strrep(dtapath,'\','\\') '\t Filters ' f_width '\n']);
  fprintf(spfid,'Filename\t Name\t Ear\t');
  
  freq = ['05';'1 ';'2 ',;'4 ';'6 '];
  String = str2mat('MaxdB','Maxpa','Maxms','Begms','Endms',...
                 'Maxder','Minder');
  
  for i1=1:7;
    for i2=1:5;
      fprintf(spfid,[deblank(String(i1,:)) deblank(freq(i2,:)) '\t']);
    end
  end
  
  SE = ['05'; '1 '; '2 '; '4 '; '6 '];
  for i1=1:5;
    fprintf(spfid,['E_' SE(i1,:) '\t']);
  end
  fprintf(spfid,'\n');
  fclose(spfid);
  
  if nargout>0; spfname = [dtapath fname]; end
  
end