+
−% Get a list of LTPDA objects in the MATLAB workspace
+
−%
+
−% M Hewitson
+
−%
+
−% $Id: getWorkspaceObjs.m,v 1.1 2009/02/03 08:15:30 hewitson Exp $
+
−%
+
−
+
−function objs = getWorkspaceObjs()
+
−  
+
−  % get base workspace variables
+
−  ws_vars = evalin('base','whos');
+
−  
+
−  objs = [];
+
−  for j=1:length(ws_vars)
+
−    
+
−    cmd = sprintf('obj = evalin(''base'', ''%s'');', ws_vars(j).name);
+
−    eval(cmd)
+
−    if isa(obj, 'ltpda_uo')
+
−      objs = [objs ws_vars(j)];
+
−    end 
+
−  end
+
−end