home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / KSUM.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  186 b   |  7 lines
  1. function out = ksum(v1,v2)
  2.  [rv1 cv1] = size(v1);
  3.  [rv2 cv2] = size(v2);
  4.  out = kron(ones(rv1,cv1),v2) + kron(v1,ones(rv2,cv2));
  5. %
  6. % Copyright MUSYN INC 1991,  All Rights Reserved
  7.