Форум: "Основная";
Поиск по всему сайту: 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.034 c
3-80752           ak                    2002-04-03 17:03  2002.04.25  
Как сделать SQL-запрос?


3-80778           DEJRGU                2002-04-04 14:51  2002.04.25  
Есть ли в TSQL какая-нибудь pause ? (чтобы проверить sp)


3-80796           B_A_V                 2002-04-05 09:09  2002.04.25  
select c выборкой по последней дате<введенной даты


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


1-80951           Delfin                2002-04-11 12:35  2002.04.25  
как написать не x^2, а x2, где 2 - верхний индекс.