randb.m

来自「这是用matlab编写的支持向量机的函数工具箱」· M 代码 · 共 10 行

function ret = randb ( p ) 
# randb ( p ) 
# returns 0/1 with probability 1-p / p 
# using randn crudely
if(nargin != 1 ) 
	usage ("randb(p)");
endif
ret = ( rand(size(p)) < p ) ;