0001 function pstr = char(w, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 VERSION = '$Id: char.m,v 1.5 2008/02/12 22:46:55 hewitson Exp $';
0018 CATEGORY = 'Output';
0019
0020
0021 if nargin == 2
0022 if isa(w, 'miir') && ischar(varargin{1})
0023 in = char(varargin{1});
0024 if strcmp(in, 'Params')
0025 pstr = plist();
0026 return
0027 elseif strcmp(in, 'Version')
0028 pstr = VERSION;
0029 return
0030 elseif strcmp(in, 'Category')
0031 pstr = CATEGORY;
0032 return
0033 end
0034 end
0035 end
0036
0037 pstr = [];
0038 pstr = [pstr w.name];
0039 pstr = [pstr ', fs=' num2str(w.fs)];
0040 pstr = [pstr ', ntaps=' num2str(w.ntaps)];
0041 pstr = [pstr ', a=' num2str(w.a)];
0042 pstr = [pstr ', b=' num2str(w.b)];
0043 pstr = [pstr ', gain=' num2str(w.gain)];
0044
0045 pstr = strrep(pstr, '_', '\_');
0046
0047