0001 function ltpdv_plotFilterResp(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010 myh = varargin{1};
0011 htab = varargin{end-1};
0012 mainfig = varargin{end};
0013
0014
0015 filts = getappdata(mainfig, 'Filters');
0016
0017 fh = findobj(mainfig, 'Tag', 'LTPDVfilterList');
0018 idx = get(fh, 'Value');
0019 sfilts = [];
0020 for j=1:length(filts)
0021 if ismember(j, idx)
0022 sfilts = [sfilts filts(j)];
0023 end
0024 end
0025
0026
0027 pl = ltpdv_filter_getf(mainfig);
0028
0029
0030 fr = [];
0031 for j=1:length(sfilts)
0032 filt = sfilts(j);
0033 disp(sprintf(' - filter %03d: %s', j, filt.name));
0034 r = resp(filt, pl);
0035 if isempty(fr)
0036 fr = r;
0037 else
0038 fr = fr.*r;
0039 end
0040 end
0041
0042
0043 iplot(fr);
0044
0045