Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549340 Fri, 28 Nov 2014 14:42:29 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549340 Цитата BlackSun @
так у меня знак не имеет значения, 1140671485 вмещается в Long.

Причем здесь 1140671485? Метод в статье - неверный, я же написал.
Смотри мою формулу, которую я привел в 6-м посте. Представь у тебя OldVal будет равно к примеру &HFFFFFF& - что будет?
Насчет инициализации генератора, там тоже не все так просто. Переданное число конвертируется в 64-разрядное с плавающей точкой, из него берется 4 верхних байта и перетасовываются. Вот небольшой пример:
    Option Explicit
     
    Private Type INT64
        l As Long
        h As Long
    End Type
    Private Type CUR
        v As Currency
    End Type
    Private Type DBL
        d As Double
    End Type
     
    Dim oldVal As INT64
     
    Private Sub Form_Load()
        Dim Seed As Long, i As Long
        
        InitMyRnd
        
        Debug.Print "Pass 1:"
        For i = 0 To 10
            Debug.Print Rnd
            Debug.Print MyRnd
        Next
        
        Randomize 500
        MyRandomize 500
        
        Debug.Print "Pass 2:"
        For i = 0 To 10
            Debug.Print Rnd
            Debug.Print MyRnd
        Next
        
    End Sub
     
    Private Function MyRnd() As Single
        Dim c As CUR
        c.v = 429101.0243@ - (CCur(oldVal.l / 10000) * 179203@)
        LSet oldVal = c: oldVal.l = (oldVal.l And &HFFFFFF)
        MyRnd = oldVal.l / &H1000000
    End Function
     
    Private Sub MyRandomize(ByVal Seed As Long)
        Dim r As DBL, l As INT64
        r.d = CDbl(Seed)
        LSet l = r
        oldVal.l = ((l.h \ &H100) And &HFFFF00) Xor ((l.h And &HFFFF&) * &H100) Or (oldVal.l And &HFF0000FF)
    End Sub
    Private Sub InitMyRnd()
        oldVal.l = 327680
    End Sub
]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549333 Fri, 28 Nov 2014 14:13:23 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549333
Добавлено
вернее знаковый бит не используется.]]> BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549329 Fri, 28 Nov 2014 14:02:02 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549329 Цитата BlackSun @
объясни плиз, что ты намудрил, что от этого изменилось?

Ты код смотрел вообще? Запускал? Не видишь что изменилось?
Это тот же конгруэнтный метод, только коэффициенты другие, но они по прежнему должны быть беззнаковыми.
Цитата
NewVal = 0xFFC39EC3 - (OldVal * 0x2BC03)


Добавлено
Цитата BlackSun @
оказывается, при Seed=0 результат аналогичный, а вот при Seed>0 уже не тот... Значит, Seed используется не так как я представляю в коде, а как-то иначе?

Код смотри, Seed - начальное значение генератора, у меня оно всегда 0 (смотри первый вызов функции чему равно i.l?), можешь делать какое хочешь.]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549326 Fri, 28 Nov 2014 13:57:04 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549326
Добавлено
оказывается, при Seed=0 результат аналогичный, а вот при Seed>0 уже не тот... Значит, Seed используется не так как я представляю в коде, а как-то иначе?]]> BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549318 Fri, 28 Nov 2014 13:33:06 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549318 BlackSun, да действительно алгоритм там неверный. Поверхностный анализ дал такой алгоритм (без проверок):
    Option Explicit
     
    Private Type INT64
        l As Long
        h As Long
    End Type
    Private Type CUR
        v As Currency
    End Type
     
    Private Sub Form_Load()
        Dim Seed As Long, i As Long
        
        Seed = 0
        Randomize Seed
        
        For i = 0 To 10
            Debug.Print Rnd
            Debug.Print MyRnd
        Next
        
    End Sub
     
    Private Function MyRnd() As Single
        Dim c As CUR
        Static i As INT64
        c.v = 429101.0243@ - (CCur(i.l / 10000) * 179203@)
        LSet i = c: i.l = (i.l And &HFFFFFF)
        MyRnd = i.l / &H1000000
    End Function
]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549272 Fri, 28 Nov 2014 11:46:54 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549272 BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549223 Fri, 28 Nov 2014 09:14:08 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549223 http://support.microsoft.com/kb/231847
В VB6 нет беззнаковой арифметики, можно через API функций вычислить.]]> TheTrik Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549168 Fri, 28 Nov 2014 01:16:57 +0000 Алгоритм ф-и RND - конгруэнтный генератор (КГ) https://forum.sources.ru/index.php?showtopic=396944&view=findpost&p=3549168 a=1140671485
c=12820163
m=2^24
проверяю:
    Dim lM As Long, Seed As Single, i As Long
        lM = 2 ^ 24
        Seed = 1
        Randomize Seed
    Debug.Print Rnd
    Debug.Print ((1140671485 * Seed + 12820163) And (lM - 1)) / lM


не сходится... может, при преобразовании в вещественное деление происходит не на 2^24, а на другое число?]]> BlackSun Visual Basic: Общие вопросы