


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.m,v 1.8 2007/11/26 14:48:13 ingo 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.m,v 1.8 2007/11/26 14:48:13 ingo Exp $ 0017 % 0018 % HISTORY: 15-02-07 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 VERSION = '$Id: char.m,v 1.8 2007/11/26 14:48:13 ingo Exp $'; 0024 0025 %% Check if this is a call for parameters 0026 if nargin == 2 0027 if isa(varargin{1}, 'ao') && ischar(varargin{2}) 0028 in = char(varargin{2}); 0029 if strcmp(in, 'Params') 0030 varargout{1} = plist(); 0031 return 0032 elseif strcmp(in, 'Version') 0033 varargout{1} = VERSION; 0034 return 0035 end 0036 end 0037 end 0038 0039 0040 %% Collect input ao's, plist's and ao variable names 0041 in_names = {}; 0042 for ii = 1:nargin 0043 in_names{end+1} = inputname(ii); 0044 end 0045 0046 [ao_set, pl, invars] = collect_inputs(varargin, in_names); 0047 0048 if ~isempty (pl) 0049 pl = combine(pl); 0050 end 0051 0052 %% go through analysis objects 0053 for j=1:numel(ao_set) 0054 0055 a = ao_set(j); 0056 0057 pstr = []; 0058 pstr = [pstr a.name]; 0059 0060 % examine data object 0061 d = a.data; 0062 0063 % get data type 0064 if isempty(d) 0065 pstr = [pstr ' / No data-object']; 0066 else 0067 pstr = [pstr '/' d.name ' ' class(d)]; 0068 0069 [x,y] = get_xy_values(a.data); 0070 0071 xinfo = whos('y'); 0072 pstr = [pstr ' ' sprintf('[%d %d]', xinfo.size(1), xinfo.size(2)) ]; 0073 0074 end 0075 % get data time 0076 0077 pstr = strrep(pstr, '_', '\_'); 0078 0079 varargout{j} = pstr; 0080 0081 end 0082 0083 % END