Mercurial > octave-antonio
comparison scripts/general/bitcmp.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 139f993936af |
comparison
equal
deleted
inserted
replaced
11586:12df7854fa7c | 11587:c792872f8942 |
---|---|
35 ## @end deftypefn | 35 ## @end deftypefn |
36 | 36 |
37 ## Liberally based on the version by Kai Habel from octave-forge | 37 ## Liberally based on the version by Kai Habel from octave-forge |
38 | 38 |
39 function C = bitcmp (A, k) | 39 function C = bitcmp (A, k) |
40 | 40 |
41 if (nargin < 1 || nargin > 2) | 41 if (nargin < 1 || nargin > 2) |
42 print_usage (); | 42 print_usage (); |
43 endif | 43 endif |
44 | 44 |
45 if (nargin == 2 && (! isscalar (k) || (floor (k) != k))) | 45 if (nargin == 2 && (! isscalar (k) || (floor (k) != k))) |