home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / toolbox / min2.r < prev    next >
Encoding:
Text File  |  1994-05-08  |  496 b   |  19 lines  |  [TEXT/ttxt]
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:     min2 ( A, B )
  4.  
  5. //  Description:
  6.  
  7. //  Return a matrix the same size as A and B with the smallest
  8. //  elements taken from A and B.
  9.  
  10. //  Note: the builtin function min now handles this condition.
  11. //        This file is maintained for backward compatibility.
  12. //-------------------------------------------------------------------//
  13.  
  14. min2 = function(a,b)
  15. {
  16.   return min(a,b);  
  17.   // return (b+(a-b).*(a<b));
  18. };
  19.