Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89459 Mon, 20 Oct 2003 20:10:43 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89459 Visitor Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89458 Mon, 20 Oct 2003 19:45:53 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89458 Цитата Visitor, 20.10.03, 23:31:22
Ну множитель и сдвиг другие, ето понятно...
но почему shr 32? :)
---
тьфу ты... 64 бита.

Ето в каком? в fpc 64-разр. рандом? Или в tmt?

Может я чего то и напутал при переводе в паскаль, в оригинале (в файле скомпилированном Делфи6) функция была такой:
     
    ; IN:     EAX
    ; OUT:  EAX
    push ebx
    xor ebx,ebx
    imul edx,[ebx+RandSeed],88405
    inc edx
    mov [ebx+RandSeed],edx
    mul edx
    mov eax,edx
    pop ebx
    ret
]]> albom Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89457 Mon, 20 Oct 2003 19:36:18 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89457 class Randint
{
     unsigned long randx;//Ravnomernoe raspredelenie [0,max]
public:
                 Randint(long s=0){randx=s;}
     void      seed(long s){randx=s;}

     //privedennue magi4eskie 4isla nujnu dlya
     //vudeleniya 31 bita iz 32-bitnogo long
     long abs(long x){return x&0x7fffffff;}
     static double max(){return 2147483648.0;}
     long draw(){return randx=randx*1103515245+12345;}
     double fdraw(){return abs(draw()/max());}
     long operator(){return abs(draw());}
};
Vo vsyakom tak stait v Straustrup'e(3-e izdanie).]]> dimedrol Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89456 Mon, 20 Oct 2003 19:31:22 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89456 но почему shr 32? :)
---
тьфу ты... 64 бита.

Ето в каком? в fpc 64-разр. рандом? Или в tmt?]]> Visitor Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89455 Mon, 20 Oct 2003 19:28:09 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89455
    function iRandom(A:LongInt):LongWord;
     var i:LongWord;
         j:Int64;
     begin
     i:=RandSeed*88405+1;
     RandSeed:=i;
     j:=Int64(i)*A;
     iRandom:=j shr 32;
     end;
]]> albom Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89454 Mon, 20 Oct 2003 19:25:04 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89454 32
random := _randseed div 216
вернуть random

деление нужно для того, чтобы уменьшить предсказуемость младших битов random]]> Visitor Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89453 Mon, 20 Oct 2003 19:15:54 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89453
    procedure       Randomize;
    {$IFDEF LINUX}
    begin
      RandSeed := _time(nil);
    {$ENDIF}
    {$IFDEF MSWINDOWS}
    var
            systemTime :
            record
                    wYear   : Word;
                    wMonth  : Word;
                    wDayOfWeek      : Word;
                    wDay    : Word;
                    wHour   : Word;
                    wMinute : Word;
                    wSecond : Word;
                    wMilliSeconds: Word;
                    reserved        : array [0..7] of char;
            end;
    asm
            LEA     EAX,systemTime
            PUSH    EAX
            CALL    GetSystemTime
            MOVZX   EAX,systemTime.wHour
            IMUL    EAX,60
            ADD     AX,systemTime.wMinute   { sum = hours * 60 + minutes    }
            IMUL    EAX,60
            XOR     EDX,EDX
            MOV     DX,systemTime.wSecond
            ADD     EAX,EDX                 { sum = sum * 60 + seconds              }
            IMUL    EAX,1000
            MOV     DX,systemTime.wMilliSeconds
            ADD     EAX,EDX                 { sum = sum * 1000 + milliseconds       }
            MOV     RandSeed,EAX
    {$ENDIF}
    end;
Как реализована функция Random не знаю. Но она точно берет значение из RandSeed, делает над ним какое-то преобразование и записывает обратно новое значение этой переменной.]]> albom Алгоритмы https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89452 Mon, 20 Oct 2003 18:59:10 +0000 randomize(); https://forum.sources.ru/index.php?showtopic=9097&view=findpost&p=89452 то биш по какому алгоритму генерируются случайные числа??]]> Member_3696 Алгоритмы