view m-toolbox/m/gui/ltpdv/callbacks/ltpdv_poleAdd.m @ 16:91f21a0aab35
database-connection-manager
Update utils.jquery
* * *
Update utils.jmysql.getsinfo
author
Daniele Nicolodi <nicolodi@science.unitn.it>
date
Mon, 05 Dec 2011 16:20:06 +0100 (2011-12-05)
parents
f0afece42f48
children
line source
+ − function ltpdv_poleAdd(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 pole list
+ − poles = getappdata(mainfig, 'FilterPoles');
+ − if isempty(q)
+ − poles = [poles pz(f)];
+ − else
+ − poles = [poles pz(f,q)];
+ − end
+ − setappdata(mainfig, 'FilterPoles', poles);
+ −
+ − % Set pole list
+ − ltpdv_set_pole_list(mainfig);
+ − end
+ −
+ −