LOG10 overloads the log10 operator for Analysis objects. Common (base 10) logarithm. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: LOG10 overloads the log10 operator for Analysis objects. Common (base 10) logarithm. LOG10(ao) is the base 10 logarithm of the elements of ao.data. CALL: ao_out = log10(ao_in); ao_out = log10(ao_in, pl); ao_out = log10(ao1, pl1, ao_vector, ao_matrix, pl2); POSSIBLE VALUES: ao_in = [ao2 ao3] ao_in = ao_vector ao_in = ao_matrix PARAMETER LIST: <key> <value> <description> tsdata fsdata xydata 'xdata' 't' 'f' 'x' compute the xdata 'xdata' 'x' 'xx' 'y' compute the ydata HISTORY: 23-05-2007 Diepholz Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function ao_out = log10 (varargin) 0002 % LOG10 overloads the log10 operator for Analysis objects. Common (base 10) logarithm. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: LOG10 overloads the log10 operator for Analysis objects. 0007 % Common (base 10) logarithm. 0008 % LOG10(ao) is the base 10 logarithm of the elements of ao.data. 0009 % 0010 % CALL: ao_out = log10(ao_in); 0011 % ao_out = log10(ao_in, pl); 0012 % ao_out = log10(ao1, pl1, ao_vector, ao_matrix, pl2); 0013 % 0014 % POSSIBLE VALUES: ao_in = [ao2 ao3] 0015 % ao_in = ao_vector 0016 % ao_in = ao_matrix 0017 % 0018 % PARAMETER LIST: <key> <value> <description> 0019 % tsdata fsdata xydata 0020 % 'xdata' 't' 'f' 'x' compute the xdata 0021 % 'xdata' 'x' 'xx' 'y' compute the ydata 0022 % 0023 % HISTORY: 23-05-2007 Diepholz 0024 % Creation 0025 % 0026 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0027 0028 ALGONAME = mfilename; 0029 VERSION = '$Id: log10.html,v 1.1 2007/06/08 14:15:02 hewitson Exp $'; 0030 ao_out = []; 0031 pl = []; 0032 option = ''; 0033 0034 %% store the input ao's in the vector: ao_set 0035 ao_set = []; 0036 for i=1:nargin 0037 a = varargin{i}; 0038 if isa(a, 'ao') 0039 [m,n] = size(a); 0040 for i = 1:m 0041 for j = 1:n 0042 ao_set = [ao_set a(i,j)]; 0043 end 0044 end 0045 elseif isa(varargin{i}, 'plist') 0046 pl = [pl varargin{i}]; 0047 end 0048 end 0049 0050 if ~isempty (pl) 0051 pl = combine(pl); 0052 end 0053 0054 %% go through analysis objects 0055 for j=1:length(ao_set) 0056 a = ao_set(j); 0057 0058 [h, log10_data] = single_operation(a.data, 'log10', pl); 0059 0060 %% Add the history from the ao object to the history 0061 h = set(h, 'inhists', [a.hist]); 0062 0063 %% Set the var_name to the history 0064 if (j <= nargin) 0065 if (isempty (inputname(j))) 0066 h = set(h, 'invars', cellstr('no var_name')); 0067 else 0068 h = set(h, 'invars', cellstr(inputname(j))); 0069 end 0070 else 0071 h = set(h, 'invars', cellstr('no var_name')); 0072 end 0073 0074 %% create a new analysis objects 0075 new_ao = a; 0076 new_ao = ao (log10_data, h); 0077 new_ao = set (new_ao, 'name', sprintf('log10(%s)',a.name) ); 0078 0079 ao_out = [ao_out new_ao]; 0080 0081 end 0082 0083 % END