0001 function pzm = ltpdv_filter_get_pzmodel(mainfig)
0002
0003
0004 poles = getappdata(mainfig, 'FilterPoles');
0005
0006
0007 zeros = getappdata(mainfig, 'FilterZeros');
0008
0009
0010 gh = findobj(mainfig, 'Tag', 'LTPDVfilterPZgain');
0011 gstr = get(gh, 'String');
0012 if ~isempty(gstr)
0013 gain = num2str(gstr);
0014 else
0015 gain = 1;
0016 end
0017
0018
0019 pzm = pzmodel(gain, poles, zeros);
0020
0021
0022 nh = findobj(mainfig, 'Tag', 'LTPDVfilterPZname');
0023 nstr = get(nh, 'String');
0024 if ~isempty(nstr)
0025 pzm.name = nstr;
0026 end
0027
0028
0029