% CONVERT perform various conversions on the ao.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CONVERT perform various conversions on the ao.%% CALL: ao = convert(ao, pl)%% PARAMETERS:% % 'action' - choose a conversion to make [default: none]% % Possible actions:% % Unit conversions:% 's to Hz' - convert seconds to Hz in the yunits of this AO.% 'Hz to s' - convert Hz to seconds in the yunits of this AO.% % Data conversions:% 'to cdata' - convert the data in the AO to a cdata type.% 'to tsdata' - convert the data in the AO to a tsdata type.% 'to fsdata' - convert the data in the AO to a fsdata type.% 'to xydata' - convert the data in the AO to a xydata type.% % % <a href="matlab:utils.helper.displayMethodInfo('ao', 'convert')">Parameters Description</a>%% VERSION: $Id: convert.m,v 1.13 2011/07/01 14:40:18 ingo Exp $%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function varargout = convert(varargin) %%% Check if this is a call for parameters if utils.helper.isinfocall(varargin{:}) varargout{1} = getInfo(varargin{3}); return end import utils.const.* utils.helper.msg(msg.PROC3, 'running %s/%s', mfilename('class'), mfilename); % Collect input variable names in_names = cell(size(varargin)); for ii = 1:nargin,in_names{ii} = inputname(ii);end % Collect all AOs [as, ao_invars,rest] = utils.helper.collect_objects(varargin(:), 'ao', in_names); [pls, invars, rest] = utils.helper.collect_objects(rest(:), 'plist'); %%% Combine plists pl = parse(pls, getDefaultPlist); % Get action to perform action = lower(find(pl, 'action')); if isempty(action) % check rest for kk=1:numel(rest) if ischar(rest{kk}) action = lower(rest{kk}); pl.pset('action', action); end end end % Decide on a deep copy or a modify bs = copy(as, nargout); % Loop over AOs for j=1:numel(bs) switch lower(action) case '' % do nothing case 's to hz' secondsToHz(bs(j)); case 'hz to s' HzToSeconds(bs(j)); case 'to cdata' tocdata(bs(j)); case 'to tsdata' totsdata(bs(j)); case 'to fsdata' tofsdata(bs(j)); case 'to xydata' toxydata(bs(j)); otherwise error('### Unknown action requested.'); end % Set history bs(j).addHistory(getInfo('None'), pl, ao_invars(j), bs(j).hist); end % Set output if nargout == numel(bs) % List of outputs for ii = 1:numel(bs) varargout{ii} = bs(ii); end else % Single output varargout{1} = bs; endend%----------------------------------------------% Convert to xydatafunction toxydata(a) if isa(a.data, 'cdata') x = 1:numel(a.data.y); else x = a.x; end a.data = xydata(x, a.data.y);end%----------------------------------------------% Convert to fsdatafunction tofsdata(a) if isa(a.data, 'cdata') x = 1:numel(a.data.y); else x = a.x; end a.data = fsdata(x, a.data.y);end%----------------------------------------------% Convert to tsdatafunction totsdata(a) if isa(a.data, 'cdata') x = 1:numel(a.data.y); else x = a.x; end a.data = tsdata(x, a.data.y);end%----------------------------------------------% Convert to cdatafunction tocdata(a) a.data = cdata(a.data.y);end%----------------------------------------------% Convert any 's' units to 'Hz' in the yunitsfunction secondsToHz(a) a.data.yunits.sToHz;end%----------------------------------------------% Convert any 'Hz' units to 's' in the yunitsfunction HzToSeconds(a) a.data.yunits.HzToS;end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Local Functions %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%--------------------------------------------------------------------------% Get Info Object%--------------------------------------------------------------------------function ii = getInfo(varargin) if nargin == 1 && strcmpi(varargin{1}, 'None') sets = {}; pl = []; else sets = {'Default'}; pl = getDefaultPlist; end % Build info object ii = minfo(mfilename, 'ao', 'ltpda', utils.const.categories.helper, '$Id: convert.m,v 1.13 2011/07/01 14:40:18 ingo Exp $', sets, pl);end%--------------------------------------------------------------------------% Get Default Plist%--------------------------------------------------------------------------function plout = getDefaultPlist() persistent pl; if exist('pl', 'var')==0 || isempty(pl) pl = buildplist(); end plout = pl; endfunction pl = buildplist() pl = plist({'action', 'Choose the action to perform.'}, ... {1, {'', 's to Hz', 'Hz to s', 'to cdata', 'to tsdata', 'to fsdata', 'to xydata'}, paramValue.SINGLE});end