Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Что нибудь вместо Random 


Sound   (2002-04-10 00:48) [0]

Проблема: Надо сгенирировать случайное число, но Random не подходит так как запуская каждый раз программу заново я получаю одну и ту же последовательность чисел, и при этом некоторые из них повторяются чаще... ЧТО ДЕЛАТЬ?



AlexDeRus   (2002-04-10 00:56) [1]

zapishi vse chisla v fail i ot tuda sravnivai s random elsi chislo odno i to zhe to kruti random eshe raz i tak dalee. raboteat medlenno no verno



Sound   (2002-04-10 01:04) [2]

Оригенальней некуда :) А побыстрее и по меньше че нить можно придумать?



SPeller   (2002-04-10 01:08) [3]

И RANDOMIZE не помогает ?



Sound   (2002-04-10 01:31) [4]

А для чего он необходим (просвятите):



MBo   (2002-04-10 01:34) [5]

инициализирует генератор сл. чисел (исходя из времени)



Sound   (2002-04-10 01:42) [6]

Ну уже получше спасибо :)



SPeller   (2002-04-10 08:00) [7]

Randomize;
....
x:=random;



Sound   (2002-04-10 20:10) [8]

Снова трабла, необходимогенерировать очень много случайных чисел за короткий промежуток времени (Скажем около 100 чисел) и они начинают повторяться:
2 2 2 2 2 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 4 4 4 4 4 4 4 4
Ну типа того, а необходима полностью случайная последовательнасть чисел.



SPeller   (2002-04-10 20:21) [9]

Randomize;
for i:=1 to n do
a[i]:=random(10);



Sound   (2002-04-10 20:26) [10]

Так я в принципе и делаю, но результата нет :(



Anatoly Podgoretsky   (2002-04-10 20:26) [11]

Sound © (10.04.02 20:10)
Полностью случайная последовательность программными метода недостижима
Ты ни разу не привел свой код



DeMoN-777   (2002-04-10 20:27) [12]

Да народ прав Randomize вот что надо юзать
вобщем SPeller © прав
Я думаю вопрос закрыт =)



DeMoN-777   (2002-04-10 20:28) [13]

Да народ прав Randomize вот что надо юзать
вобщем SPeller © прав
Ну а если тебе не понятно что-то мыль я те исходники кину...



Di_wind   (2002-04-10 20:34) [14]

есл неустравивает бери рандомайзь массив, а потом встряхивай его ещё. Берешь 2 случайных индекса в массиве(Randomize :>)и меняешь элементы с этими индексами местами.



Sound   (2002-04-10 20:51) [15]

Ну латно, хотя кто знает посоветуйте что ещё... А то вдруг и енто не поможет.



dymka   (2002-04-10 20:58) [16]

Делай свой алгоритм случайных чисел... бери за основу число миллисекунд и вперед:
1. Конгруэнтный метод - поищи в инете, должен быть.
2. Методы оперирование с дробной частью, типа
Xn+1 = Frac(Xn * 37 + 0.1234567), где Frac функция взятия дробной части. Поэсперементируй с числами где 37 и 0.1234567.
3. Методы опирающиеся на ошибки вычисления... Хотя возможно уже не актуальны...
Для каждой последовательности построй гистограмму, для оценки случайной последовательности... Можно рассчитать дисперсию...
Надеюсь тебе нужно равномерное распределение???



madburro   (2002-04-11 00:20) [17]

Pishes v samom nizu
...
initialization
Randomize;
end.

Rabotaet stopudovo.



MBo   (2002-04-11 06:57) [18]

>Sound
такая последовательность будет, если вызываешь randomizize каждый раз перед random. Делай это 1 РАЗ -как madburro сказал
или, скажем, в FormCreate



Yuriy   (2002-04-12 18:41) [19]

Есть у меня специальная компонента, привожу описание -

This aims to supply a Borland Delphi translation of Alan Miller"s Random Module for FORTRAN-90.
The following Random Number Generators:

- Normal (Gaussian)
- Gamma
- Chi-squared
- Exponential
- Weibull
- Beta
- t
- Multivariate Normal
- Generalized inverse Gaussian
- Binomial (2 different ones)
- Negative Binomial
- von Mises
- Cauchy

Если еще нужна - пиши на мыло - вышлю.



Poirot   (2002-04-12 21:00) [20]

Берём с полки книжечку господина Кнута (2 том - для непосвещённых) и создаём (скатываем быстрый) и приэтом с приличным периодом рандом... на http://www.lib.ru лежит но в TeX...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.02 c
14-81042          vopros                2002-03-19 16:43  2002.04.25  
Предлагаю злых нечеловеков исключать отсюда


1-80924           kopachev              2002-04-11 07:37  2002.04.25  
Задание сужения для текста


3-80739           Студент               2002-04-05 13:19  2002.04.25  
Кластеры в : что это такое?


3-80812           fozy                  2002-04-05 11:59  2002.04.25  
КАРАУЛ MSSQL в Paradox langdriver не могу подобрать плизз


1-80989           P.                    2002-04-11 18:51  2002.04.25  
Чё то торможу...