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.6 2007/10/24 17:35:28 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.6 2007/10/24 17:35:28 ingo Exp $ 0017 % 0018 % HISTORY: 15-02-07 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 VERSION = '$Id: char.m,v 1.6 2007/10/24 17:35:28 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 %% store the input ao's in the vector: ao_set 0041 ao_set = []; 0042 for i=1:nargin 0043 a = varargin{i}; 0044 if isa(a, 'ao') 0045 [m,n] = size(a); 0046 0047 for i = 1:m 0048 for j = 1:n 0049 ao_set = [ao_set a(i,j)]; 0050 end 0051 end 0052 0053 end 0054 end 0055 0056 %% go through analysis objects 0057 for j=1:length(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