view src/samer/maths/random/Binary.java @ 0:bf79fb79ee13

Initial Mercurial check in.

/*
 *	Copyright (c) 2000, Samer Abdallah, King's College London.
 *	All rights reserved.
 *
 *	This software is provided AS iS and WITHOUT ANY WARRANTY; 
 *	without even the implied warranty of MERCHANTABILITY or 
 *	FITNESS FOR A PARTICULAR PURPOSE.
 */

package samer.maths.random;
import  samer.core.types.*;

public class Binary extends BaseRandom
{
	VDouble	p = new VDouble("p",0.5);

	public Binary() {}
	public Binary(double p) { this.p.value=p; this.p.changed(); }

	public void dispose() { p.dispose(); }
	public double next() { return (rnd.nextDouble()<p.value) ? 1.0 : 0.0; }
	public void   next(double [] x) { 
		for (int i=0; i<x.length; i++) x[i]=(rnd.nextDouble()<p.value) ? 1.0 : 0.0; 
	}

	public String toString() { return "Binary"; }
}