view scripts/general/flipud.m @ 4:b4df021f796c

[project @ 1993-08-08 01:26:08 by jwe] Initial revision
author jwe
date Sun, 08 Aug 1993 01:26:08 +0000
parents
children 16a24e76d6e0
line wrap: on
line source

function y = flipud (x)

# usage: flipud (x)
#
# Return x with the rows swapped.
#
# See also: fliplr, rot90

  if (nargin != 1)
    error ("usage: flipud (x)");
  endif

  y = x;
  nr = rows (x);
  y = x (nr:-1:1, :);

endfunction