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