Форум: "Основная";
Поиск по всему сайту: 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.072 c
1-80968           Rat King              2002-04-08 11:08  2002.04.25  
Технология Plug-Insов


4-81109           SuperBizon            2002-02-20 17:36  2002.04.25  
Bitmap


14-81052          Наивный               2002-03-18 22:52  2002.04.25  
Пожалуйста помогите или дайте совет по этой теме!


3-80829           Seri                  2002-04-05 07:21  2002.04.25  
Что за файлы DDP в Delphi 6?


14-81084          snoup                 2002-03-18 22:09  2002.04.25  
Как написать простую звонилку которая бы просто звонила по номеру и проводила нужную аутенфикацию и соединялась с инетом ?