Хочу генератор случайных чисел

[tyomitch]

Сабж с Гауссовским распределением.
Сделал по-лобовому:

Код: Выделить всё

Private Function n() As Single
n = Sqr(-2 * Log(Rnd)) * Sc
If Rnd < 0.5 Then n = -n
End Function

(Sc - масштабный коэффициент).
Так вот, почему-то не работает, а именно не выдаёт маленьких (близких к 0) чисел. Хотя именно их он должен выдавать с наибольшей вероятностью. Поведение вдали от 0 похоже на правильное.

Формулу многократно проверял, но там негде ошибиться. Может, я чего-то не учёл? Может, Rnd не равномерное распределение даёт?

[GSerg]

Не похоже оно там на правильное...

Код: Выделить всё

Option Explicit

Private Const SC As Long = 200

Private Sub Form_DblClick()
  Dim i As Long, n1 As Long, v(-SC * SC To SC * SC) As Single, max As Long
 
  Randomize Timer
 
  Me.Cls
  For i = 1 To 1000000
    n1 = CLng(n)
    v(n1) = v(n1) + 1
    If v(n1) > max Then max = v(n1)
  Next
 
  'Ордината
  Me.Line (Me.ScaleWidth / 2, 0)-(Me.ScaleWidth / 2, Me.ScaleHeight)
  'Абсцисса суть нижний край формы.
 
  For i = 0 To Me.ScaleWidth / 2
    Me.PSet (i + Me.ScaleWidth / 2, Me.ScaleHeight * (1 - v(i) / max))
    Me.PSet (Me.ScaleWidth / 2 - i, Me.ScaleHeight * (1 - v(-i) / max))
  Next
End Sub

Private Function n() As Single
  n = Sqr(-2 * Log(Rnd)) * SC
  If Rnd < 0.5 Then n = -n
End Function

Private Sub Form_Load()
  Me.Show
  Me.ScaleMode = vbPixels
  Me.Width = Me.ScaleX(900, vbPixels, vbTwips)
  Me.Height = Me.ScaleY(650, vbPixels, vbTwips)
End Sub

[tyomitch]

Телепат GSerg практически полностью воспроизвёл мой собственный исходник, которым я и проверял мою функцию на правильность
То, что она в процитированном здесь виде неправильная - это я и сам знаю.
А как правильно-то?

[tyomitch]

Всё, придумал:

Код: Выделить всё

Private Function n() As Single
n = (Rnd + Rnd + Rnd + Rnd + Rnd + Rnd + Rnd + Rnd - 4) * Sc
End Function


Матчасть рулит

[alibek]

Кто ж так делает?
А разбавить Rnd Randomize'ми?

[tyomitch]

Кто ж так делает?
А разбавить Rnd Randomize'ми?

Зачем там Randomize-ы?
Одного в самом начале проги - ведь достаточно?