home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / RLaB 1.15c / rlib / dot.r < prev    next >
Encoding:
Text File  |  1994-09-20  |  426 b   |  19 lines  |  [TEXT/RLAB]
  1. //---------------------------------------------------------------------------
  2. //  dot.r
  3.  
  4. //  Syntax:    dot ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  Compute the dot product of two vectors, A and B.
  9. //---------------------------------------------------------------------------
  10.  
  11. dot = function ( A , B )
  12. {
  13.   if (min (size (A) != 1) || min (size (B) != 1)) 
  14.   {
  15.     error ("dot: A and B must be vectos");
  16.   }
  17.   return sum (A[:] .* B[:])
  18. };
  19.