+
−function ltpdv_zeroAdd(varargin)
+
−
+
−% Handles
+
−myh     = varargin{1};
+
−htab    = varargin{end-1};
+
−mainfig = varargin{end};
+
−
+
−
+
−% Get freq
+
−fh = findobj(htab, 'Tag', 'LTPDVfilterPZfreq');
+
−fstr = get(fh, 'String');
+
−if ~isempty(fstr)
+
−   f  = str2num(fstr);
+
−
+
−   % Get Q
+
−   qh = findobj(htab, 'Tag', 'LTPDVfilterPZq');
+
−   q  = str2num(get(qh, 'String'));
+
−
+
−   % Add to zero list
+
−   zeros = getappdata(mainfig, 'FilterZeros');
+
−   if isempty(q)
+
−      zeros = [zeros pz(f)];
+
−   else
+
−      zeros = [zeros pz(f,q)];
+
−   end
+
−   setappdata(mainfig, 'FilterZeros', zeros);
+
−
+
−   % Set pole list
+
−   ltpdv_set_zero_list(mainfig);
+
−end
+
−
+
−