


CHAR overloads char() function for analysis objects.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: CHAR overloads char() function for analysis objects.
CALL: c = char(ao_in);
FORMAT: c = 'ao.name/ao.data.name class(ao.data) [size(ao.data.yaxis)]'
POSSIBLE VALUES: ao_in = [ao2 ao3]
ao_in = ao_vector
ao_in = ao_matrix
VERSION: $Id: char.html,v 1.15 2008/03/31 10:27:33 hewitson Exp $
HISTORY: 15-02-07 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function varargout = char(varargin) 0002 % CHAR overloads char() function for analysis objects. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CHAR overloads char() function for analysis objects. 0007 % 0008 % CALL: c = char(ao_in); 0009 % 0010 % FORMAT: c = 'ao.name/ao.data.name class(ao.data) [size(ao.data.yaxis)]' 0011 % 0012 % POSSIBLE VALUES: ao_in = [ao2 ao3] 0013 % ao_in = ao_vector 0014 % ao_in = ao_matrix 0015 % 0016 % VERSION: $Id: char.html,v 1.15 2008/03/31 10:27:33 hewitson Exp $ 0017 % 0018 % HISTORY: 15-02-07 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 VERSION = '$Id: char.html,v 1.15 2008/03/31 10:27:33 hewitson Exp $'; 0024 CATEGORY = 'Output'; 0025 0026 %% Check if this is a call for parameters 0027 if nargin == 2 0028 if isa(varargin{1}, 'ao') && ischar(varargin{2}) 0029 in = char(varargin{2}); 0030 if strcmp(in, 'Params') 0031 varargout{1} = plist(); 0032 return 0033 elseif strcmp(in, 'Version') 0034 varargout{1} = VERSION; 0035 return 0036 elseif strcmp(in, 'Category') 0037 varargout{1} = CATEGORY; 0038 return 0039 end 0040 end 0041 end 0042 0043 0044 %% Collect input ao's, plist's and ao variable names 0045 in_names = {}; 0046 for ii = 1:nargin 0047 in_names{end+1} = inputname(ii); 0048 end 0049 0050 [ao_set, pl, invars] = collect_inputs(varargin, in_names); 0051 0052 if ~isempty (pl) 0053 pl = combine(pl); 0054 end 0055 0056 %% go through analysis objects 0057 for j=1:numel(ao_set) 0058 0059 a = ao_set(j); 0060 0061 pstr = []; 0062 pstr = [pstr a.name]; 0063 0064 % examine data object 0065 d = a.data; 0066 0067 % get data type 0068 if isempty(d) 0069 pstr = [pstr ' / No data-object']; 0070 else 0071 pstr = [pstr '/' d.name ' ' class(d)]; 0072 0073 [x,y] = get_xy_values(a.data); 0074 0075 xinfo = whos('y'); 0076 pstr = [pstr ' ' sprintf('[%d %d]', xinfo.size(1), xinfo.size(2)) ]; 0077 0078 end 0079 % get data time 0080 0081 pstr = strrep(pstr, '_', '\_'); 0082 0083 varargout{j} = pstr; 0084 0085 end 0086 0087 % END