home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / rlib / isempty.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  431 b   |  19 lines  |  [TEXT/RLAB]
  1. //------------------------------------------------------------------
  2. //
  3. // isempty(A)
  4. //
  5. // Syntax: isempty(A)
  6. //
  7. //         Returns 1 if A is empty.
  8. //         Returns 0 if the matrix has any elements.
  9. //
  10. //         isempty will work on list-objects as well as matrices.
  11. //
  12. // Original Author: Jeff Layton 
  13. //------------------------------------------------------------------
  14.  
  15. isempty = function(A)
  16. {
  17.   return !all (size (A));
  18. };
  19.