ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Применение ГПСЧ Isaac.pas
2 сообщений из 27, страница 2 из 2
  2  все
Применение ГПСЧ Isaac.pas
    #37554286
barleks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barleks
Участник
Anatoly PodgoretskyЕсли делать последовательно применять вместе randomize и random, то будет одно и то же число, изредка меняющее.
А вот и нет, из-за привязки randomize ко времени, такого не будет. Доказывается простым опытом на delphi. Я это знал, но спецом понабрасывал пару строк кода и проверил, только что.

Anatoly PodgoretskyТы еще предлолижи связку randomSeed и random, тогда даже редко меняться не будет.
Это не проверял, но опять врядли и опять же из-за привязки ко времени.

Суть уже раскрыли: хочешь равномерную последовательность ПСЧ - один раз в create вызови randomize,
хочешь неравномерную (читай чёрти какую) - используй связку.
...
Рейтинг: 0 / 0
01.12.2011, 15:19:38
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Применение ГПСЧ Isaac.pas
    #39475143
CheatEngine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CheatEngine
Гость
Isaac использовать так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 var
       i: integer;
       x: TIsaac;
   begin
        x:=isaac.TIsaac.Create;
        for i:=1 to 20 do Memo1.Lines.Add(IntToHex(x.val, 8));
        x.reSeed;  // reseed exactly as in Create()
        for i:=1 to 20 do Memo1.Lines.Add(IntToHex(x.val, 8));  // get the same values

   end;
...
Рейтинг: 0 / 0
21.06.2017, 02:32:45
| Ответить | Цитировать | Написать  
2 сообщений из 27, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Применение ГПСЧ Isaac.pas
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2042122]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 9ms
get first new msg:
 5ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 232ms
total:  378ms
созд. / загр.: 378ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]