Mercurial > octave-nkf

comparison scripts/control/util/swap.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
29 ## Created: July 24, 1992 29 ## Created: July 24, 1992
30 ## Conversion to Octave R. Bruce Tenison July 4, 1994 30 ## Conversion to Octave R. Bruce Tenison July 4, 1994
31 31
32 function [a1, b1] = swap (a, b) 32 function [a1, b1] = swap (a, b)
33 33
34 if (nargin != 2)
35 print_usage ();
36 endif
37
34 a1 = b; 38 a1 = b;
35 b1 = a; 39 b1 = a;
36 40
37 endfunction 41 endfunction
38 42