0001 function pstr = char(pl)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017 np = length(pl.params);
0018 pstr = '';
0019 if np > 0
0020 pstr = ['('];
0021 for j=1:np
0022 p = pl.params(j);
0023 if ischar(p.val)
0024 sval = char(p.val);
0025 if length(sval) >= 10
0026 sval = [sval(1:10) '...'];
0027 end
0028 pstr = [pstr p.key '=' sval ', '];
0029 elseif isnumeric(p.val)
0030 vals = p.val;
0031 ml = min(10, length(vals));
0032 vals = reshape(vals(1:ml),1,ml);
0033 pstr = [pstr p.key '=' num2str(vals) ', '];
0034 if length(p.val) > 10
0035 pstr = [pstr '...'];
0036 end
0037 elseif isa(p.val, 'specwin')
0038
0039 w = p.val;
0040 pstr = [pstr p.key '=' w.name ', '];
0041 elseif isa(p.val, 'miir')
0042 f = p.val;
0043 if strcmp(get(f, 'infile'), '')
0044 pstr = [pstr p.key '=' get(f, 'name') ', '];
0045 else
0046 pstr = [pstr p.key '=' get(f, 'infile') ', '];
0047 end
0048 elseif isa(p.val, 'mfir')
0049 f = p.val;
0050 pstr = [pstr p.key '=' get(f, 'name') ', '];
0051 elseif isa(p.val, 'time') || isa(p.val, 'timeformat') || isa(p.val, 'timespan')
0052 pstr = [pstr p.key '=' char(p.val) ', '];
0053 elseif isa(p.val, 'tsdata') || isa(p.val, 'fsdata') || isa(p.val, 'cdata')
0054
0055 pstr = 'data';
0056
0057 else
0058
0059 end
0060 end
0061
0062 if length(pstr)>1
0063 pstr = pstr(1:end-2);
0064 end
0065
0066 pstr = [pstr ')'];
0067 end
0068
0069
0070