0001 function txt = display(p)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015 txt = {};
0016
0017 for i=1:length(p)
0018 banner = sprintf('---- param %d ----', i);
0019 txt{end+1} = banner;
0020
0021
0022 name = get(p(i), 'key');
0023 v = get(p(i), 'val');
0024
0025
0026 if ischar(v)
0027 sval = v;
0028 elseif isnumeric(v)
0029 sval = '';
0030 for j=1:min(length(v), 10)
0031 sval = [sval sprintf('%g ', v(j))];
0032 end
0033 if length(v) > 10
0034 sval = [sval '...'];
0035 end
0036 elseif isa(v, 'specwin');
0037 sval = char(v);
0038 elseif isa(v, 'miir');
0039 sval = char(v);
0040 elseif isa(v, 'time') || isa(v, 'timespan') || isa(v, 'timeformat')
0041 sval = char(v);
0042 elseif isa(v, 'mfir');
0043 sval = char(v);
0044
0045
0046
0047
0048 elseif isstruct(v)
0049 sval = v.name;
0050 elseif isa(v, 'ao') || isa(v, 'fsdata') || isa(v, 'tsdata') || isa(v, 'cdata')
0051 vinfo = whos('v');
0052 sval = vinfo.class;
0053 elseif isa(v, 'pole') || isa(v, 'zero') || isa(v, 'pzmodel')
0054 sval = '';
0055 for j=1:length(v)
0056 sval = [sval ' ' char(v(j))];
0057 end
0058 elseif iscell(v)
0059 sval = '';
0060 for ii = 1:length(v)
0061 sval = [sval '''' v{ii} ''' '];
0062 end
0063 else
0064 error('### parameter has unknown type')
0065 end
0066
0067
0068 txt{end+1} = sprintf('key: %s\nval: %s', name, deblank(sval));
0069
0070 banner_end(1:length(banner)) = '-';
0071 txt{end+1} = banner_end;
0072
0073 end
0074
0075 if nargout == 0
0076 for ii=1:length(txt)
0077 disp(txt{ii});
0078 end
0079 end
0080
0081
0082