home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 April / DPPCPRO0498.ISO / April / MathCad / SETUP / DATA.Z / sum.mxs < prev    next >
Encoding:
Text File  |  1997-06-03  |  1008 b   |  42 lines

  1. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2.  *                                                                     *
  3.  * Copyright (c) 1997 MathSoft, Inc. All Rights Reserved.              *
  4.  *                                                                     *
  5.  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  6. /*
  7.  *  Function:  sum ( x )
  8.  *
  9.  *  Description:
  10.  *      sum(x) returns the sum of each column of x.
  11.  *      For a vector, sum(x) returns the sum of the elements of x.
  12.  *
  13.  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  14.  
  15. function sum ( x )
  16.  
  17.   r=rows(x);
  18.   c=cols(x);
  19.  
  20.   sum = new(c);
  21.  
  22.   if (r == 1)            // row vector (or scalar) case
  23.  
  24.     sum = x;
  25.  
  26.   elseif (c == 1)        // column vector case
  27.  
  28.     for i in 0:(r-1)
  29.       sum = sum + x[i] ;
  30.     end
  31.  
  32.   else                // array case
  33.  
  34.     for i in 0:(r-1)
  35.       for j in 0:(c-1)
  36.         sum[i] = sum[i] + x[j;i] ;
  37.       end
  38.     end
  39.  
  40.   end
  41.  
  42. end