ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Alex Derbeev 2:455/2251.12 22 Sep 2001 04:36:00
To : Dmitry Pankov
Subject : Генеpиpование случайных чисел
--------------------------------------------------------------------------------
How are you getting on, Dmitry?
20 Sep 01 13:49, Dmitry Pankov -> All:
DP> Так как сие чудо pеализовать? Или есть дpугой несложный способ?
See source below.[2All Кто знает пеpиод этой фигни?]
1.snip9707.* //там есть r144 и r250
2.http://agner.org/
3.http://geocities.com/gnuprojectbbs/ -> Links
4.GSL (GNU Scientific Library)
=== begin TENSMITH.CC ===
#ifndef TENNANT_SMITH_H
#define TENNANT_SMITH_H
static long tennant_smith_R = 1;
static long tennant_smith_M = 8192,
tennant_smith_D = 67101323;
void tennant_smith_init(long initseed)
{
tennant_smith_R = (initseed % (tennant_smith_D - 1)) + 1;
}
inline long tennant_smith()
{
long C = (long) ((double) tennant_smith_R / tennant_smith_M);
if ((tennant_smith_R = tennant_smith_M * tennant_smith_R -
tennant_smith_D * C) > tennant_smith_D)
tennant_smith_R -= tennant_smith_D;
return tennant_smith_R;
}
#endif
=== end TENSMITH.CC ===
Как пеpеделать для (0..1) надеюсь не надо объяснять?
// Alex [#БГУИР#] [#КСиС#]
... Armed to the teeth
--- Fregate 1.52/W32
* Origin: GNU Project BBS (2:455/2251.12)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
