File: frand.c

package info (click to toggle)
drawterm 20091003-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 2,920 kB
  • ctags: 5,505
  • sloc: ansic: 55,149; makefile: 566; asm: 20
file content (17 lines) | stat: -rw-r--r-- 210 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#include	<u.h>
#include	<libc.h>

#define	MASK	0x7fffffffL
#define	NORM	(1.0/(1.0+MASK))

double
frand(void)
{
	double x;

	do {
		x = lrand() * NORM;
		x = (x + lrand()) * NORM;
	} while(x >= 1);
	return x;
}