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


Оставить комментарий

Я не робот.