testifodelay

 $Id: testifodelay.m,v 1.6 2004/05/11 15:08:06 stuver Exp $

0001 function delay = testifodelay(detId, sampFreq, varargin)
0002 
0003 % $Id: testifodelay.m,v 1.6 2004/05/11 15:08:06 stuver Exp $
0004 
0005 addpath ../
0006 
0007 if length(varargin) ~= 0
0008     if length(varargin) == 1
0009         plotSwitch = varargin{:};
0010         if strcmp(lower(plotSwitch), 'off')
0011             off = true;
0012         else
0013             off = ~true;
0014         end
0015         
0016     else
0017         error('testdetproj: varargin = plotSwitch')
0018     end
0019 else
0020     off = ~true;
0021 end
0022 
0023 xx = 0:pi/100:pi;
0024 yy = -pi:pi/50:pi;
0025 
0026 b=waitbar(0,['Calculating delay for ' detId '...']);
0027 
0028 for m = 1:length(xx)
0029     for n = 1:length(yy)
0030         delay(m,n) = ifodelay(detId,cos(xx(m)),yy(n), sampFreq);
0031         waitbar(m/length(xx),b)
0032     end
0033 end
0034 
0035 close(b)
0036 
0037 if ~off
0038     ligomap(-pi:pi/50:pi,pi/2:-pi/100:-pi/2,delay);
0039     
0040     figure(1)
0041     title(['Samples to Add - ' detId])
0042     figure(2)
0043     title(['Samples to Add - ' detId])
0044 end
0045 
0046 return