home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / mathstud / flipud.m < prev    next >
Encoding:
Text File  |  1995-05-19  |  355 b   |  18 lines
  1. function y = flipud(x,mr)
  2. %y = flipud(x,mr)
  3. %flipud(x)        reverse the order of the argument rows
  4. %flipud(x,mr)    reverse the order of the first mr rows
  5.  
  6. %       S.Halevy 7/31/92
  7. %       Copyright (c) 1992 by the MathWizards
  8.  
  9. y=x;
  10. [m,n] = size(y);
  11. if nargin<2
  12.    mr=m;
  13. else
  14.    mr = abs(mr);
  15. end
  16. mr=expr_sel(mr>m,m,mr);
  17. y(mr:-1:1,:)=x(1:mr,:);
  18.