home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / Developers / RLaB / rlib / linspace.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  615 b   |  22 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    linspace ( s1 , s2 )
  4. //        linspace ( s1 , s2 , n )
  5.  
  6. //  Description:
  7.  
  8. //  Linspace generates a linearly spaced vector. linspace(s1, s2)
  9. //  generates a vector of 100 equally spaced points between s1 and
  10. //  s2. linspace(s1, s2, n) generates n equally spaced points between
  11. //  s1 and s2.
  12.  
  13. //-------------------------------------------------------------------//
  14.  
  15.  
  16. linspace = function ( s1 , s2, n ) 
  17. {
  18.   if (!exist (n)) { n = 100; }
  19.   if (n < 2) { error ("linspace: N must be >= 2"); }
  20.   return [s1+(0:n-2)*(s2-s1)/(n-1), s2];
  21. };
  22.