18
Октябрь
2009
Генератор случайных чисел
Генератор случайных чисел.
RandInit вызываем вместо Randomize, Rand – вместо Rnd.
В Native Code работает в 3-4 раза быстрее, чем Rnd.
Option Explicit Dim Ri As Double Function Rand() As Single Ri = 1.314 * Ri + 1.737 If Ri > 983732.3456 Then Ri = Ri * 0.3141 Rand = Ri - Int(Ri) End Function Sub RandInit(r As Single) Ri = r End Sub