0001 function ltpdv_zeroAdd(varargin)
0002
0003
0004 myh = varargin{1};
0005 htab = varargin{end-1};
0006 mainfig = varargin{end};
0007
0008
0009
0010 fh = findobj(htab, 'Tag', 'LTPDVfilterPZfreq');
0011 fstr = get(fh, 'String');
0012 if ~isempty(fstr)
0013 f = str2num(fstr);
0014
0015
0016 qh = findobj(htab, 'Tag', 'LTPDVfilterPZq');
0017 q = str2num(get(qh, 'String'));
0018
0019
0020 zeros = getappdata(mainfig, 'FilterZeros');
0021 if isempty(q)
0022 zeros = [zeros pz(f)];
0023 else
0024 zeros = [zeros pz(f,q)];
0025 end
0026 setappdata(mainfig, 'FilterZeros', zeros);
0027
0028
0029 ltpdv_set_zero_list(mainfig);
0030 end
0031
0032