+
−function varargout = isobject(varargin)
+
−% ISOBJECT checks that the input objects are one of the LTPDA object types.
+
−% 
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: ISOBJECT checks that the input objects are one of the LTPDA object
+
−%              types.
+
−% 
+
−% CALL:        result  = ltpda_isobject(a1)
+
−%              classes = ltpda_isobject()
+
−% 
+
−% INPUTS:      objects
+
−% 
+
−% OUTPUTS:     result == 1 if all input objects are LTPDA objects
+
−%              result == 0 otherwise
+
−%              classes - a list of recognised LTPDA object types
+
−%
+
−% VERSION:     $Id: isobject.m,v 1.1 2008/06/18 13:35:12 hewitson Exp $
+
−%
+
−% HISTORY: 09-05-07 M Hewitson
+
−%             Creation
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−for j=1:nargin
+
−  if ~isa(varargin{j}, 'ltpda_obj')
+
−    varargout{1} = 0;
+
−    return;
+
−  end
+
−end
+
−
+
−% Then we were succesful
+
−varargout{1} = 1;
+
−
+
−% END