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
0024
0025 if iscell(p.val)
0026 pstr = [pstr p.key '={'];
0027 for ii = 1:length(p.val)
0028 if ischar(p.val{ii})
0029 pstr = [pstr '''' p.val{ii} ''', ' ];
0030 else
0031 pstr = [pstr '''' num2str(p.val{ii}) ''', '];
0032 end
0033 end
0034 if strcmp(pstr(end-1:end), ', ')
0035 pstr = [pstr(1:end-2) '}, '];
0036 else
0037 pstr = [pstr '}, '];
0038 end
0039
0040
0041 elseif ischar(p.val)
0042 sval = char(p.val);
0043 if length(sval) == 0
0044 sval = [''' '''];
0045 elseif length(sval) >= 10
0046 sval = [sval(1:10) '...'];
0047 end
0048 pstr = [pstr p.key '=' sval ', '];
0049
0050
0051 elseif isnumeric(p.val)
0052 vals = p.val;
0053 ml = min(10, length(vals));
0054 vals = reshape(vals(1:ml),1,ml);
0055 pstr = [pstr p.key '=' num2str(vals) ', '];
0056 if length(p.val) > 10
0057 pstr = [pstr '...'];
0058 end
0059
0060
0061 elseif isa(p.val, 'specwin')
0062
0063 w = p.val;
0064 pstr = [pstr p.key '=' w.name ', '];
0065
0066
0067 elseif isa(p.val, 'miir')
0068 f = p.val;
0069 if strcmp(get(f, 'infile'), '')
0070 pstr = [pstr p.key '=' get(f, 'name') ', '];
0071 else
0072 pstr = [pstr p.key '=' get(f, 'infile') ', '];
0073 end
0074
0075
0076 elseif isa(p.val, 'mfir')
0077 f = p.val;
0078 pstr = [pstr p.key '=' get(f, 'name') ', '];
0079
0080
0081 elseif isa(p.val, 'time') || isa(p.val, 'timeformat') || isa(p.val, 'timespan')
0082 pstr = [pstr p.key '=' char(p.val) ', '];
0083
0084
0085 elseif isa(p.val, 'tsdata') || isa(p.val, 'fsdata') || isa(p.val, 'cdata')
0086 pstr = [pstr p.key '=' class(p.val) '-object, '];
0087
0088 else
0089 pstr = [pstr p.key '=' class(p.val) '-object, '];
0090
0091
0092 end
0093 end
0094
0095 if length(pstr)>1
0096 pstr = pstr(1:end-2);
0097 end
0098
0099 pstr = [pstr ')'];
0100 end
0101
0102
0103