home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 9.ddi / IDENT.DI$ / SUM4VMS.M < prev    next >
Encoding:
Text File  |  1993-02-05  |  556 b   |  25 lines
  1. function y=sum4vms(x)
  2. %SUM    Sum of the elements.
  3. %       For vectors, SUM(X) is the sum of the elements of X.
  4. %       For matrices, SUM(X) is a row vector with the sum over
  5. %       each column. SUM(DIAG(X)) is the trace of X.
  6. % 
  7. %       See also PROD, CUMPROD, CUMSUM.
  8. %
  9. if isempty(find(isnan(x)))
  10.   %regular sum
  11.   y=sum(x)
  12. else
  13.   [t1,t2]=size(x);
  14.   if min(t1,t2) == 1
  15.     y=NaN;
  16.   else
  17.     for i=1:t2
  18.       if isempty(find(isnan(x(:,i))))
  19.         y(i) = sum(x(:,i));
  20.       else
  21.         y(i) = NaN;
  22.       end;
  23.     end;
  24.   end;
  25. end;