share/awk/cliff_rand.awk

# cliff_rand.awk --- generate Cliff random numbers
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# December 2000

BEGIN { _cliff_seed = 0.1 }

function cliff_rand()
{
    _cliff_seed = (100 * log(_cliff_seed)) % 1
    if (_cliff_seed < 0)
        _cliff_seed = - _cliff_seed
    return _cliff_seed
}
Revision:	1046
Committed:	Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
File size:	307 byte(s)
Log Message:	Daodan: Added Windows MinGW and build batch file
#	Content
1	# cliff_rand.awk --- generate Cliff random numbers
2	#
3	# Arnold Robbins, arnold@skeeve.com, Public Domain
4	# December 2000
5
6	BEGIN { _cliff_seed = 0.1 }
7
8	function cliff_rand()
9	{
10	_cliff_seed = (100 * log(_cliff_seed)) % 1
11	if (_cliff_seed < 0)
12	_cliff_seed = - _cliff_seed
13	return _cliff_seed
14	}