Mercurial > forge
changeset 4014:589c90cf4a95 octave-forge
Data verification.
author | sis-sou |
---|---|
date | Fri, 09 Nov 2007 17:09:06 +0000 |
parents | ab34413d4486 |
children | 8b00f73bbe82 |
files | main/comm/inst/bsc.m |
diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/main/comm/inst/bsc.m Fri Nov 09 17:01:45 2007 +0000 +++ b/main/comm/inst/bsc.m Fri Nov 09 17:09:06 2007 +0000 @@ -26,6 +26,10 @@ error('p muste be a positive scalar less than one'); exit; end + if(any(data(:) ~= floor(data(:))) || any(data(:) > 1) || any(data(:) < 0)) + error('data must be a binary sequence'); + exit; + end ndata = data; ndata(find(data == 0)) = randsrc(size(ndata(find(data == 0)),1),size(ndata(find(data == 0)),2),[-1 -2;1-p p]);