home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / mathstud / tril.m < prev    next >
Encoding:
Text File  |  1995-05-19  |  277 b   |  15 lines

  1. function Y = tril(X,k)
  2. %Y=tril(X,k)
  3. %Lower triangle matrix of X
  4.  
  5. %       S.Halevy 7/31/92
  6. %       Copyright (c) 1992 by the MathWizards
  7.  
  8. k=expr_sel(nargin==1,0,k);
  9. [m,n] = size(X);
  10. Y = zeros(m,n);
  11. for i = max(1,1-k):m
  12.    j = 1:min(n,i+k);
  13.    Y(i,j) = X(i,j);
  14. end
  15.